return map {
my ($obj, $meth, $elt) = @$_;
+ $obj = ($obj =~ /^\s*\{/) ? "a block" : "object \"$obj\"";
$self->violation(
- "Indirect call of method \"$meth\" on object \"$obj\"",
+ "Indirect call of method \"$meth\" on $obj",
"You really wanted $obj\->$meth",
$elt,
);