diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-02 13:24:52 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-02 13:24:52 +0200 |
| commit | 3f3ff5052101e26eb4c35c61637951f97b284c49 (patch) | |
| tree | fa2f806e293570b6d05f6101c70a6e8c0bfc4a47 /lib/MooseX/Net | |
| parent | fix version number (diff) | |
| download | net-http-api-3f3ff5052101e26eb4c35c61637951f97b284c49.tar.gz | |
clean
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/Net/API/Meta/Method.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/MooseX/Net/API/Meta/Method.pm b/lib/MooseX/Net/API/Meta/Method.pm index 03e0612..3f77d08 100644 --- a/lib/MooseX/Net/API/Meta/Method.pm +++ b/lib/MooseX/Net/API/Meta/Method.pm @@ -2,12 +2,12 @@ package MooseX::Net::API::Meta::Method; use Moose; use MooseX::Net::API::Error; +use Moose::Util::TypeConstraints; + use MooseX::Types::Moose qw/Str Int ArrayRef/; extends 'Moose::Meta::Method'; -use Moose::Util::TypeConstraints; - subtype UriPath => as 'Str' => where { $_ =~ m!^/! } => message {"path must start with /"}; @@ -104,6 +104,7 @@ sub wrap { }; $args{body} = $code; } + $class->SUPER::wrap(%args); } |