.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.42)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "Devel::StrictMode 3pm"
.TH Devel::StrictMode 3pm "2022-10-15" "perl v5.34.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Devel::StrictMode \- determine whether strict (but slow) tests should be enabled
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&   package MyClass;
\&   
\&   use Moose;
\&   use Devel::StrictMode;
\&   
\&   has input_data => (
\&      is       => \*(Aqro\*(Aq,
\&      isa      => STRICT ? "HashRef[ArrayRef[Str]]" : "HashRef",
\&      required => 1,
\&   );
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This module provides you with a constant \f(CW\*(C`STRICT\*(C'\fR which you can use to
determine whether additional strict (but slow) runtime tests are
executed by your code.
.PP
\&\f(CW\*(C`STRICT\*(C'\fR is true if any of the following environment variables have
been set to true:
.PP
.Vb 4
\&   PERL_STRICT
\&   EXTENDED_TESTING
\&   AUTHOR_TESTING
\&   RELEASE_TESTING
.Ve
.PP
\&\f(CW\*(C`STRICT\*(C'\fR is false otherwise.
.PP
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.
.PP
Although not exported by default, a constant \f(CW\*(C`LAX\*(C'\fR is also provided,
which returns the opposite of \f(CW\*(C`STRICT\*(C'\fR.
.SS "Using \s-1STRICT\s0 with Moose/Moo/Mouse attributes"
.IX Subsection "Using STRICT with Moose/Moo/Mouse attributes"
Type constraint checks (\f(CW\*(C`isa\*(C'\fR) are conducted at run time. Slow checks
can slow down your constructor and accessors. As shown above, \f(CW\*(C`STRICT\*(C'\fR
can be used to alternate between a slower by stricter type constraint
check, and a faster but looser one.
.PP
Don't try this if your attribute coerces. It will subtly break things.
.SS "Using \s-1STRICT\s0 to perform assertions in function and method calls"
.IX Subsection "Using STRICT to perform assertions in function and method calls"
You may protect blocks of assertions with an \f(CW\*(C`if (STRICT) { ... }\*(C'\fR
conditional to ensure that they only run in your testing environment.
.PP
.Vb 3
\&   sub fibonacci
\&   {
\&      my $n = $_[0];
\&      
\&      if (STRICT)
\&      {
\&         die "expected exactly one argument"
\&            unless @_ == 1;
\&         die "expected argument to be a natural number"
\&            unless $n =~ /\eA[0\-9]+\ez/;
\&      }
\&      
\&      $n < 2 ? $n : fibonacci($n\-1)+fibonacci($n\-2);
\&   }
.Ve
.PP
Because \f(CW\*(C`STRICT\*(C'\fR is a constant, the Perl compiler will completely
optimize away the \f(CW\*(C`if\*(C'\fR block when running in your production
environment.
.SS "Using \s-1STRICT\s0 with pragmata"
.IX Subsection "Using STRICT with pragmata"
Thanks to if it's easy to use \f(CW\*(C`STRICT\*(C'\fR to conditionally load
pragmata.
.PP
.Vb 1
\&   use Devel::StrictMode;
\&
\&   use strict;
\&   use warnings STRICT ? qw(FATAL all) : qw(all);
\&   
\&   no if STRICT, "bareword::filehandles";
\&   no if STRICT, "autovivification";
.Ve
.PP
See also autovivification, bareword::filehandles, indirect,
multidimensional, etc.
.SH "BUGS"
.IX Header "BUGS"
Please report any bugs to
<http://rt.cpan.org/Dist/Display.html?Queue=Devel\-StrictMode>.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
strictures.
.SH "AUTHOR"
.IX Header "AUTHOR"
Toby Inkster <tobyink@cpan.org>.
.SH "COPYRIGHT AND LICENCE"
.IX Header "COPYRIGHT AND LICENCE"
This software is copyright (c) 2014 by Toby Inkster.
.PP
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
.SH "DISCLAIMER OF WARRANTIES"
.IX Header "DISCLAIMER OF WARRANTIES"
\&\s-1THIS PACKAGE IS PROVIDED \*(L"AS IS\*(R" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.\s0