unquoted Reaction::Types
[catagits/Reaction.git] / lib / Reaction / Types / DBIC.pm
index 279e191..c8d5a00 100644 (file)
@@ -1,18 +1,20 @@
 package Reaction::Types::DBIC;
 
-use Moose::Util::TypeConstraints;
+use MooseX::Types
+    -declare => [qw/ResultSet Row/];
 
+use MooseX::Types::Moose 'Object';
 use DBIx::Class::ResultSet;
 
-subtype 'DBIx::Class::ResultSet'
-  => as 'Object'
+subtype ResultSet
+  => as Object
   => where { $_->isa('DBIx::Class::ResultSet') };
 
 use DBIx::Class::Core;
 use DBIx::Class::Row;
 
-subtype 'DBIx::Class::Row'
-  => as 'Object'
+subtype Row
+  => as Object
   => where { $_->isa('DBIx::Class::Row') };
 
 1;
@@ -23,7 +25,7 @@ Reaction::Types::DBIC
 
 =head1 DESCRIPTION
 
-=over 
+=over
 
 =item * DBIx::Class::ResultSet