perltidy ...
authorJens Rehsack <sno@NetBSD.org>
Tue, 7 Aug 2012 14:24:56 +0000 (7 16:24 +0200)
committerJens Rehsack <sno@NetBSD.org>
Tue, 7 Aug 2012 14:24:56 +0000 (7 16:24 +0200)
lib/WWW/Mechanize/Script/Plugin.pm
lib/WWW/Mechanize/Script/Plugin/TextMatchTest.pm
lib/WWW/Mechanize/Script/Util.pm

index 60c9181..192683f 100644 (file)
@@ -35,9 +35,9 @@ sub get_check_value_as_bool
 
     defined($val) or return;
     ref($val) and return $val;
-    if(_STRING($val))
+    if ( _STRING($val) )
     {
-       $val =~ m/(?:true|on|yes)/i and return 1;
+        $val =~ m/(?:true|on|yes)/i and return 1;
     }
 
     return 0;
index a66d919..370d5c7 100644 (file)
@@ -21,12 +21,12 @@ sub check_response
     my ( $self, $check, $mech ) = @_;
 
     my $text_require = $self->get_check_value( $check, "text_require" );
-    my $text_forbid = $self->get_check_value( $check, "text_forbid" );
+    my $text_forbid  = $self->get_check_value( $check, "text_forbid" );
     my $ignore_case = $self->get_check_value_as_bool( $check, "ignore_case" );
     my $content = $mech->is_html() ? $mech->text() : $mech->content();
 
     _ARRAY0($text_require) or $text_require = [$text_require];
-    _ARRAY0($text_forbid) or $text_forbid = [$text_forbid];
+    _ARRAY0($text_forbid)  or $text_forbid  = [$text_forbid];
 
     my @match_fails;
     my $code = 0;
@@ -34,30 +34,38 @@ sub check_response
     my @msg;
     foreach my $text_line ( @{$text_require} )
     {
-       if ( $content !~ m/$case_ign\Q$text_line\E/ )
-       {
-           my $err_code = $self->get_check_value( $check, "text_require_code" ) // 1;
-           $code = &{ $check->{compute_code} }( $code, $err_code );
-           push( @match_fails, $text_line );
-       }
+        if ( $content !~ m/$case_ign\Q$text_line\E/ )
+        {
+            my $err_code = $self->get_check_value( $check, "text_require_code" ) // 1;
+            $code = &{ $check->{compute_code} }( $code, $err_code );
+            push( @match_fails, $text_line );
+        }
     }
-    @match_fails and push(@msg, "required text " . join( ", ", map { "'" . $_ . "'" } @match_fails ) . " not found in received content");
+    @match_fails
+      and push( @msg,
+                    "required text "
+                  . join( ", ", map { "'" . $_ . "'" } @match_fails )
+                  . " not found in received content" );
 
     @match_fails = ();
     foreach my $text_line ( @{$text_forbid} )
     {
-       if ( $content =~ m/$case_ign\Q$text_line\E/ )
-       {
-           my $err_code = $self->get_check_value( $check, "text_forbid_code" ) // 1;
-           $code = &{ $check->{compute_code} }( $code, $err_code );
-           push( @match_fails, $text_line );
-       }
+        if ( $content =~ m/$case_ign\Q$text_line\E/ )
+        {
+            my $err_code = $self->get_check_value( $check, "text_forbid_code" ) // 1;
+            $code = &{ $check->{compute_code} }( $code, $err_code );
+            push( @match_fails, $text_line );
+        }
     }
-    @match_fails and push(@msg, "forbidden text " . join( ", ", map { "'" . $_ . "'" } @match_fails ) . " found in received content");
+    @match_fails
+      and push( @msg,
+                    "forbidden text "
+                  . join( ", ", map { "'" . $_ . "'" } @match_fails )
+                  . " found in received content" );
 
-    if( $code or @msg )
+    if ( $code or @msg )
     {
-       return ($code, @msg);
+        return ( $code, @msg );
     }
 
     return (0);
index dc20b0c..8add76b 100644 (file)
@@ -93,10 +93,10 @@ sub load_config
               );
 
     # find config file
-    my @cfg_dirs    = uniq map { realpath($_) } config_dirs();
-    my $progname    = fileparse( $0, qr/\.[^.]*$/ );
-    my @cfg_pattern = map { ($progname . "." . $_, "check_web." . $_) } Config::Any->extensions();
-    my @cfg_files   = File::Find::Rule->file()->name(@cfg_pattern)->maxdepth(1)->in(@cfg_dirs);
+    my @cfg_dirs = uniq map { realpath($_) } config_dirs();
+    my $progname = fileparse( $0, qr/\.[^.]*$/ );
+    my @cfg_pattern = map { ( $progname . "." . $_, "check_web." . $_ ) } Config::Any->extensions();
+    my @cfg_files = File::Find::Rule->file()->name(@cfg_pattern)->maxdepth(1)->in(@cfg_dirs);
     if (@cfg_files)
     {
         my $merger = Hash::Merge->new('LEFT_PRECEDENT');
@@ -152,8 +152,9 @@ sub find_scripts
         else
         {
             my ( $volume, $directories, $fn ) = File::Spec->splitpath($pattern);
-            my @script_pattern = $fn =~ m/\.[^.]*$/ ? ($fn) : map  { $fn . "." . $_ } Config::Any->extensions();
-            my @script_dirs    = grep { -d $_ }
+            my @script_pattern =
+              $fn =~ m/\.[^.]*$/ ? ($fn) : map { $fn . "." . $_ } Config::Any->extensions();
+            my @script_dirs = grep { -d $_ }
               map { File::Spec->catdir( $_, $directories ) } @cfg_dirs;
             push( @script_filenames,
                   File::Find::Rule->file()->name(@script_pattern)->maxdepth(1)->in(@script_dirs) );