use strict;
use base qw/Catalyst::DispatchType/;
use Text::SimpleTable;
+use URI;
=head1 NAME
$path ||= '/';
if ( my $action = $self->{paths}->{$path} ) {
+ return 0 unless $action->match($c);
$c->req->action($path);
$c->req->match($path);
$c->action($action);
my ( $self, $c, $path, $action ) = @_;
$path =~ s!^/!!;
$path = '/' unless length $path;
+ $path = URI->new($path)->canonical;
$self->{paths}{$path} = $action;
}