Mercurial > pub > Impl

diff Lib/IMPL/Web/Application/ResourceContract.pm @ 230:6d8092d8ce1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author sergey
date Mon, 08 Oct 2012 03:37:37 +0400
parents 47f77e6409f7
children abc7c26bf615
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/ResourceContract.pm	Sat Sep 29 02:34:47 2012 +0400
+++ b/Lib/IMPL/Web/Application/ResourceContract.pm	Mon Oct 08 03:37:37 2012 +0400
@@ -1,6 +1,6 @@
 package IMPL::Web::Application::ResourceContract;
 use strict;
-use IMPL::lang qw(:constants);
+use IMPL::Const qw(:prop);
 use IMPL::declare {
 	require => {
 		'Exception'            => 'IMPL::Exception',
@@ -39,7 +39,7 @@
 
 	my %nameMap;
 
-	foreach my $res (@$verbs) {
+	foreach my $res (@$resources) {
 		next unless $res->{contract};
 		if ( my $name = $res->{name} ) {
 			$nameMap{$name} = $res;
@@ -213,7 +213,7 @@
 
 package My::Web::Application::ContractMapper;
 use strict;
-use IMPL::lang qw(:constants);
+use IMPL::Const qw(:prop);
 use IMPL::declare {
     require => {
         ForbiddenException => 'IMPL::Web::Forbidden'