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>
7 # Workaround for https://rt.cpan.org/Public/Bug/Display.html?id=83336
12 -declare => [qw/BalancerClassNamePart Weight DBICSchema DBICStorageDBI/];
13 use MooseX::Types::Moose qw/ClassName Str Num/;
14 use MooseX::Types::LoadableClass qw/LoadableClass/;
16 class_type 'DBIx::Class::Storage::DBI';
17 class_type 'DBIx::Class::Schema';
19 subtype DBICSchema, as 'DBIx::Class::Schema';
20 subtype DBICStorageDBI, as 'DBIx::Class::Storage::DBI';
22 subtype BalancerClassNamePart,
25 coerce BalancerClassNamePart,
29 $type =~ s/\A::/DBIx::Class::Storage::DBI::Replicated::Balancer::/;
36 message { 'weight must be a decimal greater than 0' };
40 # John Napiorkowski <john.napiorkowski@takkle.com>
44 # You may distribute this code under the same terms as Perl itself.