diff Lib/IMPL/Web/Application/CustomResourceContract.pm @ 268:4abda21186cd

*refactoring IMPL::Web: added 'application' property to resources
author cin
date Mon, 21 Jan 2013 02:08:17 +0400
parents 6d8092d8ce1b
children fe725fad2d90
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/CustomResourceContract.pm	Thu Jan 17 02:39:44 2013 +0400
+++ b/Lib/IMPL/Web/Application/CustomResourceContract.pm	Mon Jan 21 02:08:17 2013 +0400
@@ -55,7 +55,7 @@
 
 sub _GetAllowedHttpMethods {
     my ($resource) = @_;
-    return grep $resource->can($RESOURCE_BINDINGS{$_}), values %RESOURCE_BINDINGS;
+    return grep $resource->can($RESOURCE_BINDINGS{$_}), keys %RESOURCE_BINDINGS;
 }
 
 1;