perlimports

Author: oalders

lib/WWW/Mechanize.pm

@@ -3612,7 +3612,7 @@ sub _images_from_css {
     my @images;
     while ( $css =~ m/$STYLE_URL_REGEXP/g ) {
         my $url = $3;
-        require WWW::Mechanize::Image;
+        require WWW::Mechanize::Image; ## no perlimports
         push(
             @images,
             WWW::Mechanize::Image->new(
@@ -3788,7 +3788,7 @@ sub _warn {
 
 # NOT an object method!
 sub _die {
-    require Carp;
+    require Carp; ## no perlimports
     return &Carp::croak;    ## no critic
 }
 

t/content.t

@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 use Test::More;
-use Test::Fatal qw(dies_ok);
+use Test::Fatal qw( dies_ok );
 
 =head1 NAME
 

t/die.t

@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::Fatal qw(lives_ok dies_ok);
+use Test::Fatal qw( dies_ok lives_ok );
 use Test::More;
 use WWW::Mechanize ();
 

t/file_upload.t

@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Fatal    qw(lives_ok);
+use Test::Fatal    qw( lives_ok );
 use WWW::Mechanize ();
 use URI::file      ();
 

t/local/click_button.t

@@ -5,7 +5,7 @@ use lib 't/local';
 
 use LocalServer ();
 use Test::More 0.96;
-use Test::Fatal qw(dies_ok);
+use Test::Fatal qw( dies_ok );
 
 BEGIN {
     delete @ENV{qw( IFS CDPATH ENV BASH_ENV )};

t/local/follow.t

@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 use Test::More;
-use Test::Fatal    qw(dies_ok);
+use Test::Fatal    qw( dies_ok );
 use Test::Warnings qw(warning);
 use lib 't/local';
 use LocalServer ();

t/local/select_multiple.t

@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 use Test::More;
-use Test::Fatal qw(dies_ok);
+use Test::Fatal qw( dies_ok );
 
 use lib 't/local';
 use LocalServer ();