| blib/lib/GPG.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 91 | 25.2 |
| line | l | !l | condition |
|---|---|---|---|
| 115 | 0 | 0 | $this->error('no key_size defined !') and return |
| 117 | 0 | 0 | $this->error('no real_name defined !') and return |
| 119 | 0 | 0 | $this->error('no email defined !') and return |
| 122 | 0 | 0 | $this->error('no passphrase defined !') and return |
| 260 | 0 | 1 | $this->error($error) and return |
| 270 | 0 | 1 | $this->error($error) and return |
| 300 | 0 | 0 | $this->error($error) and return |
| 316 | 0 | 1 | $this->error($error) and return |
| 325 | 0 | 1 | $this->error($error) and return |
| 337 | 0 | 1 | $this->error($error) and return |
| 349 | 0 | 1 | $this->error($error) and return |
| 404 | 0 | 1 | $this->error($error) and return |
| 416 | 0 | 1 | $this->error($error) and return |
| 429 | 0 | 1 | $this->error($error) and return |
| 478 | 0 | 0 | push @$last_key_sig, $hash and next |
| 489 | 0 | 1 | $this->error($error) and return |
| 501 | 0 | 1 | $this->error($error) and return |
| 513 | 0 | 0 | $this->error($error) and return |
| 528 | 0 | 0 | $this->error($error) and return |
| 541 | 0 | 0 | $this->error($error) and return |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 186 | 0 | 0 | 0 | $1 and $1 eq 'p' |
| 187 | 0 | 0 | 0 | $1 and $1 eq 's' |
| 216 | 0 | 0 | 0 | push @{$$ret{'secret'};}, $1 and ++$$ret{'total_ok'} |
| 223 | 0 | 0 | 0 | push @{$$ret{'public'};}, $1 and ++$$ret{'total_ok'} |
| 476 | 0 | 0 | 0 | $line[1] ne 'm' and $line[1] ne 'f' |
| 0 | 0 | 0 | $line[1] ne 'm' and $line[1] ne 'f' and $line[1] ne 'u' | |
| 477 | 0 | 0 | 0 | $$hash{'sig'} = [] and $last_key_sig = $$hash{'sig'} |
| line | l | !l | condition |
|---|---|---|---|
| 17 | 0 | 1 | $params{'config'} || '' |
| 18 | 1 | 0 | $params{'armor'} || '1' |
| 19 | 0 | 1 | $params{'debug'} || '' |
| 58 | 2 | 5 | $$this{'error'} || '' |
| 64 | 0 | 0 | $$this{'warning'} || '' |
| 120 | 0 | 1 | $params{'comment'} || '' |
| 151 | 1 | 0 | "$pubring" || die("cannot unlink '${pubring}'") |
| 155 | 1 | 0 | "$secring" || die("cannot unlink '${secring}'") |
| 258 | 0 | 1 | $1 || '0' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 13 | 0 | 1 | 0 | ref $this || $this |
| 15 | 0 | 1 | 0 | $params{'gnupg_path'} || $GNUPG_PATH |
| 16 | 1 | 0 | 0 | $params{'homedir'} || $ENV{'HOME'} . '/.gnupg' |
| 476 | 0 | 0 | 0 | not $line[1] or $line[1] ne 'm' and $line[1] ne 'f' and $line[1] ne 'u' |