X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=c5294bddfd6593b3286a95c25fde00794a6ea74d;hp=0d2f091abd556b22a8e3ebee11b59118e13f5e14;hb=ae9556190adec21134aa2ad4f52bc961bd3e28c8;hpb=2c63fc071ea38e61f4bb9b176ba22058df798b36
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 0d2f091..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.
@@ -531,9 +541,10 @@ Returns the Catalyst welcome HTML page.
=cut
sub welcome_message {
- my $c = shift;
- my $name = $c->config->{name};
- my $logo = $c->uri_for('/static/images/catalyst_logo.png');
+ my $c = shift;
+ my $name = $c->config->{name};
+ my $logo = $c->uri_for('/static/images/catalyst_logo.png');
+ my $prefix = Catalyst::Utils::appprefix( ref $c );
return <<"EOF";
@@ -616,41 +627,26 @@ 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.
What to do now?
That really depends on what you want to do.
We do, however, provide you with a few starting points.
If you want to jump right into web development with Catalyst
you might want to check out the documentation.
- perldoc Catalyst::Manual
-perldoc Catalyst::Manual::Intro
- If you would like some background information on the
- MVC-pattern, these links might be of help to you.
-
+ perldoc Catalyst::Manual::Intro
+perldoc Catalyst::Manual
What to do next?
Next it's time to write an actual application. Use the
- helper scripts to generate controllers, models and views, they
- can save you a lot of work. Also, be sure to check out the vast
- and growing collection of plugins for Catalyst on CPAN, you are
- likely to find what you need there.
+ helper scripts to generate controllers,
+ models and
+ views,
+ they can save you a lot of work.
+ script/${prefix}_create.pl -help
+ Also, be sure to check out the vast and growing
+ collection of plugins for Catalyst on CPAN,
+ you are likely to find what you need there.
Need help?
@@ -754,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}--;
@@ -1680,8 +1677,8 @@ Sebastian Riedel, C
=head1 LICENSE
-This library is free software . You can redistribute it and/or modify it under
-the same terms as perl itself.
+This library is free software, you can redistribute it and/or modify it under
+the same terms as Perl itself.
=cut