use warnings FATAL => 'all';
BEGIN {
- *_PERL_LT_5_8_4 = ($] < 5.008004) ? sub(){1} : sub(){0};
- *_CAN_GOTO_VERSION = ($] >= 5.008000) ? sub(){1} : sub(){0};
+ *_PERL_LT_5_8_4 = ("$]" < 5.008004) ? sub(){1} : sub(){0};
+ # goto &UNIVERSAL::VERSION usually works on 5.8, but fails on some ARM
+ # machines. Seems to always work on 5.10 though.
+ *_CAN_GOTO_VERSION = ("$]" >= 5.010000) ? sub(){1} : sub(){0};
}
-our $VERSION = '1.999_002';
-$VERSION = eval $VERSION;
-$VERSION = 2; # a bit of a cheat, but requesting v2 needs to be possible
+our $VERSION = '2.000006';
+$VERSION =~ tr/_//d;
our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
closure
chmod
deprecated
+ deprecated::apostrophe_as_package_separator
+ deprecated::delimiter_will_be_paired
+ deprecated::dot_in_inc
+ deprecated::goto_construct
+ deprecated::missing_import_called_with_args
+ deprecated::smartmatch
+ deprecated::subsequent_use_version
+ deprecated::unicode_property_name
+ deprecated::version_downgrade
exiting
experimental
+ experimental::alpha_assertions
+ experimental::args_array_with_signatures
experimental::autoderef
+ experimental::bitwise
+ experimental::builtin
+ experimental::class
experimental::const_attr
+ experimental::declared_refs
+ experimental::defer
+ experimental::extra_paired_delimiters
+ experimental::for_list
+ experimental::isa
experimental::lexical_subs
experimental::lexical_topic
experimental::postderef
+ experimental::private_use
experimental::re_strict
experimental::refaliasing
experimental::regex_sets
+ experimental::script_run
experimental::signatures
experimental::smartmatch
+ experimental::try
+ experimental::uniprop_wildcards
+ experimental::vlb
experimental::win32_perlio
glob
imprecision
redefine
redundant
regexp
+ scalar
severe
debugging
inplace
internal
malloc
+ shadow
signal
substr
syntax
sub import {
my $class = shift;
- my %opts = ref $_[0] ? %{$_[0]} : @_;
+ my %opts = @_ == 1 ? %{$_[0]} : @_;
if (!exists $opts{version}) {
$opts{version}
= exists $^H{strictures_enable} ? delete $^H{strictures_enable}
and $file =~ /^(?:t|xt|lib|blib)[\\\/]/
and defined $Smells_Like_VCS ? $Smells_Like_VCS
: ( $Smells_Like_VCS = !!(
- -e '.git' || -e '.svn' || -e '.hg'
+ -e '.git' || -e '.svn' || -e '.hg' || -e '.bzr'
|| (-e '../../dist.ini'
- && (-e '../../.git' || -e '../../.svn' || -e '../../.hg' ))
+ && (-e '../../.git' || -e '../../.svn' || -e '../../.hg' || -e '../../.bzr' ))
))
);
}
__END__
=head1 NAME
-strictures - turn on strict and make all warnings fatal
+strictures - Turn on strict and make most warnings fatal
=head1 SYNOPSIS
(caller)[1] =~ /^(?:t|xt|lib|blib)[\\\/]/
-and when either C<.git>, C<.svn>, or C<.hg> is present in the current directory
-(with the intention of only forcing extra tests on the author side) -- or when
-C<.git>, C<.svn>, or C<.hg> is present two directories up along with
-C<dist.ini> (which would indicate we are in a C<dzil test> operation, via
-L<Dist::Zilla>) -- or when the C<PERL_STRICTURES_EXTRA> environment variable is
-set, in which case it also does the equivalent of
+and when either C<.git>, C<.svn>, C<.hg>, or C<.bzr> is present in the current
+directory (with the intention of only forcing extra tests on the author side)
+-- or when C<.git>, C<.svn>, C<.hg>, or C<.bzr> is present two directories up
+along with C<dist.ini> (which would indicate we are in a C<dzil test> operation,
+via L<Dist::Zilla>) -- or when the C<PERL_STRICTURES_EXTRA> environment variable
+is set, in which case it also does the equivalent of
no indirect 'fatal';
no multidimensional;