Mercurial > pub > Impl

comparison Lib/IMPL/Object/Factory.pm @ 232:5c82eec23bb6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed degradations due refactoring
author sergey
date Tue, 09 Oct 2012 20:12:47 +0400
parents 4d0e1962161c
children
comparison
equal deleted inserted replaced
231:ff1e8fa932f2 232:5c82eec23bb6
1 package IMPL::Object::Factory; 1 package IMPL::Object::Factory;
2 use strict; 2 use strict;
3 3
4 use parent qw(IMPL::Object IMPL::Object::Serializable); 4 use IMPL::Const qw(:prop);
5 5
6 use IMPL::lang qw(:declare :constants); 6 use IMPL::declare {
7 7 base => [
8 BEGIN { 8 'IMPL::Object' => undef,
9 public property factory => PROP_GET | PROP_OWNERSET; 9 'IMPL::Object::Serializable' => undef
10 public property parameters => PROP_GET | PROP_OWNERSET; 10 ],
11 public property method => PROP_GET | PROP_OWNERSET; 11 props => [
12 } 12 factory => PROP_RO,
13 parameters => PROP_RO,
14 method => PROP_RO
15 ]
16 };
13 17
14 # custom factory, overrides default 18 # custom factory, overrides default
15 sub new { 19 sub new {
16 my $self = shift; 20 my $self = shift;
17 21