Mercurial > pub > Impl

comparison Lib/IMPL/Object/Factory.pm @ 114:7084af955c57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes, more strict code, no bugs fixed, no features added
author wizard
date Tue, 25 May 2010 01:26:42 +0400
parents 9cb8e730fa86
children 4267a2ac3d46
comparison
equal deleted inserted replaced
113:7b14e0122b79 114:7084af955c57
13 13
14 # custom factory, overrides default 14 # custom factory, overrides default
15 sub new { 15 sub new {
16 my $self = shift; 16 my $self = shift;
17 17
18 return ref $self ? $self->CreateObject(@_) : $self->SUPER::new(@_); 18 return ref $self ? $self->CreateObject(@_) : $self->IMPL::Object::new(@_);
19 } 19 }
20 20
21 sub CTOR { 21 sub CTOR {
22 my ($this,$factory,$parameters,$method) = @_; 22 my ($this,$factory,$parameters,$method) = @_;
23 23