name 'Catalyst-Model-DBIC-Schema';
all_from 'lib/Catalyst/Model/DBIC/Schema.pm';
-requires 'DBIx::Class' => '0.08100';
+requires 'DBIx::Class' => '0.08104';
requires 'Catalyst::Runtime' => '5.80002';
+requires 'Moose';
requires 'Moose::Autobox';
requires 'MooseX::ClassAttribute';
requires 'MooseX::Types';
feature 'Caching support',
'DBIx::Class::Cursor::Cached' => 0;
+feature 'Replication support',
+ 'MooseX::AttributeHelpers' => 0;
+
if(-e 'MANIFEST.SKIP') {
system("pod2text lib/Catalyst/Model/DBIC/Schema.pm > README");
}
use Moose::Role;
use Moose::Autobox;
-use Carp::Clan '^Catalyst::Model::DBIC::Schema::';
+use Carp::Clan '^Catalyst::Model::DBIC::Schema';
use Catalyst::Model::DBIC::Schema::Types 'ConnectInfos';
['dbi:mysql:slave1', 'user', 'pass'],
['dbi:mysql:slave2', 'user', 'pass'],
['dbi:mysql:slave3', 'user', 'pass'],
- ]
+ ],
+ balancer_args => {
+ master_read_weight => 0.3
+ }
});
=head1 DESCRIPTION
-B<DOES NOT WORK YET> -- requires some DBIC changes
-
Sets your storage_type to L<DBIx::Class::Storage::DBI::Replicated> and connects
replicants provided in config. See that module for supported resultset
attributes.
+The default L<DBIx::Class::Storage::DBI::Replicated/balancer_type> is
+C<::Random>.
+
+Sets the
+L<DBIx::Class::Storage::DBI::Replicated::Balancer::Random/master_read_weight> to
+C<1> by default, meaning that you have the same chance of reading from master as
+you do from replicants. Set to C<0> to turn off reads from master.
+
=head1 CONFIG PARAMETERS
=head2 replicants
$self->storage_type('::DBI::Replicated');
}
- $self->connect_info->{balancer_type} ||= '::Random';
+ $self->connect_info->{balancer_type} ||= '::Random'
+ unless $self->connect_info->{balancer_type};
+
+ unless ($self->connect_info->{balancer_args} &&
+ exists $self->connect_info->{balancer_args}{master_read_weight}) {
+ $self->connect_info->{balancer_args}{master_read_weight} = 1;
+ }
};
after finalize => sub {
my $self = shift;
- $self->storage->connect_replicants(map [ $_ ], $self->replicants->flatten);
+ $self->storage->connect_replicants($self->replicants->flatten);
};
=head1 SEE ALSO
use MooseX::Types
-declare => [qw/ConnectInfo ConnectInfos Replicants SchemaClass/];
-use Carp::Clan '^Catalyst::Model::DBIC::Schema::';
+use Carp::Clan '^Catalyst::Model::DBIC::Schema';
use MooseX::Types::Moose qw/ArrayRef HashRef Str ClassName/;
use Scalar::Util 'reftype';
use List::MoreUtils 'all';