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