Mercurial > pub > Impl

diff Lib/IMPL/Object/Accessor.pm @ 230:6d8092d8ce1b
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author: sergey
date: Mon, 08 Oct 2012 03:37:37 +0400
parents: 4d0e1962161c
children: 4ddb27ff4a0b
--- a/Lib/IMPL/Object/Accessor.pm	Sat Sep 29 02:34:47 2012 +0400
+++ b/Lib/IMPL/Object/Accessor.pm	Mon Oct 08 03:37:37 2012 +0400
@@ -2,6 +2,8 @@
 use strict;
 use parent qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
 
+require IMPL::Class::Property::Accessor;
+
 sub new {
     my $class = shift;
     my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ());
@@ -18,4 +20,5 @@
 sub _PropertyImplementor {
     'IMPL::Class::Property::Accessor'
 }
+
 1;