| line |
true |
false |
branch |
|
24
|
0 |
1 |
unless -e $_ |
|
42
|
0 |
29 |
if (defined &Params::Util::_STRING($_[-1]) and $_[-1] eq '-DEBUG') |
|
60
|
4 |
24 |
if (defined &Params::Util::_STRING($_[1])) { } |
|
|
24 |
0 |
elsif (&Params::Util::_HASHLIKE($_[1])) { } |
|
68
|
0 |
28 |
unless (defined &Params::Util::_STRING($params{'file'}) and $params{'create'} || -f $params{'file'}) |
|
78
|
26 |
2 |
unless (defined $params{'readonly'}) |
|
79
|
6 |
20 |
$params{'create'} ? : |
|
81
|
0 |
28 |
unless (&Params::Util::_CLASS($params{'package'})) |
|
88
|
2 |
26 |
if (defined $params{'cache'}) |
|
90
|
0 |
2 |
if ($params{'prune'}) |
|
93
|
0 |
2 |
unless ($params{'user_version'}) |
|
99
|
0 |
2 |
unless (${"${pkg}::VERSION";}) |
|
108
|
0 |
2 |
unless my $c = &Params::Util::_STRING(shift @queue) |
|
122
|
4 |
24 |
if ($created) |
|
124
|
0 |
4 |
unless (-d $dir) |
|
126
|
0 |
0 |
if $params{'prune'} |
|
128
|
0 |
4 |
if $params{'prune'} |
|
133
|
6 |
22 |
$params{'create'} ? : |
|
|
1 |
27 |
$params{'unicode'} ? : |
|
141
|
2 |
26 |
if ($created and &Params::Util::_CODELIKE($params{'create'})) |
|
147
|
0 |
27 |
if (exists $params{'user_version'} and $user_version != $params{'user_version'}) |
|
153
|
1 |
26 |
if ($cached and -f $cached) |
|
161
|
2 |
24 |
$params{'readonly'} ? : |
|
162
|
1 |
25 |
$params{'unicode'} ? : |
|
163
|
1 |
25 |
$unicode ? : |
|
273
|
24 |
2 |
unless $readonly |
|
295
|
2 |
24 |
if ($cleanup) { } |
|
320
|
23 |
3 |
if ($params{'tables'}) |
|
334
|
1 |
34 |
if ($$t{'class'} ne lc $$t{'class'}) |
|
357
|
4 |
31 |
if ($$t{'type'} eq 'view') |
|
370
|
43 |
39 |
if ($$c{'type'} =~ /INT/i) { } |
|
|
16 |
23 |
elsif ($$c{'type'} =~ /(?:CHAR|CLOB|TEXT)/i) { } |
|
|
2 |
21 |
elsif ($$c{'type'} =~ /BLOB/i or not $$c{'type'}) { } |
|
|
1 |
20 |
elsif ($$c{'type'} =~ /(?:REAL|FLOA|DOUB)/i) { } |
|
378
|
0 |
2 |
if ($unicode) |
|
391
|
28 |
7 |
if ($$t{'pkn'} == 1) |
|
393
|
27 |
1 |
if ($$t{'pk1'}{'affinity'} eq 'INTEGER') |
|
397
|
27 |
8 |
if ($$t{'pki'}) { } |
|
|
4 |
4 |
elsif ($$t{'rowid'}) { } |
|
399
|
3 |
24 |
if ($$t{'pki'}{'name'} eq $$t{'name'} . '_id') |
|
420
|
31 |
4 |
if $$t{'rowid'} |
|
421
|
1 |
34 |
if $readonly |
|
424
|
15 |
20 |
if ($$t{'array'}) { } |
|
449
|
37 |
45 |
$$t{'array'} ? : |
|
460
|
27 |
8 |
if ($$t{'pki'}) { } |
|
|
4 |
4 |
elsif ($$t{'rowid'}) { } |
|
481
|
0 |
4 |
unless (/^(\w+).+?REFERENCES\s+(\w+)\s*\(\s*(\w+)/) |
|
500
|
15 |
20 |
$$t{'array'} ? : |
|
505
|
1 |
34 |
if ($params{'shim'}) { } |
|
555
|
15 |
20 |
if ($$t{'array'}) { } |
|
592
|
30 |
5 |
if ($$t{'pkn'}) |
|
593
|
10 |
20 |
if ($$t{'array'}) { } |
|
627
|
30 |
5 |
if ($$t{'create'}) |
|
628
|
11 |
19 |
$$t{'array'} ? : |
|
629
|
11 |
19 |
$$t{'array'} ? : |
|
630
|
11 |
19 |
$$t{'array'} ? : |
|
695
|
11 |
24 |
if ($$t{'create'} and $$t{'array'}) |
|
712
|
4 |
31 |
if ($params{'xsaccessor'}) { } |
|
713
|
4 |
0 |
$$t{'create'} ? : |
|
714
|
2 |
2 |
$$t{'array'} ? : |
|
717
|
0 |
4 |
$$t{'id'} ? : |
|
720
|
0 |
4 |
$$t{'id'} && $$t{'rowid'} ? : |
|
733
|
23 |
8 |
if ($$t{'pki'} and $$t{'rowid'}) |
|
742
|
3 |
28 |
if ($$t{'id'}) |
|
771
|
23 |
3 |
if $params{'tables'} |
|
774
|
4 |
22 |
if defined $params{'append'} |
|
777
|
23 |
3 |
if ($tables) |
|
790
|
1 |
25 |
if ($cached) |
|
792
|
0 |
1 |
unless (-d $dir) |
|
798
|
0 |
1 |
unless open FILE, ">$cached" |
|
805
|
26 |
0 |
if ($^P and $^V >= 5.008009) { } |
|
|
0 |
0 |
elsif ($DEBUG) { } |
|
807
|
14 |
21 |
if $DBH |
|
|
0 |
6 |
unless $DBH |
|
|
0 |
2 |
unless $DBH |
|
|
4 |
32 |
if ($DBH) { } |
|
|
180 |
28 |
if @_ |
|
|
21 |
0 |
unless $DBH |
|
|
22 |
9 |
if ref $_[0] |
|
|
5 |
2 |
unless $$self{'col1'} |
|
|
6 |
3 |
unless &$call() |
|
|
1 |
3 |
if @_ |
|
|
7 |
12 |
unless &$call() |
|
|
2 |
14 |
unless ($row) |
|
|
8 |
1 |
if @_ > 2 |
|
|
0 |
10 |
if defined wantarray |
|
|
2 |
0 |
unless $DBH |
|
|
11 |
20 |
if ($DBH) { } |
|
|
27 |
4 |
if @_ |
|
|
13 |
9 |
wantarray ? : |
|
|
15 |
5 |
unless ($rows == 1) |
|
|
0 |
0 |
if @_ |
|
|
0 |
0 |
if ref $_[0] |
|
|
0 |
0 |
unless $$self{'col1'} |
|
|
0 |
0 |
if @_ |
|
|
0 |
1 |
unless &$call() |
|
|
1 |
0 |
unless ($row) |
|
|
0 |
0 |
if @_ |
|
|
0 |
0 |
wantarray ? : |
|
|
1 |
0 |
unless ($rows == 1) |
|
|
1 |
0 |
if $DBH |
|
808
|
0 |
26 |
if $@ |
|
813
|
0 |
0 |
if $@ |