Branch Coverage

blib/lib/Geo/IP/RU/IpGeoBase.pm
Criterion Covered Total %
branch 0 48 0.0


line true false branch
69 0 0 unless my $db = $$self{'db'}
72 0 0 if (not $$db{'dbh'}) { }
73 0 0 unless $$db{'dsn'}
76 0 0 unless $$db{'dbh'} = 'DBI'->connect($$db{'dsn'}, $$db{'user'}, $$db{'pass'}, {'RaiseError', 0, 'PrintError', 0})
83 0 0 unless exists $$db{'decode'}
86 0 0 if ($$db{'decode'})
91 0 0 unless $$db{'driver'} = $$db{'dbh'}{'Driver'}{'Name'}
114 0 0 unless my $ip = shift()
130 0 0 if $rest{'order'}
133 0 0 if not $res and $dbh->errstr
146 0 0 if not $res and $dbh->errstr
160 0 0 unless return $dbh->do($query)
184 0 0 unless return $dbh->do($query)
195 0 0 unless return $dbh->do($query)
201 0 0 unless $$self{'db'}{'decode'}
202 0 0 unless defined $value
205 0 0 ref $value eq 'ARRAY' ? :
213 0 0 @_ % 2 ? :
218 0 0 unless open my $fh, '<:encoding(cp1251)', $file
227 0 0 if exists $rec{'block'}
248 0 0 unless $self->can($call)
273 0 0 unless return $self->dbh->do($query)
295 0 0 unless return $self->dbh->do($query)
318 0 0 unless return $self->dbh->do($query)