]>
Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Schema/Genre.pm
1 package DBICTest
::Schema
::Genre
;
5 use base
'DBIx::Class::Core';
7 __PACKAGE__-
>table('genre');
8 __PACKAGE__-
>add_columns(
10 data_type
=> 'integer',
11 is_auto_increment
=> 1,
14 data_type
=> 'varchar',
18 __PACKAGE__-
>set_primary_key('genreid');
19 __PACKAGE__-
>add_unique_constraint ( genre_name
=> [qw
/name/] );
21 __PACKAGE__-
>has_many (cds
=> 'DBICTest::Schema::CD', 'genreid');
23 __PACKAGE__-
>resultset_class( __PACKAGE__
. '::ResultSet');
25 package DBICTest
::Schema
::Genre
::ResultSet
;
27 use base
qw( DBIx::Class::ResultSet::RecursiveUpdate );
This page took 0.032661 seconds and 4 git commands to generate.