X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FBase.pm;h=1e1d5851bf932f21d4bec7d9f3c307d420820f09;hb=146554c575f7f9fda102985196e0b6b364847bc0;hp=abe23e9cc03bfbf8ca7dd8166044f9ad6acdbfcf;hpb=ac73326467a355b37917b030d8413c4838468aee;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm index abe23e9..1e1d585 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 __PACKAGE__." did not override process."; } + +=back =head1 SEE ALSO @@ -104,6 +106,7 @@ L. =head1 AUTHOR Sebastian Riedel, C +Marcus Ramberg, C =head1 COPYRIGHT