line |
true |
false |
branch |
41
|
0 |
0 |
basename($file) eq $TESTDB ? : |
48
|
0 |
0 |
if defined $$self{'test_db_arch'} |
56
|
0 |
0 |
unless defined $test_db_age |
58
|
0 |
0 |
if ($$self{'force'} or not -e $local_file or $test_db_age >= 0 and -e $local_file and -M $local_file > $test_db_age) |
68
|
0 |
0 |
if ($status == 200) { } |
|
0 |
0 |
elsif ($status == 304) { } |
78
|
0 |
0 |
if -r $local_file |
106
|
0 |
1 |
unless -r $database |
108
|
0 |
1 |
unless $$self{'test_db_conn'} |
111
|
0 |
1 |
unless $$self{'test_db'} = 'DBI'->connect('DBI:SQLite:dbname=' . $database, '', '', {'RaiseError', 1, %{{} unless $$self{'test_db_conn'};}}) |
117
|
0 |
1 |
unless $$self{'test_db_sth'} = $self->_dbh->prepare("\n SELECT COUNT(id) \n FROM cpanstats\n WHERE status='PASS' \n AND dist=? \n AND version=? \n AND osname=?\n ") |
132
|
1 |
0 |
if ($self->_dbh) |
133
|
1 |
0 |
if $self->_sth |
143
|
0 |
16 |
unless $sth |
148
|
16 |
0 |
if $row |
154
|
5 |
1 |
if $$self{'test_db_cache'} |
166
|
1 |
28 |
unless defined $$self{'test_db_cache'} |
168
|
5 |
24 |
if ($$self{'test_db_exceptions'}) |
170
|
1 |
4 |
if (ref $$self{'test_db_exceptions'} eq 'CODE') { } |
171
|
1 |
0 |
if &{$$self{'test_db_exceptions'};}($path) |
175
|
2 |
2 |
if (ref $$self{'test_db_exceptions'} eq 'ARRAY') { } |
|
2 |
0 |
elsif (not ref $$self{'test_db_exceptions'} or ref $$self{'test_db_exceptions'} eq 'Regexp') { } |
183
|
3 |
1 |
if $path =~ $re->re |
187
|
13 |
12 |
if $$self{'test_db_cache'}->has_key($path) |
200
|
6 |
6 |
if (ref $$self{'test_db_os'} eq 'ARRAY') { } |