add strictures::extra module
Graham Knop [Sat, 31 May 2014 21:13:28 +0000 (17:13 -0400)]
lib/strictures/extra.pm [new file with mode: 0644]

diff --git a/lib/strictures/extra.pm b/lib/strictures/extra.pm
new file mode 100644 (file)
index 0000000..fe8cbe4
--- /dev/null
@@ -0,0 +1,41 @@
+package strictures::extra;
+use strict;
+use warnings FATAL => 'all';
+
+sub import {
+  $ENV{PERL_STRICTURES_EXTRA} = 1;
+}
+
+sub unimport {
+  $ENV{PERL_STRICTURES_EXTRA} = 0;
+}
+
+1;
+
+__END__
+=head1 NAME
+
+strictures::extra - enable or disable strictures additional checks
+
+=head1 SYNOPSIS
+
+  no strictures::extra;
+  # will not enable indirect, multidimensional, or bareword filehandle checks
+  use strictures;
+
+=head1 DESCRIPTION
+
+Enable or disable strictures additional checks, preventing checks for C<.git>
+or other VCS directories.
+
+Equivalent to setting the C<PERL_STRICTURES_EXTRA> environment variable.
+
+=head1 AUTHORS
+
+See L<strictures> for authors.
+
+=head1 COPYRIGHT AND LICENSE
+
+See L<strictures> for the copyright and license.
+
+=cut