-Next release (whatever and whenever it is)
+[1.105_02] Released on 2010-01-23
Bug Fixes:
* 'state( $foo )' is now allowed. RT #52029.
friends, which were superseded by the corresponding PPI methods.
Now depends on PPI-1.208 or newer.
-[1.105_001] Released on 2010-01-16
+[1.105_01] Released on 2010-01-16
!! THIS IS A DEVELOPER RELEASE !!
To install Perl::Critic with C<make> give the following
commands to your favorite shell:
- tar -zxf Perl-Critic-1.105_001.tar.gz
- cd Perl-Critic-1.105_001
+ tar -zxf Perl-Critic-1.105_02.tar.gz
+ cd Perl-Critic-1.105_02
perl Makefile.PL
make
make test
Or if you prefer C<Module::Build>, try this:
- tar -zxf Perl-Critic-1.105_001.tar.gz
- cd Perl-Critic-1.105_001
+ tar -zxf Perl-Critic-1.105_02.tar.gz
+ cd Perl-Critic-1.105_02
perl Build.pl
./Build
./Build test
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
# Begin program. Don't run when loaded as a library
use strict;
use warnings;
-use version; our $VERSION = qv('1.105_01');
+use version; our $VERSION = qv('1.105_02');
use Carp qw{ croak };
use English qw{ -no_match_vars };
use strict;
use warnings;
-use version; our $VERSION = qv('1.105_01');
+use version; our $VERSION = qv('1.105_02');
use Carp qw{ croak };
use English qw{ -no_match_vars };
use English q<-no_match_vars>;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
use base qw{ Exporter };
use strict;
use warnings;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
use Carp;
use English qw< $OS_ERROR $EXECUTABLE_NAME -no_match_vars >;
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
=head1 VERSION
-This is part of L<Perl::Critic|Perl::Critic> version 1.105_01.
+This is part of L<Perl::Critic|Perl::Critic> version 1.105_02.
=head1 AUTHOR
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
Readonly::Array our @EXPORT_OK => qw(critique);
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
Readonly::Scalar my $LAST_ELEMENT => -1;
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
=head1 VERSION
-This is part of L<Perl::Critic|Perl::Critic> version 1.105_01.
+This is part of L<Perl::Critic|Perl::Critic> version 1.105_02.
=head1 SEE ALSO
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ &policy_short_name };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use strict;
use warnings;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw< :characters >;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
>;
use Perl::Critic::Utils::DataConversion qw< dor >;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Exception::Class; # this must come after "use P::C::Exception::*"
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification hashify };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :severities :classification :ppi $SCOLON };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification is_in_void_context };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification is_in_void_context };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :classification};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use English qw(-no_match_vars);
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
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.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities hashify };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
Readonly::Hash my %SPECIAL_BLOCK_NAMES =>
hashify( qw< BEGIN END INIT CHECK UNITCHECK > );
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :data_conversion :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
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.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :characters :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils::PPI qw{ is_ppi_expression_or_generic_statement };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw< :booleans :characters :severities hashify >;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification &parse_arg_list };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification parse_arg_list };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw<:severities :booleans>;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification hashify };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use List::MoreUtils qw(any);
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw< :characters :severities >;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :data_conversion :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :severities hashify };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :characters :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :severities hashify split_nodes_on_comma };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities hashify };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :booleans :severities split_nodes_on_comma };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
>;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
>;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
Readonly::Hash my %LABEL_ARG_POS => (
ok => 1,
use Perl::Critic::Utils qw{ :severities $EMPTY };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities $EMPTY };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
Readonly::Hash my %LOW_BOOLEANS => hashify( qw( not or and ) );
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters :severities :classification };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification :data_conversion };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw< :characters :severities >;
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :classification $EMPTY hashify};
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities };
use base 'Perl::Critic::Policy';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Readonly;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
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.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use overload ( q<""> => 'to_string' );
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters &interpolate };
use Perl::Critic::Utils::DataConversion qw{ &defined_or_empty };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
Readonly::Scalar our $NO_DESCRIPTION_AVAILABLE => 'No description available.';
use Perl::Critic::Utils qw{ :characters };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base qw{ Perl::Critic::PolicyParameter::Behavior };
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :characters };
use overload ( q{""} => 'to_string' );
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Utils qw{ :severities :data_conversion policy_long_name };
use Perl::Critic::PolicyFactory (-test => 1);
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
Readonly::Array our @EXPORT_OK => qw(
pcritique pcritique_with_violations
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use overload ( q<""> => 'to_string' );
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Perl::Critic::Exception::Configuration::Generic qw{ throw_generic };
use Perl::Critic::PolicyConfig;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
# Exportable symbols here.
use base 'Exporter';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use base 'Exporter';
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
>;
use Perl::Critic::Exception::Fatal::Internal qw< throw_internal >;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
Readonly::Scalar my $LOCATION_LINE_NUMBER => 0;
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
# Notice that you can pass arguments to this test, which limit the testing to
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
use Carp qw< confess >;
use Fatal qw< open close >;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
use Carp qw< confess >;
use Fatal qw< open close >;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
use strict;
use warnings;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
use autodie qw< :all >; # Just to be sure that we're using the correct version of Fatal.
use PPI::Document;
use PPI::Dumper;
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
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.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
-our $VERSION = '1.105_01';
+our $VERSION = '1.105_02';
#-----------------------------------------------------------------------------
