File: Code.pm

package info (click to toggle)
librose-db-object-perl 0.770-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 4,068 kB
  • ctags: 2,125
  • sloc: perl: 73,047; sql: 28; makefile: 10
file content (12 lines) | stat: -rwxr-xr-x 270 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
 
package MyTest::DBIC::Schema::Simple::Code;

use strict;

use base 'DBIx::Class';
__PACKAGE__->load_components(qw(Core)); 

__PACKAGE__->table('rose_db_object_test_codes');
__PACKAGE__->add_columns(qw(code k1 k2 k3));
__PACKAGE__->set_primary_key('k1', 'k2', 'k3');

1;