[Catalyst-commits] r6610 - in trunk/Catalyst-Runtime/lib: .
Catalyst Catalyst/Engine Catalyst/Manual
bricas at dev.catalyst.perl.org
bricas at dev.catalyst.perl.org
Thu Aug 2 15:28:20 GMT 2007
Author: bricas
Date: 2007-08-02 15:28:20 +0100 (Thu, 02 Aug 2007)
New Revision: 6610
Modified:
trunk/Catalyst-Runtime/lib/Catalyst.pm
trunk/Catalyst-Runtime/lib/Catalyst/Action.pm
trunk/Catalyst-Runtime/lib/Catalyst/Component.pm
trunk/Catalyst-Runtime/lib/Catalyst/Controller.pm
trunk/Catalyst-Runtime/lib/Catalyst/Engine/FastCGI.pm
trunk/Catalyst-Runtime/lib/Catalyst/Engine/HTTP.pm
trunk/Catalyst-Runtime/lib/Catalyst/Manual/Installation.pod
trunk/Catalyst-Runtime/lib/Catalyst/Request.pm
trunk/Catalyst-Runtime/lib/Catalyst/Utils.pm
Log:
tabs => spaces
Modified: trunk/Catalyst-Runtime/lib/Catalyst/Action.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Action.pm 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Action.pm 2007-08-02 14:28:20 UTC (rev 6610)
@@ -10,8 +10,8 @@
=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 @@
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
Modified: trunk/Catalyst-Runtime/lib/Catalyst/Component.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Component.pm 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Component.pm 2007-08-02 14:28:20 UTC (rev 6610)
@@ -60,7 +60,7 @@
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 @@
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 @@
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
Modified: trunk/Catalyst-Runtime/lib/Catalyst/Controller.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Controller.pm 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Controller.pm 2007-08-02 14:28:20 UTC (rev 6610)
@@ -18,8 +18,8 @@
use base qw/Catalyst::Controller;
sub foo : Local {
- my ($self,$c, at args) = @_;
- ...
+ my ($self,$c, at args) = @_;
+ ...
} # Dispatches to /search/foo
=head1 DESCRIPTION
Modified: trunk/Catalyst-Runtime/lib/Catalyst/Engine/FastCGI.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Engine/FastCGI.pm 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Engine/FastCGI.pm 2007-08-02 14:28:20 UTC (rev 6610)
@@ -97,7 +97,7 @@
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,
Modified: trunk/Catalyst-Runtime/lib/Catalyst/Engine/HTTP.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Engine/HTTP.pm 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Engine/HTTP.pm 2007-08-02 14:28:20 UTC (rev 6610)
@@ -149,15 +149,15 @@
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";
Modified: trunk/Catalyst-Runtime/lib/Catalyst/Manual/Installation.pod
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Manual/Installation.pod 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Manual/Installation.pod 2007-08-02 14:28:20 UTC (rev 6610)
@@ -98,8 +98,8 @@
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.
Modified: trunk/Catalyst-Runtime/lib/Catalyst/Request.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Request.pm 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Request.pm 2007-08-02 14:28:20 UTC (rev 6610)
@@ -99,12 +99,12 @@
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 @@
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>
Modified: trunk/Catalyst-Runtime/lib/Catalyst/Utils.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst/Utils.pm 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst/Utils.pm 2007-08-02 14:28:20 UTC (rev 6610)
@@ -23,7 +23,7 @@
=head2 appprefix($class)
- MyApp::Foo becomes myapp_foo
+ MyApp::Foo becomes myapp_foo
=cut
Modified: trunk/Catalyst-Runtime/lib/Catalyst.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst.pm 2007-08-02 14:18:21 UTC (rev 6609)
+++ trunk/Catalyst-Runtime/lib/Catalyst.pm 2007-08-02 14:28:20 UTC (rev 6610)
@@ -111,7 +111,7 @@
### 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 @@
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 @@
"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 {
More information about the Catalyst-commits
mailing list