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: Cd.pm
(648 B)
Path: /usr/share/doc/perl-DBIx-Class/examples/Schema/MyApp/Schema/Result/Cd.pm
Back
package MyApp::Schema::Result::Cd; use warnings; use strict; use base qw( DBIx::Class::Core ); __PACKAGE__->table('cd'); __PACKAGE__->add_columns( cdid => { data_type => 'integer', is_auto_increment => 1 }, artistid => { data_type => 'integer', }, title => { data_type => 'text', }, year => { data_type => 'datetime', is_nullable => 1, }, ); __PACKAGE__->set_primary_key('cdid'); __PACKAGE__->add_unique_constraint([qw( title artistid )]); __PACKAGE__->belongs_to('artist' => 'MyApp::Schema::Result::Artist', 'artistid'); __PACKAGE__->has_many('tracks' => 'MyApp::Schema::Result::Track', 'cdid'); 1;