cleanups, deps on mx::traits which is not released yet

[catagits/Catalyst-Model-DBIC-Schema.git] / lib / Catalyst / Model / DBIC / Schema / Trait / Replicated.pm

diff --git a/lib/Catalyst/Model/DBIC/Schema/Trait/Replicated.pm b/lib/Catalyst/Model/DBIC/Schema/Trait/Replicated.pm
index 6826a4c..cc89741 100644 (file)
--- a/lib/Catalyst/Model/DBIC/Schema/Trait/Replicated.pm
+++ b/lib/Catalyst/Model/DBIC/Schema/Trait/Replicated.pm
@@ -1,13 +1,12 @@
 package Catalyst::Model::DBIC::Schema::Trait::Replicated;
 
+use namespace::autoclean;
 use Moose::Role;
 use Moose::Autobox;
 use Carp::Clan '^Catalyst::Model::DBIC::Schema';
 
 use Catalyst::Model::DBIC::Schema::Types 'ConnectInfos';
 
-use namespace::clean -except => 'meta';
-
 =head1 NAME
 
 Catalyst::Model::DBIC::Schema::Trait::Replicated - Replicated storage support for
@@ -79,13 +78,12 @@ after setup => sub {
     }
 };
 
-my $build = sub {
+sub BUILD {}
+after BUILD => sub {
     my $self = shift;
 
     $self->storage->connect_replicants(map [ $_ ], $self->replicants->flatten);
 };
-after BUILD => $build;
-sub BUILD { goto $build }
 
 =head1 SEE ALSO