]>
Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Schema/Employee.pm
1 package # hide from PAUSE
2 DBICTest
::Schema
::Employee
;
4 use base
'DBIx::Class::Core';
6 __PACKAGE__-
>load_components(qw( Ordered ));
8 __PACKAGE__-
>table('employee');
10 __PACKAGE__-
>add_columns(
12 data_type
=> 'integer',
13 is_auto_increment
=> 1
16 data_type
=> 'integer',
19 data_type
=> 'integer',
23 data_type
=> 'integer',
27 data_type
=> 'varchar',
33 __PACKAGE__-
>set_primary_key('employee_id');
34 __PACKAGE__-
>position_column('position');
36 #__PACKAGE__->add_unique_constraint(position_group => [ qw/position group_id/ ]);
38 __PACKAGE__-
>mk_classdata('field_name_for', {
39 employee_id
=> 'primary key',
40 position
=> 'list position',
41 group_id
=> 'collection column',
42 name
=> 'employee name',
This page took 0.038734 seconds and 4 git commands to generate.