X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=c5294bddfd6593b3286a95c25fde00794a6ea74d;hb=784ab0e42f27feccdf30543d909352ae8657cbeb;hp=510411cb44fe7367887e0b81d6768ce5f66bd4f6;hpb=37553dc8c4a1b2113be2f2bc7b3bb701f76bb524;p=catagits%2FCatalyst-Runtime.git
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 510411c..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;
@@ -36,7 +38,7 @@ our $DETACH = "catalyst_detach\n";
require Module::Pluggable::Fast;
# Helper script generation
-our $CATALYST_SCRIPT_GEN = 7;
+our $CATALYST_SCRIPT_GEN = 8;
__PACKAGE__->mk_classdata($_)
for qw/components arguments dispatcher engine log/;
@@ -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.
@@ -500,9 +510,17 @@ Contains the return value of the last executed action.
Returns a hashref containing all your data.
- $c->stash->{foo} ||= 'yada';
print $c->stash->{foo};
+Keys may be set in the stash by assigning to the hash reference, or by passing
+either a single hash reference or a list of key/value pairs as arguments.
+
+For example:
+
+ $c->stash->{foo} ||= 'yada';
+ $c->stash( { moose => 'majestic', qux => 0 } );
+ $c->stash( bar => 1, gorch => 2 );
+
=cut
sub stash {
@@ -516,6 +534,146 @@ sub stash {
return $c->{stash};
}
+=item $c->welcome_message
+
+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 $prefix = Catalyst::Utils::appprefix( ref $c );
+ return <<"EOF";
+
+
+
+
+
+
+
+
+
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.
+
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::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.
+
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?
+
Catalyst has a very active community. Here are the main places to
+ get in touch with us.
+
+
In conclusion
+
The Catalyst team hope you will enjoy using Catalyst as much
+ as we enjoyed making it. Please contact us if you have ideas
+ for improvement or other feedback.
+
+
+
+
+EOF
+}
+
=back
=head1 INTERNAL METHODS
@@ -592,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}--;
@@ -1462,6 +1621,10 @@ Andy Grundman
Andy Wardley
+Andreas Marienborg
+
+Andrew Bramble
+
Andrew Ford
Andrew Ruthven
@@ -1514,8 +1677,8 @@ Sebastian Riedel, C