comparison Lib/IMPL/Object.pm @ 230:6d8092d8ce1b

*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author sergey
date Mon, 08 Oct 2012 03:37:37 +0400
parents d1676be8afcc
children 8a5da17d7ef9
comparison
equal deleted inserted replaced
229:47f77e6409f7 230:6d8092d8ce1b
1 package IMPL::Object; 1 package IMPL::Object;
2 use strict; 2 use strict;
3 3
4 use parent qw(IMPL::Object::Abstract); 4 use parent qw(IMPL::Object::Abstract);
5 require IMPL::Class::Property::Direct;
5 6
6 sub surrogate { 7 sub surrogate {
7 bless {}, ref $_[0] || $_[0]; 8 bless {}, ref $_[0] || $_[0];
8 } 9 }
9 10