1 package # hide from PAUSE
2 DBIx::Class::Storage::DBI::Replicated::Types;
4 # DBIx::Class::Storage::DBI::Replicated::Types - Types used internally by
5 # L<DBIx::Class::Storage::DBI::Replicated>
8 -declare => [qw/BalancerClassNamePart Weight DBICSchema DBICStorageDBI/];
9 use MooseX::Types::Moose qw/ClassName Str Num/;
11 class_type 'DBIx::Class::Storage::DBI';
12 class_type 'DBIx::Class::Schema';
14 subtype DBICSchema, as 'DBIx::Class::Schema';
15 subtype DBICStorageDBI, as 'DBIx::Class::Storage::DBI';
17 subtype BalancerClassNamePart,
20 coerce BalancerClassNamePart,
25 $type = 'DBIx::Class::Storage::DBI::Replicated::Balancer'.$type;
27 Class::MOP::load_class($type);
34 message { 'weight must be a decimal greater than 0' };
38 # John Napiorkowski <john.napiorkowski@takkle.com>
42 # You may distribute this code under the same terms as Perl itself.