package WWW::UsePerl::Server::Model::DB;
use strict;
use warnings;
use base 'Catalyst::Model::DBIC::Schema';

my $config = WWW::UsePerl::Server->config;

__PACKAGE__->config(
    schema_class => 'WWW::UsePerl::Server::Schema',
    connect_info => {
        dsn         => $config->{db_dsn},
        user        => $config->{db_user},
        password    => $config->{db_password},
        quote_names => q{1},
    }
);

=head1 NAME

WWW::UsePerl::Server::Model::DB - Catalyst DBIC Schema Model

=head1 SYNOPSIS

See L<WWW::UsePerl::Server>

=head1 DESCRIPTION

L<Catalyst::Model::DBIC::Schema> Model using schema L<WWW::UsePerl::Server::Schema>

=head1 GENERATED BY

Catalyst::Helper::Model::DBIC::Schema - 0.55

=head1 AUTHOR

Leon Brocard

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;