package # hide from PAUSE DBICTest::Schema::Artist; use base 'DBIx::Class::Core'; __PACKAGE__->table('artist'); __PACKAGE__->source_info({ "source_info_key_A" => "source_info_value_A", "source_info_key_B" => "source_info_value_B", "source_info_key_C" => "source_info_value_C", }); __PACKAGE__->add_columns( 'artistid' => { data_type => 'integer', is_auto_increment => 1, }, 'name' => { data_type => 'varchar', size => 100, is_nullable => 1, }, rank => { data_type => 'integer', default_value => 13, }, charfield => { data_type => 'char', size => 10, 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( cds_unordered => 'DBICTest::Schema::CD' ); __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 ); __PACKAGE__->has_many( artist_to_artwork => 'DBICTest::Schema::Artwork_to_Artist' => 'artist_id' ); __PACKAGE__->many_to_many('artworks', 'artist_to_artwork', 'artwork'); sub sqlt_deploy_hook { my ($self, $sqlt_table) = @_; if ($sqlt_table->schema->translator->producer_type =~ /SQLite$/ ) { $sqlt_table->add_index( name => 'artist_name', fields => ['name'] ) or die $sqlt_table->error; } } __PACKAGE__->resultset_class( __PACKAGE__ . '::ResultSet'); package DBICTest::Schema::Artist::ResultSet; use base qw( DBIx::Class::ResultSet::RecursiveUpdate ); 1;