X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FReplicated%2FReplicant.pm;h=08a95ef1c6e0c6c9c429d321b824ffa99de945c2;hb=b09e9528b306fe3394ad0b588c36ebbc2b89c6fb;hp=d97120b1aa703783ed5e2a16eca2aed72667895e;hpb=16df8aa967d1d9e24c038a274ab5793270fee122;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm b/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm index d97120b..08a95ef 100644 --- a/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm +++ b/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm @@ -2,6 +2,10 @@ package DBIx::Class::Storage::DBI::Replicated::Replicant; use Moose::Role; requires qw/_query_start/; +with 'DBIx::Class::Storage::DBI::Replicated::WithDSN'; +use MooseX::Types::Moose qw/Bool Str/; + +use namespace::clean -except => 'meta'; =head1 NAME @@ -10,7 +14,7 @@ DBIx::Class::Storage::DBI::Replicated::Replicant - A replicated DBI Storage Role =head1 SYNOPSIS This class is used internally by L. - + =head1 DESCRIPTION Replicants are DBI Storages that follow a master DBI Storage. Typically this @@ -42,28 +46,19 @@ storage driver for more information. has 'active' => ( is=>'rw', - isa=>'Bool', + isa=>Bool, lazy=>1, required=>1, default=>1, ); +has dsn => (is => 'rw', isa => Str); +has id => (is => 'rw', isa => Str); + =head1 METHODS This class defines the following methods. -=head2 after: _query_start - -advice iof the _query_start method to add more debuggin - -=cut - -around '_query_start' => sub { - my ($method, $self, $sql, @bind) = @_; - my $dsn = $self->_dbi_connect_info->[0]; - $self->$method("DSN: $dsn SQL: $sql", @bind); -}; - =head2 debugobj Override the debugobj method to redirect this method call back to the master. @@ -76,7 +71,8 @@ sub debugobj { =head1 ALSO SEE -L<http://en.wikipedia.org/wiki/Replicant> +L, +L =head1 AUTHOR @@ -88,4 +84,4 @@ You may distribute this code under the same terms as Perl itself. =cut -1; \ No newline at end of file +1;