NAME
    Devel::StrictMode - determine whether strict (but slow) tests should be
    enabled

SYNOPSIS
       package MyClass;
   
       use Moose;
       use Devel::StrictMode;
   
       has input_data => (
          is       => 'ro',
          isa      => STRICT ? "HashRef[ArrayRef[Str]]" : "HashRef",
          required => 1,
       );

DESCRIPTION
    This module provides you with a constant `STRICT` which you can use to
    determine whether additional strict (but slow) runtime tests are executed
    by your code.

    `STRICT` is true if any of the following environment variables have been
    set to true:

       PERL_STRICT
       EXTENDED_TESTING
       AUTHOR_TESTING
       RELEASE_TESTING

    `STRICT` is false otherwise.

    It is anticipated that you might set one or more of the above variables to
    true while running your test suite, but leave them all false in your
    production scenario.

    Although not exported by default, a constant `LAX` is also provided, which
    returns the opposite of `STRICT`.

  Using STRICT with Moose/Moo/Mouse attributes
    Type constraint checks (`isa`) are conducted at run time. Slow checks can
    slow down your constructor and accessors. As shown above, `STRICT` can be
    used to alternate between a slower by stricter type constraint check, and
    a faster but looser one.

    Don't try this if your attribute coerces. It will subtly break things.

  Using STRICT to perform assertions in function and method calls
    You may protect blocks of assertions with an `if (STRICT) { ... }`
    conditional to ensure that they only run in your testing environment.

       sub fibonacci
       {
          my $n = $_[0];
      
          if (STRICT)
          {
             die "expected exactly one argument"
                unless @_ == 1;
             die "expected argument to be a natural number"
                unless $n =~ /\A[0-9]+\z/;
          }
      
          $n < 2 ? $n : fibonacci($n-1)+fibonacci($n-2);
       }

    Because `STRICT` is a constant, the Perl compiler will completely optimize
    away the `if` block when running in your production environment.

  Using STRICT with pragmata
    Thanks to if it's easy to use `STRICT` to conditionally load pragmata.

       use Devel::StrictMode;

       use strict;
       use warnings STRICT ? qw(FATAL all) : qw(all);
   
       no if STRICT, "bareword::filehandles";
       no if STRICT, "autovivification";

    See also autovivification, bareword::filehandles, indirect,
    multidimensional, etc.

BUGS
    Please report any bugs to
    <http://rt.cpan.org/Dist/Display.html?Queue=Devel-StrictMode>.

SEE ALSO
    strictures.

AUTHOR
    Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE
    This software is copyright (c) 2014 by Toby Inkster.

    This is free software; you can redistribute it and/or modify it under the
    same terms as the Perl 5 programming language system itself.

DISCLAIMER OF WARRANTIES
    THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
    WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
    MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.