From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

package # hide from PAUSE
DBICTest::Schema::Artist;
__PACKAGE__->table('artist');
__PACKAGE__->add_columns(
'artistid' => {
data_type => 'integer',
is_auto_increment => 1
},
'name' => {
data_type => 'varchar',
size => 100,
is_nullable => 1,
},
);
__PACKAGE__->set_primary_key('artistid');
__PACKAGE__->mk_classdata('field_name_for', {
artistid => 'primary key',
name => 'artist name',
});
__PACKAGE__->has_many(
cds => 'DBICTest::Schema::CD', undef,
{ order_by => 'year' },
);
__PACKAGE__->has_many( twokeys => 'DBICTest::Schema::TwoKeys' );
__PACKAGE__->has_many( onekeys => 'DBICTest::Schema::OneKey' );
__PACKAGE__->has_many(
artist_undirected_maps => 'DBICTest::Schema::ArtistUndirectedMap',
[ {'foreign.id1' => 'self.artistid'}, {'foreign.id2' => 'self.artistid'} ],
{ cascade_copy => 0 } # this would *so* not make sense
);
1;