X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType.pm;h=e8858240d8a4616b35a8e50735ace4c67c7471e7;hb=2361ed675dadcf78697c63b6ec89456c5c3c18dc;hp=ba676c90101d5505b295ece2d36b63d798a8b69d;hpb=ea0e58d9d85d93bf94c3ffa6b4d7b71b200bbdf1;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/DispatchType.pm b/lib/Catalyst/DispatchType.pm index ba676c9..e885824 100644 --- a/lib/Catalyst/DispatchType.pm +++ b/lib/Catalyst/DispatchType.pm @@ -1,7 +1,8 @@ package Catalyst::DispatchType; -use strict; -use base 'Class::Accessor::Fast'; +use Moose; +#use strict; +#use base 'Class::Accessor::Fast'; =head1 NAME @@ -13,6 +14,8 @@ See L. =head1 DESCRIPTION +This is an abstract base class for Dispatch Types. + =head1 METHODS =head2 $self->list($c) @@ -36,7 +39,7 @@ sub match { die "Abstract method!" } =head2 $self->register( $c, $action ) abstract method, to be implemented by dispatchtypes. Takes a -context object and a L object. +context object and a L object. Should return true if it registers something, or false otherwise.