## 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'
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'
$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);
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);