lib/DBIx/Class/Storage/DBI/Replicated/Types.pm

   1 package DBIx::Class::Storage::DBI::Replicated::Types;
   2
   3 use MooseX::Types
   4   -declare => [qw/BalancerClassNamePart/];
   5 use MooseX::Types::Moose qw/ClassName Str/;
   6
   7 class_type 'DBIx::Class::Storage::DBI';
   8 class_type 'DBIx::Class::Schema';
   9
  10 subtype BalancerClassNamePart,
  11   as ClassName;
  12
  13 coerce BalancerClassNamePart,
  14   from Str,
  15   via {
  16     my $type = $_;
  17     if($type=~m/^::/) {
  18       $type = 'DBIx::Class::Storage::DBI::Replicated::Balancer'.$type;
  19     }
  20     Class::MOP::load_class($type);
  21     $type;
  22   };
  23
  24 1;