guard Getopt::Long::Parser against perlcritic

mjgardner · Mar 18, 2012 · 5f52880 · 5f52880
1 parent 90ddb67
commit 5f52880
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/lib/MooseX/App/Cmd/Command.pm b/lib/MooseX/App/Cmd/Command.pm
@@ -30,12 +30,12 @@ sub _process_args {
         local @ARGV = @ARGV;
 
         my $configfile;
-        my $opt_parser = Getopt::Long::Parser->new(
-            config => [
-                qw( pass_through
-                    ),
-            ],
-        );
+        my $opt_parser;
+        {
+            ## no critic (Modules::RequireExplicitInclusion)
+            $opt_parser
+                = Getopt::Long::Parser->new( config => ['pass_through'] );
+        }
         $opt_parser->getoptions( 'configfile=s' => \$configfile );
         if ( !defined $configfile ) {
             my $cfmeta = $class->meta->find_attribute_by_name('configfile');