package # hide from PAUSE
DBICTest::Schema::Artist;
use base 'DBIx::Class::Core';
__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__->has_many(
cds => 'DBICTest::Schema::CD', undef,
{ order_by => 'year' },
);
__PACKAGE__->might_have(
washed_up => 'DBICTest::Schema::Artist::WashedUp',
{'foreign.fk_artistid' => 'self.artistid'},
);
sub new {
my ( $class, $args ) = @_;
$args->{name} = "Test Name" unless $args->{name};
return $class->next::method( $args );
}
1;