Login
Applied patch from RT #75300.
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Thu, 26 Jul 2012 19:03:43 +0000 (19:03 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Thu, 26 Jul 2012 19:03:43 +0000 (19:03 +0000)
This is the more modern way to use Exporter.

18 files changed:
MANIFEST
inc/Perl/Critic/BuildUtilities.pm
inc/Perl/Critic/PolicySummaryGenerator.pm
lib/Perl/Critic.pm
lib/Perl/Critic/Command.pm
lib/Perl/Critic/Exception.pm
lib/Perl/Critic/Policy/Modules/ProhibitAutomaticExportation.pm
lib/Perl/Critic/PolicyParameter.pm
lib/Perl/Critic/TestUtils.pm
lib/Perl/Critic/Theme.pm
lib/Perl/Critic/Utils.pm
lib/Perl/Critic/Utils/Constants.pm
lib/Perl/Critic/Utils/DataConversion.pm
lib/Perl/Critic/Utils/McCabe.pm
lib/Perl/Critic/Utils/POD.pm
lib/Perl/Critic/Utils/PPI.pm
lib/Perl/Critic/Utils/Perl.pm
lib/Test/Perl/Critic/Policy.pm

index d975c8e..831d355 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -212,9 +212,6 @@ lib/Test/Perl/Critic/Policy.pm
 LICENSE
 Makefile.PL
 MANIFEST                       This list of files
-META.json
-META.yml
-README
 t/00_modules.t
 t/01_bad_perlcriticrc
 t/01_config.t
@@ -421,3 +418,6 @@ xt/author/95_kwalitee.t
 xt/author/98_pod_syntax.t
 xt/author/99_pod_coverage.t
 xt/author/generate_without_optional_dependencies_wrappers.PL
+README
+META.yml
+META.json
index 7ae7ab5..c97fa4f 100644 (file)
@@ -15,7 +15,7 @@ use English q<-no_match_vars>;
 
 our $VERSION = '1.116';
 
-use base qw{ Exporter };
+use Exporter 'import';
 
 our @EXPORT_OK = qw<
     required_module_versions
index 10a317f..e0df3b0 100644 (file)
@@ -11,7 +11,7 @@ use 5.006001;
 use strict;
 use warnings;
 
-use base qw< Exporter >;
+use Exporter 'import';
 
 use lib qw< blib lib >;
 use Carp qw< confess >;
index f98682a..3a7ce6f 100644 (file)
@@ -14,7 +14,7 @@ use warnings;
 use English qw(-no_match_vars);
 use Readonly;
 
-use base qw(Exporter);
+use Exporter 'import';
 
 use File::Spec;
 use List::MoreUtils qw< firstidx >;
index 61ea4f5..f4f59ec 100644 (file)
@@ -32,7 +32,7 @@ our $VERSION = '1.118';
 
 #-----------------------------------------------------------------------------
 
-use base 'Exporter';
+use Exporter 'import';
 
 Readonly::Array our @EXPORT_OK => qw< run >;
 
index 3c200c0..cfa533b 100644 (file)
@@ -22,7 +22,7 @@ use Exception::Class (
     },
 );
 
-use base 'Exporter';
+use Exporter 'import';
 
 #-----------------------------------------------------------------------------
 
index ee63bff..e707acc 100644 (file)
@@ -129,7 +129,7 @@ and let the caller choose exactly which symbols to export.
 
     package Foo;
 
-    use base qw(Exporter);
+    use Exporter 'import';
     our @EXPORT      = qw(foo $bar @baz);                  # not ok
     our @EXPORT_OK   = qw(foo $bar @baz);                  # ok
     our %EXPORT_TAGS = ( all => [ qw(foo $bar @baz) ] );   # ok
index 3634ea7..401bdd3 100644 (file)
@@ -12,7 +12,7 @@ use strict;
 use warnings;
 use Readonly;
 
-use base 'Exporter';
+use Exporter 'import';
 
 Readonly::Array our @EXPORT_OK => qw{ $NO_DESCRIPTION_AVAILABLE };
 
index cbfd249..6093fd2 100644 (file)
@@ -14,7 +14,7 @@ use warnings;
 use English qw(-no_match_vars);
 use Readonly;
 
-use base 'Exporter';
+use Exporter 'import';
 
 use File::Path ();
 use File::Spec ();
index 76c87da..19a75a7 100644 (file)
@@ -13,7 +13,7 @@ use warnings;
 use English qw(-no_match_vars);
 use Readonly;
 
-use base qw{ Exporter };
+use Exporter 'import';
 
 use List::MoreUtils qw(any);
 
index 1226224..d08456f 100644 (file)
@@ -25,7 +25,7 @@ use PPI::Token::Quote::Single;
 use Perl::Critic::Exception::Fatal::Generic qw{ throw_generic };
 use Perl::Critic::Utils::PPI qw< is_ppi_expression_or_generic_statement >;
 
-use base 'Exporter';
+use Exporter 'import';
 
 our $VERSION = '1.118';
 
index b38d5da..4792e31 100644 (file)
@@ -14,7 +14,7 @@ use Readonly;
 
 use Perl::Critic::Utils qw{ $EMPTY hashify };
 
-use base 'Exporter';
+use Exporter 'import';
 
 our $VERSION = '1.118';
 
index 18bb80b..6569e08 100644 (file)
@@ -14,7 +14,7 @@ use Readonly;
 
 use Perl::Critic::Utils qw{ :characters :booleans };
 
-use base 'Exporter';
+use Exporter 'import';
 
 our $VERSION = '1.118';
 
index 274eb25..e781959 100644 (file)
@@ -15,7 +15,7 @@ use Readonly;
 
 use Perl::Critic::Utils qw{ :data_conversion :classification };
 
-use base 'Exporter';
+use Exporter 'import';
 
 #-----------------------------------------------------------------------------
 
index 0416efe..dd9ad48 100644 (file)
@@ -22,7 +22,7 @@ use Perl::Critic::Exception::Fatal::Generic qw< throw_generic >;
 use Perl::Critic::Exception::IO qw< throw_io >;
 use Perl::Critic::Utils qw< :characters >;
 
-use base 'Exporter';
+use Exporter 'import';
 
 our $VERSION = '1.118';
 
index ec80233..23502fd 100644 (file)
@@ -15,7 +15,7 @@ use Readonly;
 
 use Scalar::Util qw< blessed readonly >;
 
-use base 'Exporter';
+use Exporter 'import';
 
 our $VERSION = '1.118';
 
index 8f83db5..b23b3dd 100644 (file)
@@ -11,7 +11,7 @@ use 5.006001;
 use strict;
 use warnings;
 
-use base 'Exporter';
+use Exporter 'import';
 
 our $VERSION = '1.118';
 
index e3b0d86..e0292dc 100644 (file)
@@ -33,7 +33,7 @@ our $VERSION = '1.118';
 
 #-----------------------------------------------------------------------------
 
-use base 'Exporter';
+use Exporter 'import';
 
 Readonly::Array our @EXPORT_OK      => qw< all_policies_ok >;
 Readonly::Hash  our %EXPORT_TAGS    => (all => \@EXPORT_OK);