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

SYNOPSIS
      use Devel::DefaultWarnings;
      {
        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 strictures "AUTHOR" and "CONTRIBUTORS" as listed
    above.

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