diff lib/IMPL/Code/Loader.pm @ 411:ee36115f6a34 ref20150831

sync
author cin
date Mon, 21 Sep 2015 00:53:10 +0300
parents c6e90e02dd17
children
line wrap: on
line diff
--- a/lib/IMPL/Code/Loader.pm	Mon Sep 14 01:11:53 2015 +0300
+++ b/lib/IMPL/Code/Loader.pm	Mon Sep 21 00:53:10 2015 +0300
@@ -11,7 +11,6 @@
 	},
 	base => {
 		'IMPL::Object' => undef,
-		'IMPL::Object::Autofill' => '@_'
 	},
 	props => [
 	   verifyNames => PROP_RO,
@@ -31,7 +30,11 @@
 }
 
 sub CTOR {
-    my ($this) = @_;
+    my ($this, %params) = @_;
+    
+    $this->verifyNames($params{verifyNames}) if $params{verifyNames};
+    $this->prefix($params{prefix}) if $params{prefix};
+    
     
     $this->_pending({});
 }