blib/lib/Crypt/MagicSignatures/Envelope.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 28 | 44 | 63.6 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
28 | 14 | 0 | 5 | @_ > 1 and not @_ % 2 |
33 | 5 | 0 | 0 | $self{'alg'} and uc $self{'alg'} ne 'RSA-SHA256' |
39 | 5 | 0 | 0 | $self{'encoding'} and lc $self{'encoding'} ne 'base64url' |
115 | 0 | 10 | 1 | $temp = $env->at('alg') and uc $temp->text ne 'RSA-SHA256' |
121 | 0 | 9 | 1 | $temp = $env->at('encoding') and lc $temp->text ne 'base64url' |
320 | 1 | 7 | 14 | ref $_ && ref $_ eq 'ARRAY' |
574 | 5 | 21 | 0 | ref $key and $key eq 'HASH' |
line | l | !l | condition |
---|---|---|---|
66 | 0 | 0 | $self->{'sigs'} //= [] |
220 | 55 | 0 | (shift())->{'data'} // '' |
238 | 16 | 3 | (shift())->{'data_type'} // 'text/plain' |
516 | 0 | 2 | b64url_encode($sig->{'key_id'}) || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
95 | 0 | 0 | 11 | not $env or $env->namespace ne $ME_NS |
339 | 7 | 6 | 7 | $flag eq '-data' or $flag eq '-compatible' |
424 | 15 | 8 | 0 | $self->{'sig_base'} ||= join('.', b64url_encode($self->data, 0), b64url_encode($self->data_type), b64url_encode($self->encoding), b64url_encode($self->alg)) |
562 | 8 | 6 | 12 | $_[-1] eq '-data' or $_[-1] eq '-compatible' |
14 | 0 | 12 | $_[-1] eq '-data' or $_[-1] eq '-compatible' or $_[-1] eq '-base' |