From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

GWILLIAMS / RDF-Trine-0.130 / lib / RDF / Trine / Store / DBI / SQLite.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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
—
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
—
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

              
=head1 NAME
RDF::Trine::Store::DBI::SQLite - SQLite subclass of DBI store
=head1 VERSION
This document describes RDF::Trine::Store::DBI::SQLite version 0.130
=head1 SYNOPSIS
    use RDF::Trine::Store::DBI::SQLite;
=head1 DESCRIPTION
=cut
package RDF::Trine::Store::DBI::SQLite;
use strict;
use warnings;
no warnings 'redefine';
use base qw(RDF::Trine::Store::DBI);
use Scalar::Util qw(blessed reftype refaddr);
our $VERSION;
BEGIN {
        $VERSION        = "0.130";
        my $class       = __PACKAGE__;
        $RDF::Trine::Store::STORE_CLASSES{ $class }     = $VERSION;
}
sub _config_meta {
        return {
                required_keys   => [qw(dsn username password name)],
                fields                  => {
                        name            => { description => 'Model Name', type => 'string' },
                        dsn                     => { description => 'DSN', type => 'string', template => 'DBI:SQLite:dbname=[%filename%]' },
                        filename        => { description => 'SQLite Database Filename', type => 'filename' },
                        username        => { description => 'Username', type => 'string', value => '' },
                        password        => { description => 'Password', type => 'password', value => '' },
                        driver          => { description => 'Driver', type => 'string', value => 'SQLite' },
                },
        }
}
=head1 METHODS
=over 4
=cut
=item C<< new_with_config ( \%config ) >>
Returns a new RDF::Trine::Store object based on the supplied configuration hashref.
=cut
sub new_with_config {
        my $proto       = shift;
        my $config      = shift;
        $config->{storetype} = 'DBI::SQLite';
        my $exists      = (-r $config->{filename});
        my $self        = $proto->SUPER::new_with_config( $config );
        unless ($exists) {
                $self->init();
        }
        return $self;
}
=item C<< init >>
Creates the necessary tables in the underlying database.
=cut
sub init {
        my $self        = shift;
        my $dbh         = $self->dbh;
        my $name        = $self->model_name;
        $self->SUPER::init();
        my $id          = RDF::Trine::Store::DBI::_mysql_hash( $name );
         
        $dbh->begin_work;
        $dbh->do( "CREATE INDEX idx_${name}_spog ON Statements${id} (Subject,Predicate,Object,Context);" ) || do { $dbh->rollback; return undef };
        $dbh->do( "CREATE INDEX idx_${name}_pogs ON Statements${id} (Predicate,Object,Context,Subject);" ) || do { $dbh->rollback; return undef };
        $dbh->do( "CREATE INDEX idx_${name}_opcs ON Statements${id} (Object,Predicate,Context,Subject);" ) || do { $dbh->rollback; return undef };
        $dbh->do( "CREATE INDEX idx_${name}_cpos ON Statements${id} (Context,Predicate,Object,Subject);" ) || do { $dbh->rollback; return undef };
        $dbh->commit;
}
1; # Magic true value required at end of module
__END__
=back
=head1 BUGS
Please report any bugs or feature requests to
C<bug-rdf-store-dbi@rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>.
=head1 AUTHOR
Gregory Todd Williams  C<< <gwilliams@cpan.org> >>
=head1 COPYRIGHT
Copyright (c) 2006-2010 Gregory Todd Williams. All rights reserved. This
program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut