Lines Matching refs:warnings
4 use warnings;
38 my $warnings = '';
39 local $SIG{__WARN__} = sub { $warnings = join '', @_ };
41 use warnings 'layer';
49 like( $warnings, qr/^Cannot find package 'Unknown::Module'/, 'warn about unknown package' );
65 $warnings = '';
66 no warnings 'layer';
68 is( $warnings, "", "don't warn about unknown package" );
70 $warnings = '';
71 no warnings 'layer';
73 is( $warnings, "", "don't warn about unknown package" );