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;