Mercurial > pub > Impl

diff Lib/IMPL/Test.pm @ 275:6253872024a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*refactoring IMPL::Class
author cin
date Thu, 31 Jan 2013 02:18:31 +0400
parents 4d0e1962161c
children 4ddb27ff4a0b
line wrap: on
line diff
--- a/Lib/IMPL/Test.pm	Wed Jan 30 03:30:28 2013 +0400
+++ b/Lib/IMPL/Test.pm	Thu Jan 31 02:18:31 2013 +0400
@@ -27,11 +27,11 @@
     
     my $class = caller;
     
-    die new IMPL::Exception("Only properties could be declared as shared",$propInfo->Name) unless eval {$propInfo->isa('IMPL::Class::PropertyInfo')};
-    die new IMPL::Exception("You can't mark the readonly property as shared",$propInfo->Name) unless $propInfo->canSet;
-    die new IMPL::Exception("Only public properties could be declared as shared",$propInfo->Name) unless $propInfo->Access == IMPL::Class::Member::MOD_PUBLIC;
+    die new IMPL::Exception("Only properties could be declared as shared",$propInfo->name) unless eval {$propInfo->isa('IMPL::Class::PropertyInfo')};
+    die new IMPL::Exception("You can't mark the readonly property as shared",$propInfo->name) unless $propInfo->canSet;
+    die new IMPL::Exception("Only public properties could be declared as shared",$propInfo->name) unless $propInfo->access == IMPL::Class::Member::MOD_PUBLIC;
     
-    $class->set_meta(new IMPL::Test::Unit::SharedData($propInfo->Name));
+    $class->set_meta(new IMPL::Test::Unit::SharedData($propInfo->name));
 }
 
 sub failed($;@) {