| blib/lib/Perlbal/Plugin/Expires.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 22 | 68.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 23 | 0 | 0 | 1 | $svc and $$svc{'role'} eq 'web_server' |
| 97 | 3 | 0 | 0 | $type eq 'modification' && $last_modified |
| line | l | !l | condition |
|---|---|---|---|
| 65 | 1 | 1 | $$svc{'extra_config'}{'__expires'} ||= {} |
| 83 | 3 | 0 | $res->header('Content-Type') || 'default' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 56 | 4 | 1 | 0 | $service ||= $$mc{'ctx'}{'last_created'} |
| 58 | 2 | 1 | 2 | $base eq 'access' or $base eq 'now' |
| 3 | 1 | 1 | $base eq 'access' or $base eq 'now' or $base eq 'modification' | |
| 85 | 1 | 2 | 0 | $$config{$type} || $$config{'default'} |