9 use Test::More tests => $tests + 1;
11 my %wrong = map { $_ => 1 } 2, 3, 5, 7;
14 my $code = do { local $/; <DATA> };
17 local $SIG{__WARN__} = sub { push @warns, join '', 'warn:', @_ };
18 eval "die qq{ok\\n}; $code";
31 like($w, qr/^warn:Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"P$_"/, "$_ should warn");
33 is($w, undef, "$_ shouldn't warn");
36 is($left, 0, 'nothing left');