The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Foorum::Schema;

use Moose;

our $VERSION = '1.001000';

extends 'DBIx::Class::Schema';

__PACKAGE__->load_classes;

use Foorum::XUtils ();

has 'base_path' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        return Foorum::XUtils::base_path();
    }
);

has 'config' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        return Foorum::XUtils::config();
    }
);

has 'cache' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        return Foorum::XUtils::cache();
    }
);

has 'theschwartz' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        return Foorum::XUtils::theschwartz();
    }
);

has 'tt2' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        return Foorum::XUtils::tt2();
    }
);

around 'connect' => sub {
    my $next = shift;

    my $s = $next->(@_);
    $s->storage->sql_maker->quote_char('`');
    $s->storage->sql_maker->name_sep('.');
    return $s;
};

1;