diff Lib/IMPL/Web/Application/ResourceContract.pm @ 285:546957c50a36

*IMPL::Web::Handler::TTView Reworked template selection mechanism *IMPL::Web::Application: refactoring -Removed obsolete IMPL::Text modules
author cin
date Mon, 18 Feb 2013 02:55:59 +0400
parents 4abda21186cd
children 673581380e79
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/ResourceContract.pm	Thu Feb 14 19:14:02 2013 +0400
+++ b/Lib/IMPL/Web/Application/ResourceContract.pm	Mon Feb 18 02:55:59 2013 +0400
@@ -146,12 +146,12 @@
         	},
         	contract => ResourceContract->new(
         	   verbs => {
-	        	   get => OperationContract->new(
-	        	       binding => sub {
-	        	       	   my ($resource,$action) = @_;
-	        	       	   return $resource->model;
-	        	       }
-	        	   )
+        	       # using method references is also possible
+	        	   get => sub {
+	        	   	   my ($resource,$action) = @_;
+	        	   	   return $resource->model;
+	        	   }
+	        	   
         	   }
         	)
         }