}
sub _build_dispatch_parser {
- require Web::Simple::DispatchParser;
- return Web::Simple::DispatchParser->new;
+ require Web::Dispatch::Parser;
+ return Web::Dispatch::Parser->new;
}
sub _cannot_call_twice {
my $parser = $class->_build_dispatch_parser;
my $matcher = (
defined($proto) && length($proto)
- ? $parser->parse_dispatch_specification($proto)
+ ? $parser->parse($proto)
: sub { ({}, $_[1]) }
);
return $class->_build_dispatcher({