#!/usr/bin/perl -w 
use strict;
use lib qq@/home/pberghold/tmp/foo@;
use Traveller::DB::Schema;
use Data::Dumper;

my $schema = Traveller::DB::Schema->connect('DBI:mysql:database=dbixtest',
                                 'dbixtest','tsetxibd');


my $new_sector = $schema -> resultset('sector')->new({name=>'foregone'});
$new_sector->insert();




##</code><code>##

package Traveller::DB::Schema;
use base qw/ DBIx::Class::Schema/;

__PACKAGE__-> load_namespaces();

1;


##</code><code>##

package Traveller::DB::Result::Sector;
use base qw/ DBIx::Class::Core /;

__PACKAGE__ -> table('sector');
__PACKAGE__ -> add_columns(qw/ sector_id name / );
__PACKAGE__ -> set_primary_key('sector_id');


1;

##</code><code>##

$ ./traveller.pl 
DBIx::Class::Schema::resultset(): Can't find source for sector at ./traveller.pl line 11