[p5sagit/strictures.git] / lib / strictures / extra.pm

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
Commit	Line	Data
6a190a72	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