File Coverage

blib/lib/Devel/DefaultWarnings.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	15	15	100.0

package Devel::DefaultWarnings;
use strict;
use warnings FATAL => 'all';

our $VERSION = '0.001002';

use base 'Exporter';
our @EXPORT = qw(warnings_default);

my $check = do {
  if ($] >= 5.016) { q{
    !defined ${^WARNING_BITS};
  } }
  elsif ($] >= 5.008008) { q{
    my $w = ${^WARNING_BITS};
    local $^W = !$^W;
    $w ne ${^WARNING_BITS};
  } }
  elsif ($] >= 5.006001) { q{
    my $depth = 0;
    while (my ($sub, $bits) = (caller(++$depth))[3,9]) {
      if ($sub =~ /::BEGIN$/) {
        local $^W = !$^W;
        my $new_bits = (caller($depth))[9];
        return $bits ne $new_bits;
      }
    }
    ${^WARNING_BITS} eq $warnings::NONE;
  } }
  else { q{
    ${^WARNING_BITS} eq $warnings::NONE;
  } }
};

eval "sub warnings_default () { $check }; 1" or die $@;

1;

__END__