X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FReplicated%2FReplicant.pm;h=9e32ca39e837cbc5c472c0fa3680e834d18c4bb0;hb=41916570b3a93b05746e23b73c9a9b5005bc0d2e;hp=e9612f38d994885ca98773bbd9b37c8a7aaf6268;hpb=f15afa13598dd767ba9547328a31d4b98313a896;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm b/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm index e9612f3..9e32ca3 100644 --- a/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm +++ b/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm @@ -2,6 +2,9 @@ package DBIx::Class::Storage::DBI::Replicated::Replicant; use Moose::Role; requires qw/_query_start/; +use MooseX::Types::Moose qw/Bool/; + +use namespace::clean -except => 'meta'; =head1 NAME @@ -42,7 +45,7 @@ storage driver for more information. has 'active' => ( is=>'rw', - isa=>'Bool', + isa=>Bool, lazy=>1, required=>1, default=>1, @@ -88,4 +91,4 @@ You may distribute this code under the same terms as Perl itself. =cut -1; \ No newline at end of file +1;