| line |
true |
false |
branch |
|
22
|
1 |
0 |
if $$self{'armor'} |
|
23
|
0 |
1 |
if $$self{'config'} |
|
24
|
1 |
0 |
if $$self{'homedir'} |
|
30
|
0 |
1 |
if ($$self{'debug'}) |
|
54
|
11 |
7 |
if ($string) { } |
|
55
|
10 |
1 |
$$this{'error'} ? : |
|
64
|
0 |
0 |
$$this{'warning'} ? : |
|
|
0 |
0 |
$string ? : |
|
74
|
0 |
18 |
unless ($pid) |
|
90
|
0 |
18 |
if ($error =~ /Warning/m) |
|
97
|
0 |
18 |
if ($$this{'debug'}) |
|
115
|
0 |
1 |
unless $key_size |
|
117
|
0 |
1 |
unless $real_name |
|
119
|
0 |
1 |
unless $email |
|
122
|
0 |
1 |
unless $passphrase |
|
134
|
0 |
1 |
if $comment |
|
143
|
0 |
1 |
unless $pid |
|
165
|
0 |
1 |
unless $pid |
|
167
|
1 |
0 |
unless $output =~ /^\s*\:\S+ key packet\:/ |
|
177
|
0 |
0 |
if $1 |
|
179
|
0 |
0 |
if $1 |
|
183
|
0 |
0 |
if $1 |
|
186
|
0 |
0 |
if $1 and $1 eq 'p' |
|
187
|
0 |
0 |
if $1 and $1 eq 's' |
|
188
|
0 |
0 |
if $2 |
|
192
|
0 |
0 |
if $1 |
|
194
|
0 |
0 |
if $1 |
|
216
|
0 |
0 |
if $1 |
|
223
|
0 |
0 |
if $1 |
|
227
|
0 |
2 |
if $1 |
|
235
|
0 |
1 |
unless $pid |
|
245
|
0 |
1 |
unless $pid |
|
255
|
0 |
1 |
unless $pid |
|
260
|
1 |
0 |
if $error |
|
269
|
0 |
1 |
unless $pid |
|
270
|
1 |
0 |
if $error |
|
276
|
0 |
0 |
if ($text[$i] =~ m[^pub\s+.*/(\w+)\s+\S+\s+(.*)\s*$]) |
|
278
|
0 |
0 |
if $1 |
|
279
|
0 |
0 |
if $2 |
|
282
|
0 |
0 |
if $1 |
|
298
|
0 |
0 |
unless $pid |
|
300
|
0 |
0 |
if $error |
|
314
|
0 |
1 |
unless $pid |
|
316
|
1 |
0 |
if $error |
|
323
|
0 |
1 |
unless $pid |
|
325
|
1 |
0 |
if $error |
|
335
|
0 |
1 |
unless $pid |
|
337
|
1 |
0 |
if $error |
|
347
|
0 |
1 |
unless $pid |
|
349
|
1 |
0 |
if $error |
|
360
|
0 |
2 |
if ($text[$i] =~ /\sSignature made (.*) using (\w+) key ID (\w+)\s*/) |
|
362
|
0 |
0 |
if $1 |
|
363
|
0 |
0 |
if $2 |
|
364
|
0 |
0 |
if $3 |
|
366
|
0 |
0 |
$text[$i + 1] =~ /\sGood signature from \"/m ? : |
|
368
|
0 |
0 |
if $1 |
|
380
|
0 |
1 |
unless $pid |
|
390
|
0 |
1 |
unless $pid |
|
402
|
0 |
1 |
unless $pid |
|
404
|
1 |
0 |
if $error |
|
414
|
0 |
1 |
unless $pid |
|
416
|
1 |
0 |
if $error |
|
427
|
0 |
1 |
unless $pid |
|
429
|
1 |
0 |
if $error |
|
439
|
0 |
1 |
unless $pid |
|
442
|
0 |
1 |
$error =~ /\sGood signature from \"/m ? : |
|
444
|
0 |
1 |
if $1 |
|
446
|
0 |
1 |
if $1 |
|
448
|
0 |
1 |
if $1 |
|
462
|
0 |
0 |
if @line < 3 |
|
476
|
0 |
0 |
if not $line[1] or $line[1] ne 'm' and $line[1] ne 'f' and $line[1] ne 'u' |
|
477
|
0 |
0 |
if $$hash{'type'} ne 'sig' |
|
478
|
0 |
0 |
if $$hash{'type'} eq 'sig' |
|
488
|
0 |
1 |
unless $pid |
|
489
|
1 |
0 |
if $error |
|
500
|
0 |
1 |
unless $pid |
|
501
|
1 |
0 |
if $error |
|
512
|
0 |
0 |
unless $pid |
|
513
|
0 |
0 |
if $error |
|
522
|
0 |
0 |
if warn 'Not yet implemented - read the doc please.' |
|
526
|
0 |
0 |
unless $pid |
|
528
|
0 |
0 |
if $error |
|
535
|
0 |
0 |
if warn 'Not yet implemented - read the doc please.' |
|
539
|
0 |
0 |
unless $pid |
|
541
|
0 |
0 |
if $error |