projects / catagits/Catalyst-Runtime.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw (parent: cccc8f6)
tabs => spaces
Brian Cassidy [Thu, 2 Aug 2007 14:28:20 +0000 (14:28 +0000)]
lib/Catalyst.pm patch | blob | blame | history
lib/Catalyst/Action.pm patch | blob | blame | history
lib/Catalyst/Component.pm patch | blob | blame | history
lib/Catalyst/Controller.pm patch | blob | blame | history
lib/Catalyst/Engine/FastCGI.pm patch | blob | blame | history
lib/Catalyst/Engine/HTTP.pm patch | blob | blame | history
lib/Catalyst/Manual/Installation.pod patch | blob | blame | history
lib/Catalyst/Request.pm patch | blob | blame | history
lib/Catalyst/Utils.pm patch | blob | blame | history

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index de2f188..6f1848a 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -111,7 +111,7 @@ documentation and tutorials.
     ### in lib/MyApp.pm
     use Catalyst qw/-Debug/; # include plugins here as well
     
-       ### In lib/MyApp/Controller/Root.pm (autocreated)
+    ### In lib/MyApp/Controller/Root.pm (autocreated)
     sub foo : Global { # called for /foo, /foo/1, /foo/1/2, etc.
         my ( $self, $c, @args ) = @_; # args are qw/1 2/ for /foo/1/2
         $c->stash->{template} = 'foo.tt'; # set the template
@@ -345,7 +345,7 @@ sub stash {
     my $c = shift;
     if (@_) {
         my $stash = @_ > 1 ? {@_} : $_[0];
-       croak('stash takes a hash or hashref') unless ref $stash;
+        croak('stash takes a hash or hashref') unless ref $stash;
         foreach my $key ( keys %$stash ) {
             $c->{stash}->{$key} = $stash->{$key};
         }
@@ -993,8 +993,8 @@ sub welcome_message {
     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
     <head>
-       <meta http-equiv="Content-Language" content="en" />
-       <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+    <meta http-equiv="Content-Language" content="en" />
+    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
         <title>$name on Catalyst $VERSION</title>
         <style type="text/css">
             body {
diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm
index a4f5eb4..01c0564 100644 (file)
--- a/lib/Catalyst/Action.pm
+++ b/lib/Catalyst/Action.pm
@@ -10,8 +10,8 @@ Catalyst::Action - Catalyst Action
 
 =head1 SYNOPSIS
 
-       <form action="[%c.uri_for(c.action.reverse)%]">
-       
+    <form action="[%c.uri_for(c.action.reverse)%]">
+
 =head1 DESCRIPTION
 
 This class represents a Catalyst Action. You can access the object for the 
@@ -109,4 +109,4 @@ Matt S. Trout
 This program is free software, you can redistribute it and/or modify it under
 the same terms as Perl itself.
 
-=cut
\ No newline at end of file
+=cut
diff --git a/lib/Catalyst/Component.pm b/lib/Catalyst/Component.pm
index 9926298..62ab066 100644 (file)
--- a/lib/Catalyst/Component.pm
+++ b/lib/Catalyst/Component.pm
@@ -60,7 +60,7 @@ sub new {
     my $arguments = ( ref( $_[-1] ) eq 'HASH' ) ? $_[-1] : {};
 
     return $self->NEXT::new( 
-               $self->merge_config_hashes( $self->config, $arguments ) );
+        $self->merge_config_hashes( $self->config, $arguments ) );
 }
 
 sub COMPONENT {
@@ -79,7 +79,7 @@ sub COMPONENT {
         else {
             my $class = ref $self || $self;
             my $new   = $self->merge_config_hashes( 
-                               $self->config, $arguments );
+                $self->config, $arguments );
             return bless $new, $class;
         }
     }
@@ -184,4 +184,4 @@ Matt S Trout, C<mst@shadowcatsystems.co.uk>
 This program is free software, you can redistribute it and/or modify it under
 the same terms as Perl itself.
 
-=cut
\ No newline at end of file
+=cut
diff --git a/lib/Catalyst/Controller.pm b/lib/Catalyst/Controller.pm
index 78a60a6..4becc00 100644 (file)
--- a/lib/Catalyst/Controller.pm
+++ b/lib/Catalyst/Controller.pm
@@ -18,8 +18,8 @@ Catalyst::Controller - Catalyst Controller base class
   use base qw/Catalyst::Controller;
 
   sub foo : Local { 
-       my ($self,$c,@args) = @_;
-       ... 
+    my ($self,$c,@args) = @_;
+    ... 
   } # Dispatches to /search/foo
 
 =head1 DESCRIPTION
diff --git a/lib/Catalyst/Engine/FastCGI.pm b/lib/Catalyst/Engine/FastCGI.pm
index 8058a2d..1ac5a35 100644 (file)
--- a/lib/Catalyst/Engine/FastCGI.pm
+++ b/lib/Catalyst/Engine/FastCGI.pm
@@ -97,7 +97,7 @@ sub run {
     my %env;
     my $error = \*STDERR; # send STDERR to the web server
        $error = \*STDOUT  # send STDERR to stdout (a logfile)
-        if $options->{keep_stderr}; # (if asked to)
+         if $options->{keep_stderr}; # (if asked to)
     
     my $request =
       FCGI::Request( \*STDIN, \*STDOUT, $error, \%env, $sock,
diff --git a/lib/Catalyst/Engine/HTTP.pm b/lib/Catalyst/Engine/HTTP.pm
index f4fef51..497ab90 100644 (file)
--- a/lib/Catalyst/Engine/HTTP.pm
+++ b/lib/Catalyst/Engine/HTTP.pm
@@ -149,15 +149,15 @@ Writes the buffer to the client. Can only be called once for a request.
 sub write {
     my ( $self, $c, $buffer ) = @_;
     
-       # Avoid 'print() on closed filehandle Remote' warnings when using IE
-       return unless *STDOUT->opened();
-       
-       my $ret;
-       
-       # Prepend the headers if they have not yet been sent
-       if ( my $headers = delete $self->{_header_buf} ) {
-           DEBUG && warn "write: Wrote headers and first chunk (" . length($headers . $buffer) . " bytes)\n";
-           $ret = $self->NEXT::write( $c, $headers . $buffer );
+    # Avoid 'print() on closed filehandle Remote' warnings when using IE
+    return unless *STDOUT->opened();
+
+    my $ret;
+
+    # Prepend the headers if they have not yet been sent
+    if ( my $headers = delete $self->{_header_buf} ) {
+        DEBUG && warn "write: Wrote headers and first chunk (" . length($headers . $buffer) . " bytes)\n";
+        $ret = $self->NEXT::write( $c, $headers . $buffer );
     }
     else {
         DEBUG && warn "write: Wrote chunk (" . length($buffer) . " bytes)\n";
diff --git a/lib/Catalyst/Manual/Installation.pod b/lib/Catalyst/Manual/Installation.pod
index 58e4845..cb1343a 100644 (file)
--- a/lib/Catalyst/Manual/Installation.pod
+++ b/lib/Catalyst/Manual/Installation.pod
@@ -98,8 +98,8 @@ CPAN
 The traditional way to install Catalyst is directly from CPAN using the
 C<Task::Catalyst> bundle and C<Catalyst::Devel>:
 
-       $ perl -MCPAN -e 'install Task::Catalyst'
-       $ perl -MCPAN -e 'install Catalyst::Devel'
+    $ perl -MCPAN -e 'install Task::Catalyst'
+    $ perl -MCPAN -e 'install Catalyst::Devel'
 
 Unless you have a particularly complete set of Perl modules already
 installed, be prepared for a large number of nested dependencies.
diff --git a/lib/Catalyst/Request.pm b/lib/Catalyst/Request.pm
index 074e350..24e39bf 100644 (file)
--- a/lib/Catalyst/Request.pm
+++ b/lib/Catalyst/Request.pm
@@ -99,11 +99,11 @@ Returns a reference to an array containing the arguments.
 
 For example, if your action was
 
-       package MyApp::C::Foo;
-       
-       sub moose : Local {
-               ...
-       }
+    package MyApp::C::Foo;
+
+    sub moose : Local {
+        ...
+    }
 
 and the URI for the request was C<http://.../foo/moose/bah>, the string C<bah>
 would be the first and only argument.
@@ -281,7 +281,7 @@ is an alternative method for accessing parameters in $c->req->parameters.
 Like L<CGI>, and B<unlike> earlier versions of Catalyst, passing multiple
 arguments to this method, like this:
 
-       $c->request->param( 'foo', 'bar', 'gorch', 'quxx' );
+    $c->request->param( 'foo', 'bar', 'gorch', 'quxx' );
 
 will set the parameter C<foo> to the multiple values C<bar>, C<gorch> and
 C<quxx>. Previously this would have added C<bar> as another value to C<foo>
diff --git a/lib/Catalyst/Utils.pm b/lib/Catalyst/Utils.pm
index 60f2708..0598f53 100644 (file)
--- a/lib/Catalyst/Utils.pm
+++ b/lib/Catalyst/Utils.pm
@@ -23,7 +23,7 @@ See L<Catalyst>.
 
 =head2 appprefix($class)
 
-       MyApp::Foo becomes myapp_foo
+    MyApp::Foo becomes myapp_foo
 
 =cut
 
The Perl MVC Framework (catagits@git.shadowcat.co.uk:Catalyst-Runtime.git)