File Coverage

blib/lib/NoSQL/PL2SQL/DBI/SQLite.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1 1     1   2068 use NoSQL::PL2SQL::DBI::MySQL ;
  0            
  0            
2             use NoSQL::PL2SQL::DBI::SQLite ;
3              
4             package NoSQL::PL2SQL::DBI::SQLite ;
5             use base qw( NoSQL::PL2SQL::DBI ) ;
6              
7             my $xmlschema =<<'endschema' ;
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             endschema
49              
50             my $indexschema =<<'endschema' ;
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             endschema
76              
77             sub schema {
78             my $self = shift ;
79             my $schema = @_? shift( @_ ): $xmlschema ;
80             return NoSQL::PL2SQL::DBI::schema( $self, $schema ) ;
81             }
82              
83             sub indexschema {
84             return $indexschema ;
85             }
86              
87             sub stringencode {
88             my $self = shift ;
89             my $text = shift ;
90             return $text unless defined $text ;
91             return $text if @_ && $_[0] ;
92             $text =~ s/"/""/gs ;
93             return $text ;
94             }
95              
96             package NoSQL::PL2SQL::DBI::SQLite::Schema ;
97             use base qw( NoSQL::PL2SQL::DBI::Schema ) ;
98              
99             package NoSQL::PL2SQL::DBI::SQLite::Schema::table ;
100             use base qw( NoSQL::PL2SQL::DBI::MySQL::Schema::table ) ;
101              
102             package NoSQL::PL2SQL::DBI::SQLite::Schema::table::column ;
103             use base qw( NoSQL::PL2SQL::DBI::MySQL::Schema::table::column ) ;
104              
105             package NoSQL::PL2SQL::DBI::SQLite::Schema::index ;
106             use base qw( NoSQL::PL2SQL::DBI::MySQL::Schema::index ) ;
107              
108             package NoSQL::PL2SQL::DBI::SQLite::Schema::index::column ;
109             use base qw( NoSQL::PL2SQL::DBI::MySQL::Schema::index::column ) ;
110              
111             1;
112             __END__