9 use Test::More tests => $tests + 2;
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";
19 is($@, "ok\n", 'DATA compiled fine');
32 like($w, qr/^warn:Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"P$_"/, "$_ should warn");
34 is($w, undef, "$_ shouldn't warn");
37 is($left, 0, 'nothing left');