Lines Matching refs:caller

15 @c = caller(0);
18 eval { @c = caller(0) };
22 eval q{ @c = caller(0) };
26 sub { @c = caller(0) } -> ();
31 sub foo { @c = caller(0) }
39  is +(caller 0)[1], __FILE__,
45 sub f { @c = caller(1) }
97     check_bits( (caller(0))[9], $w, "warnings match caller ($id)");
120     my @stackinfo = caller(0);
124 sub pb { return (caller(0))[3] }
144     my @results = caller($level||0);
151     my @results = caller($level||0);
202     sub { () = caller(0) }->(); # initialise PL_dbargs
204     sub { () = caller(0) }->(); # clobber @args without initialisation
211   ()=caller(0);
213   ()=caller(0);
226 eval { sub { () = caller 0; } ->(1..3) };
242     $x = caller;
253     is (sub { (caller)[2] }->(), __LINE__,
261   sub foo { print +(caller)[2] }
279  my $ bits = sub { (caller 0)[9] }->();
294 sub getlineno { (caller)[2] }
302 sub doof { caller(0) }
312     @x = caller(1);
322         my ($package, $file, $line) = caller;
348     like($Cpack::callers[$_], qr{caller/Bpack.pm:3}, "GH #15109 level $_") for 0..2;
349     like($Cpack::callers[$_], qr{caller/Apack.pm:3}, "GH #15109 level $_") for 3..5;
351     like($Cpack::callers[$_], qr{caller\.t}, "GH #15109 level $_") for 9;
371         my ($pkg, $file, $line) = caller;
389         () = caller(0);