cleaned up code with latest version of perltidy

mojolicious · Jul 2, 2012 · f9cac0b · f9cac0b
1 parent 1a8e022
commit f9cac0b
Show file tree

Hide file tree

Showing 6 changed files with 7 additions and 7 deletions.
diff --git a/lib/Mojo/Content.pm b/lib/Mojo/Content.pm
@@ -119,7 +119,7 @@ sub parse {
     $self->{real_size} += length $self->{pre_buffer};
     $self->{buffer} .= $self->{pre_buffer}
       unless $self->is_finished
-        && length($self->{buffer}) > $self->max_leftover_size;
+      && length($self->{buffer}) > $self->max_leftover_size;
     $self->{pre_buffer} = '';
   }
 

diff --git a/lib/Mojo/Cookie/Response.pm b/lib/Mojo/Cookie/Response.pm
@@ -43,7 +43,7 @@ sub parse {
       # Attributes (Netscape and RFC 6265)
       next
         unless my @match
-          = $name =~ /^(expires|domain|path|secure|Max-Age|HttpOnly)$/msi;
+        = $name =~ /^(expires|domain|path|secure|Max-Age|HttpOnly)$/msi;
       my $attr = lc $match[0];
       $attr =~ tr/-/_/;
       $cookies[-1]->$attr($attr =~ /(?:secure|HttpOnly)/i ? 1 : $value);

diff --git a/lib/Mojo/Message/Request.pm b/lib/Mojo/Message/Request.pm
@@ -184,7 +184,7 @@ sub _build_start_line {
     $clone->userinfo(undef);
     $path = $clone
       unless lc($self->headers->upgrade || '') eq 'websocket'
-        || ($url->scheme || '') eq 'https';
+      || ($url->scheme || '') eq 'https';
   }
 
   # HTTP 0.9

diff --git a/lib/Mojolicious/Plugin/DefaultHelpers.pm b/lib/Mojolicious/Plugin/DefaultHelpers.pm
@@ -97,8 +97,8 @@ sub register {
       my $expires = $args->{expires} || 0;
       delete $memorize{$name}
         if exists $memorize{$name}
-          && $expires > 0
-          && $memorize{$name}{expires} < time;
+        && $expires > 0
+        && $memorize{$name}{expires} < time;
 
       # Memorized
       return $memorize{$name}{content} if exists $memorize{$name};

diff --git a/lib/Mojolicious/Plugin/PODRenderer.pm b/lib/Mojolicious/Plugin/PODRenderer.pm
@@ -61,7 +61,7 @@ sub register {
           my $attrs = shift->attrs;
           $attrs->{href} =~ s!%3A%3A!/!gi
             if $attrs->{href}
-              =~ s!^http\://search\.cpan\.org/perldoc\?!$perldoc!;
+            =~ s!^http\://search\.cpan\.org/perldoc\?!$perldoc!;
         }
       );
 

diff --git a/t/mojolicious/lite_app.t b/t/mojolicious/lite_app.t
@@ -288,7 +288,7 @@ post '/with/body/and/headers/desc' => sub {
   my $self = shift;
   return
     if $self->req->headers->header('with') ne 'header'
-      || $self->req->body ne 'body';
+    || $self->req->body ne 'body';
   $self->render_text('bar');
 };