r20434@hades (orig r549): groditi | 2008-01-30 18:09:54 -0300

[catagits/Reaction.git] / lib / Reaction / Types / DBIC.pm

diff --git a/lib/Reaction/Types/DBIC.pm b/lib/Reaction/Types/DBIC.pm
index c8d5a00..8f9a37d 100644 (file)
--- 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
-  => as Object
+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
-  => as Object
+subtype 'DBIx::Class::Row'
+  => as 'Object'
   => where { $_->isa('DBIx::Class::Row') };
 
+subtype Row,
+  as 'DBIx::Class::Row';
+
 1;
 
 =head1 NAME