[Bast-commits] r8602 - in DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI: . Replicated

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-10 20:40:07 +0000 (Wed, 10 Feb 2010)
New Revision: 8602

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated/Pool.pm
Log:
revert Moose bug workaround, bump Moose dep for Replicated to 0.98

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated/Pool.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated/Pool.pm	2010-02-10 20:29:51 UTC (rev 8601)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated/Pool.pm	2010-02-10 20:40:07 UTC (rev 8602)
@@ -254,12 +254,7 @@
 
   Moose::Meta::Class->initialize(ref $replicant);
 
-  my $class = Moose::Meta::Class->create_anon_class(
-    superclasses => [ ref $replicant ],
-    roles        => [ 'DBIx::Class::Storage::DBI::Replicated::Replicant' ],
-    cache        => 1,
-  );
-  $class->rebless_instance($replicant);
+  DBIx::Class::Storage::DBI::Replicated::Replicant->meta->apply($replicant);
 
   # link back to master
   $replicant->master($self->master);

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm	2010-02-10 20:29:51 UTC (rev 8601)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated.pm	2010-02-10 20:40:07 UTC (rev 8602)
@@ -7,7 +7,7 @@
   ## use, so we explicitly test for these.
 
   my %replication_required = (
-    'Moose' => '0.90',
+    'Moose' => '0.98',
     'MooseX::Types' => '0.21',
     'namespace::clean' => '0.11',
     'Hash::Merge' => '0.11'
@@ -120,7 +120,7 @@
 
 Replicated Storage has additional requirements not currently part of L<DBIx::Class>
 
-  Moose => '0.90',
+  Moose => '0.98',
   MooseX::Types => '0.21',
   namespace::clean => '0.11',
   Hash::Merge => '0.11'
@@ -392,12 +392,7 @@
   $master->_determine_driver;
   Moose::Meta::Class->initialize(ref $master);
 
-  my $class = Moose::Meta::Class->create_anon_class(
-    superclasses => [ ref $master ],
-    roles        => [ 'DBIx::Class::Storage::DBI::Replicated::WithDSN' ],
-    cache        => 1,
-  );
-  $class->rebless_instance($master);
+  DBIx::Class::Storage::DBI::Replicated::WithDSN->meta->apply($master);
 
   # link pool back to master
   $self->pool->master($master);