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>
12 -declare => qw/BalancerClassNamePart Weight DBICSchema DBICStorageDBI/;
14 use Types::Standard qw/Str Num/;
15 use Types::LoadableClass qw/LoadableClass/;
17 class_type DBICSchema, { class => 'DBIx::Class::Schema' };
18 class_type DBICStorageDBI, { class => 'DBIx::Class::Storage::DBI' };
20 subtype BalancerClassNamePart,
23 coerce BalancerClassNamePart,
27 $type =~ s/\A::/DBIx::Class::Storage::DBI::Replicated::Balancer::/;
34 message { 'weight must be a decimal greater than 0' };