NAME

Devel::DefaultWarnings - Detect if warnings have been left at defaults

SYNOPSIS

  use Devel::DefaultWarnings;
  {
    BEGIN { my $def = warnings_default(); } #true;
  }
  {
    use warnings;
    BEGIN { my $def = warnings_default(); } #false;
  }
  {
    no warnings;
    BEGIN { my $def = warnings_default(); } #false;
  }

DESCRIPTION

Check if lexical warnings have been changed from the default. Checks the current compiling context.

FUNCTIONS

warnings_default

Returns a true value if lexical warnings have been left as the default.

AUTHOR

haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org>

CONTRIBUTORS

None yet.

COPYRIGHT

Copyright (c) 2014 the Devel::DefaultWarnings "AUTHOR" and "CONTRIBUTORS" as listed above.

LICENSE

This library is free software and may be distributed under the same terms as perl itself.