diff Lib/IMPL/Object/Factory.pm @ 91:9cb8e730fa86

fixed factory
author wizard
date Mon, 26 Apr 2010 17:46:16 +0400
parents 2f31ecabe9ea
children 7084af955c57
line wrap: on
line diff
--- a/Lib/IMPL/Object/Factory.pm	Mon Apr 26 03:10:03 2010 +0400
+++ b/Lib/IMPL/Object/Factory.pm	Mon Apr 26 17:46:16 2010 +0400
@@ -33,10 +33,10 @@
 	my %args = @$data;
 	
 	if ($surrogate) {
-		$surrogate->callCTOR($args{factory},$args{parameters});
+		$surrogate->callCTOR($args{factory},$args{parameters},$args{method});
 		return $surrogate;
 	} else {
-		return $class->new($args{factory},$args{parameters});
+		return $class->new($args{factory},$args{parameters},$args{method});
 	}
 }