From 3f3ff5052101e26eb4c35c61637951f97b284c49 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 2 Jun 2010 13:24:52 +0200 Subject: clean --- lib/MooseX/Net/API/Meta/Method.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/MooseX/Net/API') 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); } -- cgit 1.4.1