diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-04 10:15:45 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-04 10:15:45 +0200 |
| commit | 6685b87533d35500ecba3cb72be78bd2f366e9c4 (patch) | |
| tree | 68fa4d1b8047581a8c91262c49647072b79aede6 | |
| parent | update dist.ini (diff) | |
| download | net-http-api-6685b87533d35500ecba3cb72be78bd2f366e9c4.tar.gz | |
fix bug whit remaining params in url
| -rw-r--r-- | lib/MooseX/Net/API/Meta/Method.pm | 3 | ||||
| -rw-r--r-- | t/lib/TestAPI.pm | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lib/MooseX/Net/API/Meta/Method.pm b/lib/MooseX/Net/API/Meta/Method.pm index 62b4869..521a802 100644 --- a/lib/MooseX/Net/API/Meta/Method.pm +++ b/lib/MooseX/Net/API/Meta/Method.pm @@ -170,9 +170,10 @@ sub _build_path { $path =~ s/(?:\$|:)$match/$value/; } if ($max_iter > $i) { - $path =~ s/(?:\$|:)(\w+)//; + $path =~ s/(?:\/)?(?:\$|:)(\w+)$//; } } + $path =~ s/(?:\/)?(?:\$|:)(\w+)$//; return $path; } diff --git a/t/lib/TestAPI.pm b/t/lib/TestAPI.pm index 1e8bf97..a2aed55 100644 --- a/t/lib/TestAPI.pm +++ b/t/lib/TestAPI.pm @@ -16,8 +16,8 @@ net_api_method users => ( net_api_method user => ( method => 'GET', - path => '/user/:user_name', - params => [qw/user_name/], + path => '/user/:user_name/:last_name', + params => [qw/user_name last_name/], required => [qw/user_name/], expected => [qw/200/], ); |