| blib/lib/HTTP/CSPHeader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 20 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 2 | 2 | if (my(@dirs) = @{$self->nonces_for;}) |
| 42 | 4 | 0 | if (defined $policy{$dir}) { } |
| 82 | 0 | 1 | unless sysopen my $fh, "/dev/urandom", 2048 |
| 83 | 0 | 1 | unless sysread $fh, my $data, 16 |
| 109 | 0 | 2 | unless $self->_changed |
| 121 | 4 | 0 | if (@args) |
| 127 | 1 | 3 | if ($dir =~ s/^\+//u) { } |
| 128 | 1 | 0 | if (exists $policy->{$dir}) { } |
| 0 | 0 | elsif (defined $val) { } | |
| 137 | 2 | 1 | if (defined $val) { } |