X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FReplicated.pm;h=3385e53c83fcc0ab27fd4ed14bd21400c8e29bf2;hp=9e3f59ccc3bbec0afbe9a1637eade547770a3fde;hb=ec0946db9da3886dce995f30240dbd405ee4c74d;hpb=cea43436e10983c218ded47e1561183096685f9b

diff --git a/lib/DBIx/Class/Storage/DBI/Replicated.pm b/lib/DBIx/Class/Storage/DBI/Replicated.pm
index 9e3f59c..3385e53 100644
--- a/lib/DBIx/Class/Storage/DBI/Replicated.pm
+++ b/lib/DBIx/Class/Storage/DBI/Replicated.pm
@@ -7,7 +7,7 @@ BEGIN {
   ## 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 @@ to force a query to run against Master when needed.
 
 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 @@ around connect_info => sub {
   $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);