X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FTypes%2FDBIC.pm;h=8f9a37d794ceb2a116f9a61b0d7ee38eb406671e;hb=4949e0ee7a1162bca838822095e6cd2da527e2d2;hp=3efd7db3720a49495fc36f7425271be8f08ccefc;hpb=e739c9a211e3a55714904f6c75843e8902226214;p=catagits%2FReaction.git diff --git a/lib/Reaction/Types/DBIC.pm b/lib/Reaction/Types/DBIC.pm index 3efd7db..8f9a37d 100644 --- a/lib/Reaction/Types/DBIC.pm +++ b/lib/Reaction/Types/DBIC.pm @@ -3,20 +3,27 @@ package Reaction::Types::DBIC; use MooseX::Types -declare => [qw/ResultSet Row/]; -use MooseX::Types::Moose 'Object'; +use Moose::Util::TypeConstraints; + use DBIx::Class::ResultSet; -subtype 'ResultSet' +subtype 'DBIx::Class::ResultSet' => as 'Object' => where { $_->isa('DBIx::Class::ResultSet') }; +subtype ResultSet, + as 'DBIx::Class::ResultSet'; + use DBIx::Class::Core; use DBIx::Class::Row; -subtype 'Row' +subtype 'DBIx::Class::Row' => as 'Object' => where { $_->isa('DBIx::Class::Row') }; +subtype Row, + as 'DBIx::Class::Row'; + 1; =head1 NAME