| line |
true |
false |
branch |
|
29
|
371 |
0 |
if (open my $fh, "<:raw", "/dev/urandom") |
|
33
|
371 |
0 |
if (defined $read and $read == $len) |
|
86
|
2 |
9 |
unless $call_id and $function_name and $token |
|
92
|
0 |
9 |
if $@ or not $decoded |
|
95
|
1 |
8 |
unless @parts == 5 |
|
100
|
1 |
7 |
unless _timing_safe_compare($token_function, $function_name) |
|
104
|
0 |
7 |
if $@ or not defined $expiry |
|
105
|
1 |
6 |
if $expiry < time |
|
110
|
1 |
5 |
unless _timing_safe_compare($token_signature, $expected_signature) |
|
113
|
1 |
4 |
unless _timing_safe_compare($token_call_id, $call_id) |
|
132
|
1 |
2 |
unless $self->_debug_mode |
|
136
|
0 |
2 |
if ($@ or not $decoded) |
|
138
|
0 |
0 |
defined $token ? : |
|
145
|
1 |
1 |
if (@parts != 5) |
|
156
|
0 |
1 |
$expiry < $current ? : |
|
|
1 |
0 |
defined $expiry ? : |
|
159
|
0 |
1 |
length $tc > 8 ? : |
|
|
1 |
0 |
length $ts > 8 ? : |
|
|
1 |
0 |
defined $expiry && !$expired ? : |