| blib/lib/HTTPD/Log/Merge.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| branch | 14 | 22 | 63.6 | 
| line | true | false | branch | 
|---|---|---|---|
| 37 | 0 | 2 | unless $$self{'logfile'} | 
| 38 | 0 | 2 | unless ref $$self{'logfile'} eq 'ARRAY' | 
| 41 | 0 | 2 | unless @{$$self{'logfile'};} > 1 | 
| 43 | 0 | 6 | unless 'IO::File'->new($_) | 
| 47 | 0 | 6 | unless my $filter = 'HTTPD::Log::Filter'->new | 
| 53 | 3 | 3 | $format eq 'SQUID' ? : | 
| 75 | 6 | 60 | unless (defined $$self{'line'}[$index]) | 
| 80 | 0 | 60 | unless $$self{'filter'}[$index]->filter($$self{'line'}[$index]) | 
| 88 | 30 | 30 | unless ($time) | 
| 90 | 0 | 30 | unless my $date = $$self{'filter'}[$index]->date | 
| 110 | 2 | 0 | if $$self{'verbose'} |