diff options
| author | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-29 11:26:17 +0000 |
|---|---|---|
| committer | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-29 11:26:17 +0000 |
| commit | 5976ddc40b95fb45edc007e8bb67d0db58d3bb2e (patch) | |
| tree | 037c4feea6b86aefb110c460421b44fd5605e2c6 /lib/Reaction/Types | |
| parent | 1d388500159edbb0164025d32293cf62437c3aab (diff) | |
| download | reaction-5976ddc40b95fb45edc007e8bb67d0db58d3bb2e.tar.gz reaction-5976ddc40b95fb45edc007e8bb67d0db58d3bb2e.zip | |
fixed DBIC types
Diffstat (limited to 'lib/Reaction/Types')
| -rw-r--r-- | lib/Reaction/Types/DBIC.pm | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lib/Reaction/Types/DBIC.pm b/lib/Reaction/Types/DBIC.pm index c8d5a00..0dd1ff8 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 - => 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 |