package Bookmarks::M::DB; use strict; use base 'Catalyst::Model::CDBI'; use Path::Class; my $DBHOME=dir(Bookmarks->config->{home})->file('bookmarks.db'); __PACKAGE__->config( dsn => "dbi:SQLite:$DBHOME", user => '', password => '', options => {}, relationships => 1 ); =head1 NAME Bookmarks::M::DB - CDBI Model Component =head1 SYNOPSIS Very simple to use =head1 DESCRIPTION Very nice component. =head1 AUTHOR Clever guy =head1 LICENSE This library is free software . You can redistribute it and/or modify it under the same terms as perl itself. =cut 1;