7 BEGIN { $count = 1_000 }
9 use Test::More tests => 2 * $count;
14 local $SIG{__WARN__} = sub { die @_ };
17 no indirect hook => sub { push @errs, [ @_[0, 1, 3] ] };
21 is $@, '', "didn't croak at run $_";
22 is_deeply \@errs, [ [ 'Wut', 'new', 4 ] ], "got the right data at run $_";