path-attrrouter.pl

use AnyEvent::HTTPD;
use Path::AttrRouter;

{
    package Controller;
    use base 'Path::AttrRouter::Controller';

    sub not_found :Path :Args {
        my ($self, $req) = @_;
        '404!';
    }

    sub index :Path {
        'Hello';
    }

    sub hello :Local :Args(1) {
        my ($self, $req, $target) = @_;

        "Hello $target!";
    }
}

my $httpd  = AnyEvent::HTTPD->new(port => 9090);
my $router = Path::AttrRouter->new( search_path => 'Controller' );

$router->print_table if $ENV{DEBUG};

$httpd->reg_cb (
   '' => sub {
       my ($httpd, $req) = @_;

       my $m = $router->match($req->url);
       if ($m) {
           $req->respond({ content => ['text/html', $m->dispatch($req)] });
       }
       else {
           $req->respond(
               [   404, 'not found', { 'Content-Type' => 'text/plain' },
                   'not found'
               ]
           );
       }
   },
);

$httpd->run; # making a AnyEvent condition variable would also work