=head2 $self->list($c)
+Debug output for Path dispatch points
+
=cut
sub list {
=head2 $self->match( $c, $path )
+Check for paths that match the given path.
+
=cut
sub match {
=head2 $self->register( $c, $action )
+Call register_path for every path attribute in the given $action.
+
=cut
sub register {
my ( $self, $c, $action ) = @_;
- my @register = @{$action->attributes->{Path}||[]};
+ my @register = @{ $action->attributes->{Path} || [] };
$self->register_path( $c, $_, $action ) for @register;
=head2 $self->register_path($c, $path, $action)
+register an action at a given path.
+
=cut
sub register_path {
$path =~ s!^/!!;
$path = '/' unless length $path;
$path = URI->new($path)->canonical;
+
$self->{paths}{$path} = $action;
}