Form-Processor-Model-RDBO/t/lib/RDBO/Album.pm

   1 package RDBO::Album;
   2
   3 use strict;
   4
   5 use base qw(DB::Object);
   6
   7 __PACKAGE__->meta->setup(
   8    table => 'album',
   9
  10    columns => [
  11        qw/ id artist_id title  /
  12    ],
  13
  14    primary_key_columns => [ qw/ id / ],
  15
  16    foreign_keys =>
  17    [
  18         artist_fk =>
  19         {
  20           class          => 'RDBO::Artist',
  21           key_columns    => { artist_id => 'id' },
  22         },
  23     ],
  24
  25     relationships =>
  26     [
  27         artist_rel =>
  28         {
  29           type       => 'many to one',
  30           class      => 'RDBO::Artist',
  31           column_map => { artist_id => 'id' },
  32         },
  33
  34     ],
  35
  36 );
  37
  38 sub active_column { 'title' }
  39
  40 =head1 AUTHOR
  41
  42 vti
  43
  44 =head1 LICENSE
  45
  46 This library is free software, you can redistribute it and/or modify
  47 it under the same terms as Perl itself.
  48
  49 =cut
  50
  51 1;