#!/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();