| blib/lib/AnyEvent/GnuPG.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 68 | 36.7 |
| line | l | !l | condition |
|---|---|---|---|
| 175 | 106 | 0 | _eq 'keyexpired', $_ and do { die 'the key has expired since ' . scalar(localtime $arg) } |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 405 | 6 | 1 | 16 | defined $$self{'input'} and not ref $$self{'input'} |
| 412 | 7 | 1 | 15 | defined $$self{'output'} and not ref $$self{'output'} |
| 476 | 0 | 0 | 1 | -d $args{'homedir'} and -x _ |
| 592 | 0 | 0 | 0 | _eq 'keygen.algo', $_ and $self->_send_command($algo) |
| 595 | 0 | 0 | 0 | _eq 'keygen.size', $_ and $self->_send_command($size) |
| 598 | 0 | 0 | 0 | _eq 'keygen.valid', $_ and $self->_send_command($expire) |
| 601 | 0 | 0 | 0 | _eq 'keygen.name', $_ and $self->_send_command($name) |
| 604 | 0 | 0 | 0 | _eq 'keygen.email', $_ and $self->_send_command($email) |
| 607 | 0 | 0 | 0 | _eq 'keygen.comment', $_ and $self->_send_command($comment) |
| 749 | 4 | 2 | 0 | $args{'sign'} and $args{'symmetric'} |
| line | l | !l | condition |
|---|---|---|---|
| 84 | 17 | 23 | $cb ||= '' |
| 124 | 75 | 50 | $arg ||= '' |
| 545 | 0 | 0 | $algo ||= 1 |
| 548 | 0 | 0 | $size ||= 1024 |
| 553 | 0 | 0 | $expire ||= 0 |
| 555 | 0 | 0 | $args{'passphrase'} || '' |
| 752 | 3 | 3 | $args{'passphrase'} || '' |
| 815 | 3 | 0 | $args{'passphrase'} || '' |
| 958 | 4 | 0 | $args{'passphrase'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 262 | 0 | 0 | 11 | _eq 'inv_recp', $_ or _eq 'inc_sgnr', $_ |
| 470 | 0 | 1 | 0 | ref $proto || $proto |
| 731 | 5 | 1 | 0 | $args{'recipient'} or $args{'symmetric'} |
| 764 | 6 | 0 | 0 | $args{'plaintext'} || $args{'input'} |
| 821 | 3 | 0 | 0 | $args{'plaintext'} || $args{'input'} |
| 949 | 4 | 0 | 0 | $args{'ciphertext'} || $args{'input'} |