comparison Lib/IMPL/Object.pm @ 4:e59f44f75f20

DOM - в разработке Testing - по мелочи Property - изменен механизм выбора имплементора
author Sergey
date Wed, 12 Aug 2009 17:36:07 +0400
parents 78cd38551534
children 16ada169ca75
comparison
equal deleted inserted replaced
3:2e546a5175dd 4:e59f44f75f20
11 my $class = shift; 11 my $class = shift;
12 my $self = bless {}, ref($class) || $class; 12 my $self = bless {}, ref($class) || $class;
13 $self->callCTOR(@_); 13 $self->callCTOR(@_);
14 14
15 $self; 15 $self;
16 }
17
18 sub _PropertyImplementor {
19 'IMPL::Class::Property::Direct'
16 } 20 }
17 21
18 =pod 22 =pod
19 =h1 SYNOPSIS 23 =h1 SYNOPSIS
20 24