* DBIx::Skinny::Schema::Loader [#zd732f67]
*** myapp.pl [#g7829166]
#!/usr/bin/env perl
use strict;
use warnings;
use MyDB;
my $db = MyDB->new;
my $connect_info =
{ dsn => 'dbi:Pg:dbname=mydb;host=localhost', username => 'postgres', password => '' };
$db->connect($connect_info);
$db->schema->load_schema($connect_info);
my $row = $db->search( 't1', { name => 'taro' } )->next;
print $row->id . "\n";
*** MyDB.pm [#yc9b6d14]
package MyDB;
use strict;
use warnings;
use DBIx::Skinny;
1;
*** MyDB/Schema.pm [#kde5e0f0]
package MyDB::Schema;
use strict;
use warnings;
use base qw/DBIx::Skinny::Schema::Loader/;
use DBIx::Skinny::Schema;
1;