=head1 VERSION
-Version 0.05
+Version 0.06
=cut
-our $VERSION = '0.05';
+our $VERSION = '0.06';
=head1 DESCRIPTION
=cut
-use base qw/Perl::Critic::DynamicPolicy/;
+use base qw<Perl::Critic::DynamicPolicy>;
-use Perl::Critic::Utils qw/:severities/;
+use Perl::Critic::Utils qw<:severities>;
sub default_severity { $SEVERITY_HIGH }
-sub default_themes { qw/dynamic maintenance/ }
+sub default_themes { qw<dynamic maintenance> }
sub applies_to { 'PPI::Document' }
my $tag_obj = sub {
$file =~ s/(?<!\\)((\\\\)*)"/$1\\"/g;
my @errs;
+ my $hook = sub { push @errs, [ @_ ] };
+
my $wrapper = <<" WRAPPER";
return;
package main;
- my \$hook;
- BEGIN { \$hook = sub { push \@errs, [ \@_ ] } }
no strict;
no warnings;
no indirect hook => \$hook;
You can find documentation for this module with the perldoc command.
- perldoc Perl::Critic::Policy::Dynamic::NoIndirect
+ perldoc Perl::Critic::Policy::Dynamic::NoIndirect
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.