X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType.pm;h=06905ad3fb03a2654b298837c34fd2e0be90aa3e;hp=ba676c90101d5505b295ece2d36b63d798a8b69d;hb=38007d99db1774891d373242c86382e6f5cb083a;hpb=ea0e58d9d85d93bf94c3ffa6b4d7b71b200bbdf1 diff --git a/lib/Catalyst/DispatchType.pm b/lib/Catalyst/DispatchType.pm index ba676c9..06905ad 100644 --- a/lib/Catalyst/DispatchType.pm +++ b/lib/Catalyst/DispatchType.pm @@ -1,7 +1,7 @@ package Catalyst::DispatchType; -use strict; -use base 'Class::Accessor::Fast'; +use Moose; # using it to add Moose::Object to @ISA ... +no Moose; =head1 NAME @@ -13,6 +13,8 @@ See L. =head1 DESCRIPTION +This is an abstract base class for Dispatch Types. + =head1 METHODS =head2 $self->list($c) @@ -56,10 +58,11 @@ arrayref, or undef if unable to do so. sub uri_for_action { } -=head1 AUTHOR +sub expand_action { } + +=head1 AUTHORS -Matt S Trout -Sebastian Riedel, C +Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT @@ -68,4 +71,6 @@ the same terms as Perl itself. =cut +__PACKAGE__->meta->make_immutable; + 1;