X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=c5294bddfd6593b3286a95c25fde00794a6ea74d;hb=784ab0e42f27feccdf30543d909352ae8657cbeb;hp=b103d9a2dacd291804a588c8204b323e7868908a;hpb=bf1f2c60b9a7191134cb962aeb1c98fe1f1ea372;p=catagits%2FCatalyst-Runtime.git
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index b103d9a..c5294bd 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -17,7 +17,9 @@ use Time::HiRes qw/gettimeofday tv_interval/;
use URI;
use Scalar::Util qw/weaken/;
-__PACKAGE__->mk_accessors(qw/counter depth request response state/);
+__PACKAGE__->mk_accessors(
+ qw/counter depth request response state action namespace/
+);
# Laziness++
*comp = \&component;
@@ -167,6 +169,10 @@ Specify log level.
=over 4
+=item $c->action
+
+Accessor for the current action
+
=item $c->comp($name)
=item $c->component($name)
@@ -251,6 +257,10 @@ from the function.
sub forward { my $c = shift; $c->dispatcher->forward( $c, @_ ) }
+=item $c->namespace
+
+Accessor to the namespace of the current action
+
=item $c->setup
Setup.
@@ -617,9 +627,9 @@ sub welcome_message {
Welcome to the wonderful world of Catalyst. - This MVC framework will make web development - something you had never expected it to be: - Fun, rewarding and quick.
+ This MVC + framework will make web development something you had + never expected it to be: Fun, rewarding and quick.That really depends on what you want to do. We do, however, provide you with a few starting points.
@@ -740,14 +750,15 @@ sub execute { } $c->{depth}++; eval { - if ( $c->debug ) - { + if ( $c->debug ) { my ( $elapsed, @state ) = $c->benchmark( $code, $class, $c, @{ $c->req->args } ); push @{ $c->{stats} }, [ $action, sprintf( '%fs', $elapsed ) ]; $c->state(@state); } - else { $c->state( &$code( $class, $c, @{ $c->req->args } ) || 0 ) } + else { + $c->state( &$code( $class, $c, @{ $c->req->args } ) || 0 ) + } }; $c->{depth}--; @@ -1666,7 +1677,7 @@ Sebastian Riedel, C