Branch Coverage

blib/lib/Perlbal/Plugin/Expires.pm
Criterion Covered Total %
branch 14 22 63.6


line true false branch
23 0 1 unless $svc and $$svc{'role'} eq 'web_server'
58 1 2 unless $base eq 'access' or $base eq 'now' or $base eq 'modification'
61 2 2 unless my $sec = eval { do { _expires_to_sec($expires) } }
78 0 3 unless my $res = $$client{'res_headers'}
80 0 3 if $res->response_code ne '200'
81 0 3 unless exists $$svc{'extra_config'}{'__expires'}
85 0 3 unless my $expires = $$config{$type} || $$config{'default'}
97 0 3 $type eq 'modification' && $last_modified ? :
126 1 9 unless $num =~ /^\d+$/
128 1 8 unless exists $__unit2sec{$unit}
140 0 0 unless my $expires = $$svc{'extra_config'}{'__expires'}