+ skip "$_: $skip" => 9 if eval $skip;
+
+ {
+ try "return; $prefix; use indirect; $_";
+ is $@, '', "use indirect: $_";
+ is @warns, 0, 'correct number of reports';
+
+ try "return; $prefix; no indirect; $_";
+ is $@, '', "no indirect: $_";
+ is @warns, 0, 'correct number of reports';
+ }
+
+ {
+ local $_ = $_;
+ s/Hlagh/Dongs/g;
+
+ try "return; $prefix; use indirect; $_";
+ is $@, '', "use indirect, defined: $_";
+ is @warns, 0, 'correct number of reports';
+
+ try "return; $prefix; no indirect; $_";
+ is $@, '', "use indirect, defined: $_";
+ is @warns, 1, 'correct number of reports';
+ like $warns[0], qr/^Indirect call of method "meh" on object "Dongs" at \(eval \d+\) line \d+/, 'report 0 is correct';
+ }