#!perl -T use strict; use warnings; my $count; BEGIN { $count = 1_000 } use Test::More tests => 2 * $count; BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} } for (1 .. $count) { my @errs; { local $SIG{__WARN__} = sub { die @_ }; eval q( return; no indirect hook => sub { push @errs, [ @_[0, 1, 3] ] }; my $x = new Wut; ); } is $@, '', "didn't croak at run $_"; is_deeply \@errs, [ [ 'Wut', 'new', 4 ] ], "got the right data at run $_"; }