View difference between Paste ID: 9xGMyMmX and CUGjuDCt

 #!/usr/bin/env perl
 
 package HelloWorld;
 use Web::Simple;
 use Params::Validate qw(:all);
 
 use JSON;
 
 sub status_ok {
     my %p    = Params::Validate::validate( @_, { entity => 1, }, );
 
     return [ 200, [ 'Content-type', 'application/json' ], [ encode_json($p{entity}) ] ];
 }
 
 sub status_bad_request {
     my %p    = Params::Validate::validate( @_, { message => { type => SCALAR }, }, );
 
 		return [ 400, [ 'Content-type', 'application/json' ], [ encode_json({error => $p{message}}) ] ];
 }
 
 sub dispatch_request {
 	sub (GET) {
 		my $resposta = { ola => 'rest', linhas => [ { a => 1}, { a => 2} ] };
 
 		return status_ok( entity => $resposta);
 	},
-	sub (GET + /user/*) {
+	sub (/user/*/...) {
     my ($self, $user_id) = @_;
 
 		# essa sub retorna mais 2 subs
 		sub (PUT + /endereco/*) {
        my ($self, $endereco) = @_;
 
 				return status_ok( entity => { msg => "endereco do $user_id atualizado para $endereco" } );
 		},
 		sub (DELETE + /endereco/*) {
        my ($self, $endereco) = @_;
 
 				return status_ok( entity => { msg => "endereco $endereco do $user_id foi removido" } );
 		}
   },
 	sub () {
 		return status_bad_request( message => 'metodo nao suportado'	);
 	}
 }
 
 HelloWorld->run_if_script;