examples/Schema/MyDatabase/Main/Result/Artist.pm

   1 package MyDatabase::Main::Result::Artist;
   2
   3 use warnings;
   4 use strict;
   5
   6 use base qw/DBIx::Class::Core/;
   7
   8 __PACKAGE__->table('artist');
   9
  10 __PACKAGE__->add_columns(qw/ artistid name /);
  11
  12 __PACKAGE__->set_primary_key('artistid');
  13
  14 __PACKAGE__->has_many('cds' => 'MyDatabase::Main::Result::Cd');
  15
  16 1;
  17