| 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'} |