File: Cd.pm

package info (click to toggle)
libur-perl 0.470%2Bds-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 7,192 kB
  • sloc: perl: 61,814; javascript: 255; xml: 108; sh: 13; makefile: 9
file content (18 lines) | stat: -rw-r--r-- 422 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
package CdExample::Cd;
use strict;
use warnings;
use CdExample;
        
class CdExample::Cd {
    id_by => 'cd_id',
    has => [
        artist => { is => 'CdExample::Artist', id_by => 'artist_id' },
        title  => { is => 'Text' },
        year   => { is => 'Integer' },
        artist_name => { via => 'artist', to => 'name' },
    ],
    data_source => 'CdExample::DataSource::DB1',
    table_name => 'CDS',
};
1;