comparison Lib/IMPL/Object/Factory.pm @ 186:6c0fee769b0c

IMPL::Web::View::TTControl tests, fixes
author cin
date Fri, 30 Mar 2012 16:40:34 +0400
parents 47dac58691ee
children 4d0e1962161c
comparison
equal deleted inserted replaced
185:ae8072f2f2a3 186:6c0fee769b0c
44 my $this = shift; 44 my $this = shift;
45 45
46 if (my $method = $this->method) { 46 if (my $method = $this->method) {
47 $this->factory->$method($this->MergeParameters(@_)); 47 $this->factory->$method($this->MergeParameters(@_));
48 } else { 48 } else {
49 $this->factory->new($this->MergeParemeters(@_)); 49 $this->factory->new($this->MergeParameters(@_));
50 } 50 }
51 } 51 }
52 52
53 sub MergeParameters { 53 sub MergeParameters {
54 my $this = shift; 54 my $this = shift;