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
   9 subtype BalancerClassNamePart,
  10   as ClassName;
  11
  12 coerce BalancerClassNamePart,
  13   from Str,
  14   via {
  15     my $type = $_;
  16     if($type=~m/^::/) {
  17       $type = 'DBIx::Class::Storage::DBI::Replicated::Balancer'.$type;
  18     }
  19     Class::MOP::load_class($type);
  20     $type;
  21   };
  22
  23 1;