1 package # hide from PAUSE
2 DBIx::Class::Storage::DBI::Replicated::Types;
6 DBIx::Class::Storage::DBI::Replicated::Types - Types used internally by
7 L<DBIx::Class::Storage::DBI::Replicated>
12 -declare => [qw/BalancerClassNamePart Weight/];
13 use MooseX::Types::Moose qw/ClassName Str Num/;
15 class_type 'DBIx::Class::Storage::DBI';
16 class_type 'DBIx::Class::Schema';
18 subtype BalancerClassNamePart,
21 coerce BalancerClassNamePart,
26 $type = 'DBIx::Class::Storage::DBI::Replicated::Balancer'.$type;
28 Class::MOP::load_class($type);
35 message { 'weight must be a decimal greater than 0' };
39 John Napiorkowski <john.napiorkowski@takkle.com>
43 You may distribute this code under the same terms as Perl itself.