Branch Coverage

blib/lib/HTTP/SecureHeaders.pm
Criterion Covered Total %
branch 34 34 100.0


line true false branch
40 1 146 unless (exists $HTTP_FIELD_MAP{$field})
46 1 145 unless ($checker)
51 3 142 unless defined $value
53 1 141 unless (&$checker($value))
75 1 99 unless (&Scalar::Util::blessed($headers))
79 48 51 if ($headers->isa('HTTP::Headers')) { }
48 3 elsif ($headers->can('exists') and $headers->can('get') and $headers->can('set')) { }
80 2 46 if (defined $headers->header($http_field)) { }
81 1 1 if ($headers->header($http_field) eq \"")
90 2 46 if (defined $headers->get($http_field)) { }
45 1 elsif (not $headers->exists($http_field)) { }
91 1 1 if ($headers->get($http_field) eq \"")
149 4 105 unless ($name and $value)
153 2 103 unless ($checker)
156 1 102 unless (&$checker($value))
183 7 17 unless $_[0] eq "SAMEORIGIN"
195 18 5 unless $_[0] eq 0 or $_[0] eq 1