Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
doc
/
perl-DBIx-Class
/
examples
/
Schema
/
MyApp
/
Schema
/
Result
Upload
5 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Artist.pm
453 B
-rw-r--r--
2018-04-30 09:43:51
Edit
Del
Cd.pm
648 B
-rw-r--r--
2018-04-30 09:43:51
Edit
Del
Track.pm
497 B
-rw-r--r--
2018-04-30 09:43:51
Edit
Del
Editing: Track.pm
(497 B)
Path: /usr/share/doc/perl-DBIx-Class/examples/Schema/MyApp/Schema/Result/Track.pm
Back
package MyApp::Schema::Result::Track; use warnings; use strict; use base qw( DBIx::Class::Core ); __PACKAGE__->table('track'); __PACKAGE__->add_columns( trackid => { data_type => 'integer', is_auto_increment => 1 }, cdid => { data_type => 'integer', }, title => { data_type => 'text', }, ); __PACKAGE__->set_primary_key('trackid'); __PACKAGE__->add_unique_constraint([qw( title cdid )]); __PACKAGE__->belongs_to('cd' => 'MyApp::Schema::Result::Cd', 'cdid'); 1;