Since things are kinda slow here at work I decided to play around with a new (for me) CPAN module DBIx::Class. In doing so I created a fairly simple/stupid application just to exercise the parts. Here is the main program:

#!/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=dbixte
+st',
                                 'dbixtest','tsetxibd');


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



[download]

(password above is not real!) and here is the schema module under ./Traveller/DB:

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

__PACKAGE__-> load_namespaces();

1;

[download]

and lastly here is the result class:

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;
[download]

You might even notice that this follows the DBIx::Class documentation (tutorial?) pretty closely where only the names for things have been changed.

When I run the simple/stupid main program I get:

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

[download]

I even tried using 'Sector' as the resultset name. Am I confused? It's always possible...

UPDATE: This is running under "perl 5, version 14, subversion 2 (v5.14.2) built for cygwin-thread-multi-64int"