Branch Coverage

blib/lib/Logfile/EPrints/Hit.pm
Criterion Covered Total %
branch 14 48 29.1


line true false branch
148 0 5376 if $Logfile::EPrints::Hit::AUTOLOAD =~ /^[A-Z]/
151 0 5376 ref $$self{$Logfile::EPrints::Hit::AUTOLOAD} ? :
170 0 0 unless $Logfile::EPrints::Hit::GEO_IP_CLASS
171 0 0 unless @_
183 0 0 unless $Logfile::EPrints::Hit::GEO_IP_CLASS
184 0 0 unless @_
195 1 0 defined $addrs[0] ? :
230 0 124 unless $_[0]{'utime'} ||= Date::Parse::str2time($_[0]{'date'})
246 0 0 if exists $$self{'_institution'}
254 0 1 if exists $$self{'_homepage'}
264 1 0 unless defined $addr
267 0 0 unless $addr =~ /([^\.]+)\.([^\.]+)\.([^\.]+)$/
268 0 0 length $3 > 2 || length $2 > 3 ? :
272 0 0 if defined $Logfile::EPrints::Hit::INST_CACHE{$uri}
273 0 0 if exists $Logfile::EPrints::Hit::INST_CACHE{$uri}
279 0 0 if ($r->is_error)
286 0 0 unless $r->content =~ m[<\s*title[^>]*>([^<]+)<\s*/\s*title\s*>]is
346 2255 0 if ($_[1] =~ s/\[([^\]]+)\]\s//)
353 2255 0 if ($Logfile::EPrints::Hit::Combined::LINE_PARSER->parse($_[1])) { }
363 1 2254 unless ($self{'address'} =~ /\d$/)
395 1 0 if substr($self{'page'}, -1) eq '"'
401 1 0 unless ($self{'address'} =~ /\d$/)
422 0 3 unless @self{'hostname', 'userid_identd', 'userid', 'date', 'agent', 'from', 'process_time', 'referrer', 'method', 'page', 'version', 'code', 'size'} = $hit =~ m(([^ ]+) ([^ ]+) ([^ ]+) \[(.{26})\] \[(.+)\|([^\|]+)\|([^\|]+)\|([^\|]+)\] "([A-Z]+) ([^ ]+) (HTTP/1\.[01])" (\d+) (\d+|-))
440 0 3 if ($self{'hostname'} =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)