use DBI ();
use Carp::Clan qw/^DBIx::Class/;
use MooseX::Types::Moose qw/Num Int ClassName HashRef/;
+use DBIx::Class::Storage::DBI::Replicated::Types 'DBICStorageDBI';
use namespace::clean -except => 'meta';
},
);
+=head2 master
+
+Reference to the master Storage.
+
+=cut
+
+has master => (is => 'rw', isa => DBICStorageDBI, weak_ref => 1);
+
=head1 METHODS
This class defines the following methods.
$replicant->_determine_driver
});
- DBIx::Class::Storage::DBI::Replicated::Replicant->meta->apply($replicant);
+ 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);
+
+ # link back to master
+ $replicant->master($self->master);
+
return $replicant;
}