[Bast-commits] r6835 - in DBIx-Class-Schema-PopulateMore/truck: . lib/DBIx/Class/Schema/PopulateMore/Inflator

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2009-06-29 02:02:28 +0000 (Mon, 29 Jun 2009)
New Revision: 6835

Modified:
   DBIx-Class-Schema-PopulateMore/truck/Changes
   DBIx-Class-Schema-PopulateMore/truck/Makefile.PL
   DBIx-Class-Schema-PopulateMore/truck/lib/DBIx/Class/Schema/PopulateMore/Inflator/Find.pm
Log:
more playing with deps

Modified: DBIx-Class-Schema-PopulateMore/truck/Changes
===================================================================
--- DBIx-Class-Schema-PopulateMore/truck/Changes	2009-06-29 01:54:31 UTC (rev 6834)
+++ DBIx-Class-Schema-PopulateMore/truck/Changes	2009-06-29 02:02:28 UTC (rev 6835)
@@ -1,5 +1,9 @@
 Revision history for Perl extension DBIx-Class-Schema-PopulateMore.
 
+0.10 Sunday, June 27,  2009
+    - changed the find inflator to allow multikey finds
+		- more Makefile.PL tweaks to solve some cpan reported errors
+
 0.09 Friday, June 26, 2009
     - Added a Find inflator, with docs and a test case
 

Modified: DBIx-Class-Schema-PopulateMore/truck/Makefile.PL
===================================================================
--- DBIx-Class-Schema-PopulateMore/truck/Makefile.PL	2009-06-29 01:54:31 UTC (rev 6834)
+++ DBIx-Class-Schema-PopulateMore/truck/Makefile.PL	2009-06-29 02:02:28 UTC (rev 6835)
@@ -5,19 +5,19 @@
 all_from 'lib/DBIx/Class/Schema/PopulateMore.pm';
 author   'John Napiorkowski <jjn1056 at yahoo.com>';
 
-requires 'Moose' => '0.83';
-requires 'MooseX::AttributeHelpers' => '0.19';
+requires 'Moose' => '0.85';
+requires 'MooseX::AttributeHelpers' => '0.20';
 requires 'DateTimeX::Easy' => '0.087';
 requires 'List::MoreUtils' => '0.22';
 requires 'Module::Pluggable' => '3.9';
 requires 'Data::Visitor' => '0.25';
 
 build_requires 'DBIx::Class' => '0.08107';
-build_requires 'SQL::Translator' => '0.09004';
-build_requires 'Test::More';
+build_requires 'SQL::Translator' => '0.09007';
+build_requires 'Test::More' => '0.88';
 build_requires 'File::Find';
-build_requires 'YAML::Tiny';
-build_requires 'Path::Class';
+build_requires 'YAML::Tiny' => '1.39';
+build_requires 'Path::Class' => '0.17';
 
 auto_install;
 

Modified: DBIx-Class-Schema-PopulateMore/truck/lib/DBIx/Class/Schema/PopulateMore/Inflator/Find.pm
===================================================================
--- DBIx-Class-Schema-PopulateMore/truck/lib/DBIx/Class/Schema/PopulateMore/Inflator/Find.pm	2009-06-29 01:54:31 UTC (rev 6834)
+++ DBIx-Class-Schema-PopulateMore/truck/lib/DBIx/Class/Schema/PopulateMore/Inflator/Find.pm	2009-06-29 02:02:28 UTC (rev 6835)
@@ -38,9 +38,11 @@
 
 	if(my $resultset = $command->schema->resultset($source)) {
 		if($id =~m/^\[.+\]$/) {
-			my ($key, $value) = ($id =~m/^\[\s*(\w+?)=(\w+?)\s*\]$/);
-			$id = {$key, $value};
-		} else { warn '.........\n\n'; }
+			my ($pairs) = ($id=~m/^\[(.+)\]$/);
+			my @pairs = split(',', $pairs);
+			my %keys = map {split('=', $_) } @pairs;
+			$id = \%keys;
+		}
 		if(my $result = $resultset->find($id)) {
 			return $result;
 		} else {