lib/strictures/extra.pm

   1 package strictures::extra;
   2 use strict;
   3 use warnings FATAL => 'all';
   4
   5 sub import {
   6   $ENV{PERL_STRICTURES_EXTRA} = 1;
   7 }
   8
   9 sub unimport {
  10   $ENV{PERL_STRICTURES_EXTRA} = 0;
  11 }
  12
  13 1;
  14
  15 __END__
  16 =head1 NAME
  17
  18 strictures::extra - enable or disable strictures additional checks
  19
  20 =head1 SYNOPSIS
  21
  22   no strictures::extra;
  23   # will not enable indirect, multidimensional, or bareword filehandle checks
  24   use strictures;
  25
  26 =head1 DESCRIPTION
  27
  28 Enable or disable strictures additional checks, preventing checks for C<.git>
  29 or other VCS directories.
  30
  31 Equivalent to setting the C<PERL_STRICTURES_EXTRA> environment variable.
  32
  33 =head1 AUTHORS
  34
  35 See L<strictures> for authors.
  36
  37 =head1 COPYRIGHT AND LICENSE
  38
  39 See L<strictures> for the copyright and license.
  40
  41 =cut