| line |
true |
false |
branch |
|
69
|
0 |
2 |
unless my $self = 'DBI'->connect("dbi:SQLite:dbname=$dbname", '', '', {'AutoCommit', 0}) |
|
98
|
1 |
1 |
if (ref $data eq 'Geo::GeoNames::Record') { } |
|
|
1 |
0 |
elsif (ref $data eq 'Geo::GeoNames::File') { } |
|
|
0 |
0 |
elsif (ref $data eq 'ARRAY') { } |
|
131
|
11 |
0 |
if (ref $record eq 'Geo::GeoNames::Record') { } |
|
193
|
0 |
1 |
if ($word =~ /^\d+$/) { } |
|
212
|
1 |
0 |
if ($record) |
|
244
|
1 |
1 |
unless (grep {$_ eq 'geoname';} @tbl_names) |
|
249
|
1 |
1 |
unless (grep {$_ eq 'alternate_name';} @tbl_names) |
|
260
|
1 |
1 |
unless (grep {$_ eq 'alternate_name_idx';} @idx_names) |