use MooseX::MarkAsMethods autoclean => 1; extends 'DBIx::Class::Core'; __PACKAGE__->load_components("Schema::Versioned"); __PACKAGE__->table("planet"); __PACKAGE__->add_columns( "planet_id", { data_type => "integer", extra => { unsigned => 1 }, is_auto_increment => 1, is_nullable => 0, }, "starport", { data_type => "integer", default_value => 1, is_nullable => 0 }, "diameter", { data_type => "integer", default_value => 0, is_nullable => 0 }, "atmosphere", { data_type => "integer", default_value => 0, is_nullable => 0 }, "population", { data_type => "integer", default_value => 0, is_nullable => 0 }, "government", { data_type => "integer", default_value => 0, is_nullable => 0 }, "lawlevel", { data_type => "integer", default_value => 0, is_nullable => 0 }, "starorbit", { data_type => "integer", extra => { unsigned => 1 }, is_foreign_key => 1, is_nullable => 0, }, ); __PACKAGE__->belongs_to( "starorbit", "RPG::Traveller::DBIx::Starmap::Schema::Result::Starorbit", { starorbit_id => "starorbit" }, { is_deferrable => 1, on_delete => "RESTRICT", on_update => "RESTRICT" }, ); __PACKAGE__->set_primary_key("planet_id"); __PACKAGE__->meta->make_immutable; #### use Test::More tests => 1; { use RPG::Traveller::DBIx::Schema; my $db = RPG::Traveller::DBIx::Schema->connect( 'dbi:mysql:hostname=localhost:database=starmapper', 'starmapper', 'secretsquirrel' ); # not the real creds above... $db->resultset('Planet'); } #### t/10-planet.t ............. Can't find source for Planet at /usr/lib/perl5/site_perl/5.14/DBIx/Class/Schema.pm line 1101. DBIx::Class::Schema::throw_exception('RPG::Traveller::DBIx::Schema=HASH(0x2006c030)', 'Can\'t find source for Planet') called at /usr/lib/perl5/site_perl/5.14/DBIx/Class/Schema.pm line 599 DBIx::Class::Schema::source('RPG::Traveller::DBIx::Schema=HASH(0x2006c030)', 'Planet') called at /usr/lib/perl5/site_perl/5.14/DBIx/Class/Schema.pm line 550 DBIx::Class::Schema::resultset('RPG::Traveller::DBIx::Schema=HASH(0x2006c030)', 'Planet') called at t/10-planet.t line 8