diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-08 11:04:48 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-08 11:04:48 +0200 |
| commit | 0b538d459f71326033edb95eca03a5665487bb51 (patch) | |
| tree | 6b0a28ac1a078bb86eff97042595432295103d94 | |
| parent | remove http-console (diff) | |
| download | net-http-api-0b538d459f71326033edb95eca03a5665487bb51.tar.gz | |
want exact match
| -rw-r--r-- | lib/MooseX/Net/API/Meta/Method/APIMethod.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm index 791c8f8..f1e4ff2 100644 --- a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm +++ b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm @@ -23,7 +23,7 @@ has local_net_api_methods => ( sub find_net_api_method_by_name { my ($meta, $name) = @_; - my $method_name = $meta->_find_net_api_method_by_name(sub{/$name/}); + my $method_name = $meta->_find_net_api_method_by_name(sub{/^$name$/}); return unless $method_name; my $method = $meta->find_method_by_name($method_name); if ($method->isa('Class::MOP::Method::Wrapped')) { |