package My::Schema;

use strict;
use warnings;
use base qw/DBIx::Class::Schema/;
use DBIx::Connector;
use DBIx::QueryByName::Logger;

__PACKAGE__->load_classes;

my $dsn;
my $username;
my $password;
my %attr;
my %extr;

my $schema = My::Schema->connect( sub {
        my $conn = DBI::Connector->new(
                   $dsn, $username, $password, \%attr, \%extr);
        my $dbh = $conn->dbh;
        $conn->run( fixup => sub {
             my $log;
             &$_->($log = get_logger());
        });
});