package MyApp::Model::DB; use strict; use base 'Catalyst::Model::DBIC::Schema'; my $dsn = $ENV{MYAPP_DSN} ||= 'dbi:SQLite:myapp.db'; __PACKAGE__->config( schema_class => 'MyApp::Schema', connect_info => { dsn => $dsn, user => '', password => '', on_connect_do => q{PRAGMA foreign_keys = ON}, } ); =head1 NAME MyApp::Model::DB - Catalyst DBIC Schema Model =head1 SYNOPSIS See L =head1 DESCRIPTION L Model using schema L =head1 GENERATED BY Catalyst::Helper::Model::DBIC::Schema - 0.54 =head1 AUTHOR root =head1 LICENSE This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1;