#!/usr/bin/perl --
BEGIN{$ENV{PATH_ROUTER_DEBUG}=999;}
use Path::Router;
use Data::Dump qw/ dd pp /;
my $router = Path::Router->new;
push @{ $router->{routes} }, bless({
  components => ["a", "b.", ":c"],
  defaults => {},
  path => "/a/b.:c",
  validations => { c},
}, "Path::Router::Route");
my $route = 'a/b.json';
dd( $route => scalar( $router->match( $route ) ) );
__END__
Attempting to match /a/b.:c against a/b.json   regexp is (?:a(?:\/b.(?:\/([^\/]+))))
match failed
("a/b.json", undef)