1 BEGIN { our @warnings; $SIG{__WARN__} = sub { push(@warnings, $_[0]); } }
12 my ($name, $val) = @_;
14 *{$name} = sub (&) { $_[0]->($val); };
17 use Devel::BeginLift 'foo';
20 bar "boom1" => "BOOM 1";
21 bar "boom2" => "BOOM 2";
24 boom1 { warn "1: $_[0]\n"; };
26 boom2 { warn "2: $_[0]\n"; };
29 use Test::More 'no_plan';
31 is(shift(@warnings), "1: BOOM 1\n", 'boom1');
32 is(shift(@warnings), "2: BOOM 2\n", 'boom2');
33 ok(!@warnings, 'No more warnings');