Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Schema/Bookmark.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::Bookmark;
   3
   4     use base 'DBIx::Class::Core';
   5
   6
   7 use strict;
   8 use warnings;
   9
  10 __PACKAGE__->table('bookmark');
  11 __PACKAGE__->add_columns(
  12     'id' => {
  13         data_type => 'integer',
  14         is_auto_increment => 1
  15     },
  16     'link' => {
  17         data_type => 'integer',
  18     },
  19 );
  20
  21 __PACKAGE__->set_primary_key('id');
  22 __PACKAGE__->belongs_to(link => 'DBICTest::Schema::Link' );
  23
  24
  25 __PACKAGE__->resultset_class( __PACKAGE__ . '::ResultSet');
  26
  27 package DBICTest::Schema::Bookmark::ResultSet;
  28
  29 use base qw( DBIx::Class::ResultSet::RecursiveUpdate );
  30
  31
  32 1;