From d41d8b640be7a0a364fefd30355081df69cc5cf0 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 2 Jan 2012 15:12:21 -0800 Subject: use eq and ne instead of a regex --- lib/Net/HTTP/Spore/Meta/Method/Spore.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) mode change 100644 => 100755 lib/Net/HTTP/Spore/Meta/Method/Spore.pm (limited to 'lib') diff --git a/lib/Net/HTTP/Spore/Meta/Method/Spore.pm b/lib/Net/HTTP/Spore/Meta/Method/Spore.pm old mode 100644 new mode 100755 index 9ebe5f0..b046b04 --- a/lib/Net/HTTP/Spore/Meta/Method/Spore.pm +++ b/lib/Net/HTTP/Spore/Meta/Method/Spore.pm @@ -37,14 +37,14 @@ sub find_spore_method_by_name { sub remove_spore_method { my ($meta, $name) = @_; - my @methods = grep { !/$name/ } $meta->get_all_spore_methods; + my @methods = grep { $_ ne $name } $meta->get_all_spore_methods; $meta->local_spore_methods(\@methods); $meta->remove_method($name); } before add_spore_method => sub { my ($meta, $name) = @_; - if ($meta->_find_spore_method_by_name(sub {/^$name$/})) { + if ($meta->_find_spore_method_by_name(sub {$_ eq $name})) { confess "method '$name' is already delcared in ".$meta->name; } }; -- cgit 1.4.1