[dbsrgits/DBIx-Class-Fixtures.git] / t / lib / DBICTest / Schema / Artist.pm

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' },
);

sub new {
	my ( $class, $args ) = @_;

	$args->{name} = "Test Name" unless $args->{name};

	return $class->next::method( $args );
}

1;
Commit	Line	Data
c1a04675	1	package # hide from PAUSE
	2	DBICTest::Schema::Artist;
	3
	4	use base 'DBIx::Class::Core';
	5
	6	__PACKAGE__->table('artist');
	7	__PACKAGE__->add_columns(
	8	'artistid' => {
	9	data_type => 'integer',
	10	is_auto_increment => 1,
	11	},
	12	'name' => {
	13	data_type => 'varchar',
	14	size => 100,
	15	is_nullable => 1,
	16	},
	17	);
	18	__PACKAGE__->set_primary_key('artistid');
	19
	20	__PACKAGE__->has_many(
	21	cds => 'DBICTest::Schema::CD', undef,
	22	{ order_by => 'year' },
	23	);
	24
65a80d4e	25	sub new {
	26	my ( $class, $args ) = @_;
	27
	28	$args->{name} = "Test Name" unless $args->{name};
	29
	30	return $class->next::method( $args );
	31	}
	32
c1a04675	33	1;