From: Vincent Pit Date: Mon, 3 Jan 2011 21:36:58 +0000 (+0100) Subject: Switch to qw<> X-Git-Tag: v0.06~6 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=7b4e2c7a41cf9f8f9fe08d1f0d8bb67f015460b2;p=perl%2Fmodules%2FPerl-Critic-Policy-Dynamic-NoIndirect.git Switch to qw<> --- diff --git a/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm b/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm index 624792e..8933982 100644 --- a/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm +++ b/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm @@ -26,12 +26,12 @@ Since it wraps around L, it needs to compile the audited code and as s =cut -use base qw/Perl::Critic::DynamicPolicy/; +use base qw; -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 } sub applies_to { 'PPI::Document' } my $tag_obj = sub { diff --git a/samples/check.pl b/samples/check.pl index f444d94..7f09532 100644 --- a/samples/check.pl +++ b/samples/check.pl @@ -5,7 +5,7 @@ use warnings; use blib; -use Perl::Critic::TestUtils qw/pcritique_with_violations/; +use Perl::Critic::TestUtils qw; Perl::Critic::TestUtils::block_perlcriticrc(); my $code = shift || exit; diff --git a/t/10-basic.t b/t/10-basic.t index 146c6a1..53629b0 100644 --- a/t/10-basic.t +++ b/t/10-basic.t @@ -12,7 +12,7 @@ BEGIN { use Test::More tests => $tests + $subtests * $reports; -use Perl::Critic::TestUtils qw/pcritique_with_violations/; +use Perl::Critic::TestUtils qw; Perl::Critic::TestUtils::block_perlcriticrc();