X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FReplicated%2FReplicant.pm;h=9c9f1c20e736042dd680db32a1739a8c5a7edc73;hb=071bbccba2ec162da1a78069dc6f8fa371788895;hp=2367d4a327bfbfb2140eb60e0e85d567e6a42989;hpb=e515254d9f03c98058ed0c7220ef06094aff0bf8;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 2367d4a..9c9f1c2 100644
--- a/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm
+++ b/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm
@@ -2,10 +2,14 @@ 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 'Bool';
+
+use namespace::clean -except => 'meta';
=head1 NAME
-DBIx::Class::Storage::DBI::Replicated::Replicant; A replicated DBI Storage Role
+DBIx::Class::Storage::DBI::Replicated::Replicant - A replicated DBI Storage Role
=head1 SYNOPSIS
@@ -42,7 +46,7 @@ storage driver for more information.
has 'active' => (
is=>'rw',
- isa=>'Bool',
+ isa=>Bool,
lazy=>1,
required=>1,
default=>1,
@@ -52,18 +56,6 @@ has 'active' => (
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->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 +68,8 @@ sub debugobj {
=head1 ALSO SEE
-L<http://en.wikipedia.org/wiki/Replicant>
+L,
+L
=head1 AUTHOR
@@ -88,4 +81,4 @@ You may distribute this code under the same terms as Perl itself.
=cut
-1;
\ No newline at end of file
+1;