fixed DBIC types

diff --git a/lib/Reaction/Types/DBIC.pm b/lib/Reaction/Types/DBIC.pm
index c8d5a00..0dd1ff8 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

diff --git a/lib/Reaction/UI/ViewPort/Action.pm b/lib/Reaction/UI/ViewPort/Action.pm
index d94d701..46ab85c 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Action.pm
+++ b/lib/Reaction/UI/ViewPort/Action.pm
@@ -157,7 +157,7 @@ class Action is 'Reaction::UI::ViewPort::Object', which {
 
   #this needs to be fixed. somehow. beats the shit our of me. really.
   #implements build_fields_for_type_Reaction_InterfaceModel_Object => as {
-  implements _build_fields_for_type_Row => as {
+  implements _build_fields_for_type_DBIx_Class_Row => as {
     my ($self, $attr, $args) = @_;
     $self->_build_simple_field(attribute => $attr, class => ChooseOne, %$args);
   };