X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=b7bb450d67408523b6e23799bfd2b3d63e7eb540;hp=b103d9a2dacd291804a588c8204b323e7868908a;hb=00e6a2b71197b3b79b6d62a1c8154b7ca6702d2f;hpb=bf1f2c60b9a7191134cb962aeb1c98fe1f1ea372
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index b103d9a..b7bb450 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;
@@ -43,6 +45,8 @@ __PACKAGE__->mk_classdata($_)
our $VERSION = '5.49_01';
+sub version { return $Catalyst::VERSION }
+
sub import {
my ( $class, @arguments ) = @_;
@@ -167,6 +171,10 @@ Specify log level.
=over 4
+=item $c->action
+
+Accessor for the current action
+
=item $c->comp($name)
=item $c->component($name)
@@ -251,6 +259,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.
@@ -379,27 +391,33 @@ sub setup {
$class->log->_flush() if $class->log->can('_flush');
}
-=item $c->uri_for($path)
+=item $c->uri_for($path,[@args])
Merges path with $c->request->base for absolute uri's and with
$c->request->match for relative uri's, then returns a normalized
-L
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.
@@ -747,7 +772,9 @@ sub execute { 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 +1693,7 @@ Sebastian Riedel, C