comparison 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
comparison
equal deleted inserted replaced
284:f2a6bc5f3184 285:546957c50a36
144 binding => sub { 144 binding => sub {
145 return $_[0]->model->info; 145 return $_[0]->model->info;
146 }, 146 },
147 contract => ResourceContract->new( 147 contract => ResourceContract->new(
148 verbs => { 148 verbs => {
149 get => OperationContract->new( 149 # using method references is also possible
150 binding => sub { 150 get => sub {
151 my ($resource,$action) = @_; 151 my ($resource,$action) = @_;
152 return $resource->model; 152 return $resource->model;
153 } 153 }
154 ) 154
155 } 155 }
156 ) 156 )
157 } 157 }
158 ] 158 ]
159 ) 159 )