]>
Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - Genre.pm
c1e1167c9f03e177d1c225e22fdfec0dba98a387
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.032836 seconds and 3 git commands to generate.