package Catalyst::Component;
use strict;
-use base qw/Class::Data::Inheritable/;
+use base qw/Class::Accessor::Fast Class::Data::Inheritable/;
use NEXT;
__PACKAGE__->mk_classdata($_) for qw/_config/;
# lib/MyApp/Model/Something.pm
package MyApp::Model::Something;
- use base 'Catalyst::Base';
+ use base 'Catalyst::Component';
__PACKAGE__->config( foo => 'bar' );
=head1 METHODS
-=over 4
-
-=item new($c)
+=head2 new($c)
=cut
return $self->NEXT::new( { %{ $self->config }, %{$arguments} } );
}
-# remember to leave blank lines between the consecutive =item's
-# otherwise the pod tools don't recognize the subsequent =items
+# remember to leave blank lines between the consecutive =head2's
+# otherwise the pod tools don't recognize the subsequent =head2s
-=item $c->config
+=head2 $c->config
-=item $c->config($hashref)
+=head2 $c->config($hashref)
-=item $c->config($key, $value, ...)
+=head2 $c->config($key, $value, ...)
=cut
return $self->_config;
}
-=item $c->process()
+=head2 $c->process()
=cut
. " did not override Catalyst::Component::process" );
}
-=back
-
=head1 SEE ALSO
-L<Catalyst>.
+L<Catalyst>, L<Catalyst::Model>, L<Catalyst::View>, L<Catalyst::Controller>.
=head1 AUTHOR