X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FReplicated%2FBalancer%2FFirst.pm;h=5ef441013b0df039021f47c141afedff0865835d;hb=refs%2Fheads%2Fpeople%2Fjnap%2Fmoo_replication;hp=806a05f0b689c9f1a8cd4a55f9881b039a10dee5;hpb=40b2218de3c9b90da19ce0e30fa747cacf933977;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/Replicated/Balancer/First.pm b/lib/DBIx/Class/Storage/DBI/Replicated/Balancer/First.pm index 806a05f..5ef4410 100644 --- a/lib/DBIx/Class/Storage/DBI/Replicated/Balancer/First.pm +++ b/lib/DBIx/Class/Storage/DBI/Replicated/Balancer/First.pm @@ -1,8 +1,7 @@ package DBIx::Class::Storage::DBI::Replicated::Balancer::First; -use Moose; +use Moo; with 'DBIx::Class::Storage::DBI::Replicated::Balancer'; -use namespace::clean -except => 'meta'; =head1 NAME @@ -41,7 +40,7 @@ sub next_storage { =head1 AUTHOR -John Napiorkowski +John Napiorkowski =head1 LICENSE @@ -49,6 +48,4 @@ You may distribute this code under the same terms as Perl itself. =cut -__PACKAGE__->meta->make_immutable; - 1;