[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / Replicated / Types.pm

package DBIx::Class::Storage::DBI::Replicated::Types;

use MooseX::Types
  -declare => [qw/BalancerClassNamePart/];
use MooseX::Types::Moose qw/ClassName Str/;

class_type 'DBIx::Class::Storage::DBI';

subtype BalancerClassNamePart,
  as ClassName;
    
coerce BalancerClassNamePart,
  from Str,
  via {
    my $type = $_;
    if($type=~m/^::/) {
      $type = 'DBIx::Class::Storage::DBI::Replicated::Balancer'.$type;
    }  
    Class::MOP::load_class($type);  
    $type;  	
  };

1;
Commit	Line	Data
9901aad7	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;