From: Graham Knop <haarg@haarg.org>
Date: Sat, 31 May 2014 21:13:28 +0000 (-0400)
Subject: add strictures::extra module
X-Git-Tag: v1.999_001~1^2~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a190a72fa716030dbeb1a4218a038009d100d40;p=p5sagit%2Fstrictures.git

add strictures::extra module
---

diff --git a/lib/strictures/extra.pm b/lib/strictures/extra.pm
new file mode 100644
index 0000000..fe8cbe4
--- /dev/null
+++ b/lib/strictures/extra.pm
@@ -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