X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FBase.pm;h=a79cfa2e2e545ed9eea6b49dbb4afc4ee8c3594b;hb=42a57832aea5e5c4684d534aa7d133c15aac4b42;hp=abe23e9cc03bfbf8ca7dd8166044f9ad6acdbfcf;hpb=ac73326467a355b37917b030d8413c4838468aee;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm index abe23e9..a79cfa2 100644 --- a/lib/Catalyst/Base.pm +++ b/lib/Catalyst/Base.pm @@ -7,6 +7,7 @@ use NEXT; __PACKAGE__->mk_classdata($_) for qw/_cache _config/; __PACKAGE__->_cache( [] ); +# note - see attributes(3pm) sub MODIFY_CODE_ATTRIBUTES { my ( $class, $code, @attrs ) = @_; push @{ $class->_cache }, [ $code, [@attrs] ]; @@ -40,7 +41,6 @@ Catalyst::Base - Catalyst Universal Base Class # Methods can be a request step $c->forward(qw/MyApp::Model::Something forward_to_me/); - MyApp->action( 'index.html' => \&MyApp::Model::Something::forward_to_me ); # Or just methods print $c->comp('MyApp::Model::Something')->test; @@ -95,7 +95,9 @@ sub config { =cut -sub process { 1 } +sub process { die ((ref $_[0] || $_[0])." did not override Catalyst::Base::process"); } + +=back =head1 SEE ALSO @@ -104,6 +106,7 @@ L. =head1 AUTHOR Sebastian Riedel, C +Marcus Ramberg, C =head1 COPYRIGHT