-[1.???] Released on 2008-??-??
+[1.091] Released on 2008-09-01
New Policies:
* RegularExpressions::RequireDotMatchAnything
arguments of a C<use> statement. RT #24467.
* ErrorHandling::RequireCheckingReturnValueOfEval now recognizes ternary
left-sides as valid checks.
- * RegularExpressions::RequireExtendedFormatting gains
- minimum_regex_length_to_complain_about a option. Also, regexes that
+ * RegularExpressions::RequireExtendedFormatting gains a
+ minimum_regex_length_to_complain_about option. Also, regexes that
contain only word and whitespace characters are now exempt from this
policy, by default; you can make it complain about them by turning on
the new strict option. Contributed by Michael Schwern. RT #38531.
To install Perl::Critic with C<make> give the following
commands to your favorite shell:
- tar -zxf Perl-Critic-1.061.tar.gz
- cd Perl-Critic-1.061
+ tar -zxf Perl-Critic-1.091.tar.gz
+ cd Perl-Critic-1.091
perl Makefile.PL
make
make test
Or if you prefer C<Module::Build>, try this:
- tar -zxf Perl-Critic-1.061.tar.gz
- cd Perl-Critic-1.061
+ tar -zxf Perl-Critic-1.091.tar.gz
+ cd Perl-Critic-1.091
perl Build.pl
./Build
./Build test
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
Readonly::Scalar my $DEFAULT_VIOLATIONS_FOR_TOP => 20;
use English q<-no_match_vars>;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
use base qw{ Exporter };
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
Readonly::Array our @EXPORT_OK => qw(critique);
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
=head1 VERSION
-This is part of L<Perl::Critic|Perl::Critic> version 1.090.
+This is part of L<Perl::Critic|Perl::Critic> version 1.091.
=head1 AUTHOR
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ &policy_short_name };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw< :characters >;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::Constants qw< $PROFILE_STRICTNESS_DEFAULT >;
use Perl::Critic::Utils::DataConversion qw< dor >;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Exception::Class; # this must come after "use P::C::Exception::*"
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification hashify };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification is_in_void_context };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification is_in_void_context };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :classification};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use English qw(-no_match_vars);
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
Readonly::Scalar my $LINE_END => qr/\015{1,2}\012|\012|\015/mxs;
use Perl::Critic::Utils qw{ :booleans :characters :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities hashify };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
Readonly::Hash my %SPECIAL_BLOCK_NAMES =>
hashify( qw< BEGIN END INIT CHECK UNITCHECK > );
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :data_conversion :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
Readonly::Array my @TERMINALS => qw( die exit croak confess );
Readonly::Hash my %TERMINALS => hashify( @TERMINALS );
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :characters :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPI qw{ is_ppi_expression_or_generic_statement };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw< :booleans :characters :severities hashify >;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification &parse_arg_list };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification parse_arg_list };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :booleans parse_arg_list };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use List::MoreUtils qw(any);
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw< :characters :severities >;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ parse_regexp get_match_string get_modifiers };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ ppiify parse_regexp };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ get_match_string get_modifiers };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ ppiify parse_regexp };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ parse_regexp get_match_string get_substitute_string get_modifiers };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ get_delimiters };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ get_match_string get_delimiters };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ &get_modifiers &get_match_string };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPIRegexp qw{ &get_modifiers };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities hashify };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :severities split_nodes_on_comma };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities words_from_string };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
Readonly::Hash my %LABEL_ARG_POS => (
ok => 1,
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
Readonly::Hash my %LOW_BOOLEANS => hashify( qw( not or and ) );
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw< :characters :severities >;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification hashify};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
use Perl::Critic::Exception::AggregateConfiguration;
use Perl::Critic::Exception::Configuration::Option::Policy::ParameterValue;
use Exception::Class; # this must come after "use P::C::Exception::*"
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use overload ( q<""> => 'to_string' );
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters &interpolate };
use Perl::Critic::Utils::DataConversion qw{ &defined_or_empty };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
Readonly::Scalar our $NO_DESCRIPTION_AVAILABLE => 'No description available.';
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Exception::Class (); # Must be after P::C::Exception::*
-our $VERSION = '1.090';
+our $VERSION = '1.091';
print "\n\nGenerating Perl::Critic::PolicySummary.\n";
use Perl::Critic::Utils qw{ :characters };
use overload ( q{""} => 'to_string' );
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :data_conversion policy_long_name };
use Perl::Critic::PolicyFactory (-test => 1);
-our $VERSION = '1.090';
+our $VERSION = '1.091';
Readonly::Array our @EXPORT_OK => qw(
pcritique pcritique_with_violations
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use overload ( q<""> => 'to_string' );
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Perl::Critic::Exception::Configuration::Generic qw{ throw_generic };
use Perl::Critic::PolicyConfig;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
# Exportable symbols here.
use base 'Exporter';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
>;
use Perl::Critic::Exception::Fatal::Internal qw< &throw_internal >;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#Class variables...
our $FORMAT = "%m at line %l, column %c. %e.\n"; #Default stringy format
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
use Carp qw{ confess };
use Fatal qw{ open close };
-our $VERSION = '1.090';
+our $VERSION = '1.091';
use PPI::Document;
use PPI::Dumper;
-our $VERSION = '1.090';
+our $VERSION = '1.091';
my $whitespace = $ARGV[0] && $ARGV[0] eq '-w' ? shift : 0;
my $code = $ARGV[0] ? (-f $ARGV[0] ? shift : \shift) : \join q{}, <STDIN>;
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.090';
+our $VERSION = '1.091';
#-----------------------------------------------------------------------------
