lib/Bookmarks/M/DB.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

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,
    additional_base_classes => [
        qw(
           Class::DBI::AbstractSearch
           Class::DBI::Plugin::DeepAbstractSearch
           Class::DBI::Plugin::AbstractCount
           Class::DBI::Plugin::Pager
       )
    ],
);
 
=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;