3 use warnings FATAL => 'all';
7 use lib __DIR__ . "/lib";
9 eval "use InvalidCase01;";
10 ok($@, "Got an error");
14 #local $TODO = 'Devel::Declare and Eval::Closure have unresolved issues'
15 # if Eval::Closure->VERSION > 0.06;
18 qr/^Global symbol "\$op" requires explicit package name at .*?\bInvalidCase01.pm line 8\b/,
19 "Sane error message for syntax error");
26 local $SIG{__WARN__} = sub { $warnings .= $_[0] };
28 eval "use Redefined;";
29 is($@, '', "No error");
30 like($warnings, qr/^Subroutine meth1 redefined at .*?\bRedefined.pm line 9\b/,
31 "Redefined method warning");