# HG changeset patch
# User sourcer
# Date 1324411230 -10800
# Node ID b3d91ff7aea9ce062125f81628ba1ae611e14ed9
# Parent  658a80d19d33c159f072fe5bc561dec5388f2aae
minor changes

diff -r 658a80d19d33 -r b3d91ff7aea9 Lib/IMPL/Class/Property/Direct.pm
--- a/Lib/IMPL/Class/Property/Direct.pm	Wed Oct 12 00:06:07 2011 +0300
+++ b/Lib/IMPL/Class/Property/Direct.pm	Tue Dec 20 23:00:30 2011 +0300
@@ -8,7 +8,7 @@
 use IMPL::Class::Property;
 require IMPL::Exception;
 
-__PACKAGE__->mk_accessors qw(ExportField);
+__PACKAGE__->mk_accessors( qw(ExportField) );
 
 sub factoryParams {
 	$_[0]->SUPER::factoryParams, qw($field);
@@ -78,7 +78,7 @@
 sub FieldName {
     my ($self,$propInfo) = @_;
     
-    my ($class,$name) = $propInfo->get qw(Class Name);
+    my ($class,$name) = $propInfo->get( qw(Class Name) );
     (my $field = "${class}_$name") =~ s/::/_/g;
     return $field;
 }
diff -r 658a80d19d33 -r b3d91ff7aea9 Lib/IMPL/Config.pm
--- a/Lib/IMPL/Config.pm	Wed Oct 12 00:06:07 2011 +0300
+++ b/Lib/IMPL/Config.pm	Tue Dec 20 23:00:30 2011 +0300
@@ -92,6 +92,10 @@
 
 sub spawn {
 	my ($this,$file) = @_;
+	unless ($file) {
+		($file = ref $this || $this) =~ s/:+/./g;
+		$file .= ".xml";
+	}
 	return $this->LoadXMLFile( File::Spec->catfile($ConfigBase,$file) );
 }
 
diff -r 658a80d19d33 -r b3d91ff7aea9 _test/Test/Lang.pm
--- a/_test/Test/Lang.pm	Wed Oct 12 00:06:07 2011 +0300
+++ b/_test/Test/Lang.pm	Tue Dec 20 23:00:30 2011 +0300
@@ -6,6 +6,7 @@
 
 use IMPL::Test qw(test failed assert);
 use IMPL::lang qw(:hash :compare clone);
+use Scalar::Util qw(reftype);
 
 __PACKAGE__->PassThroughArgs;
 
@@ -82,7 +83,7 @@
 	
 	assert(not defined $b);
 	
-	my $lp = { a => '1' };
+	my $lp = { a => '1', rx => qr/abc$/ };
 	$lp->{b} = $lp;
 	
 	my $c = clone($lp); 
@@ -90,6 +91,7 @@
 	assert($c);
 	assert($c->{b});
 	assert($c->{b} == $c);
+	assert(reftype $c->{rx} eq 'REGEXP');
 	
 };