line |
true |
false |
branch |
68
|
0 |
0 |
unless (-e "$pgppath/config.txt" or -e '/usr/local/lib/pgp/config.txt') |
102
|
0 |
0 |
unless defined $debug |
147
|
0 |
0 |
if ($nobatchmode) { } |
229
|
0 |
0 |
if $args{'Armor'} == 1 |
230
|
0 |
0 |
if $args{'Detach'} == 1 |
231
|
0 |
0 |
if exists $args{'Clear'} |
232
|
0 |
0 |
if $args{'Wipe'} == 1 |
233
|
0 |
0 |
if $args{'Nosave'} == 1 |
236
|
0 |
0 |
if (defined $args{'Encrypt'}) |
253
|
0 |
0 |
if ($args{'File'}) { } |
255
|
0 |
0 |
unless open PLAIN, "< $args{'File'}" |
266
|
0 |
0 |
if ($args{'Signfile'}) |
268
|
0 |
0 |
unless open SIGN, "> $args{'Signfile'}" |
316
|
0 |
0 |
if $args{'Armor'} == 1 |
317
|
0 |
0 |
if exists $args{'Sign'} |
318
|
0 |
0 |
if $args{'Wipe'} == 1 |
319
|
0 |
0 |
if $args{'Nosave'} == 1 |
322
|
0 |
0 |
if (ref $args{'Key'} eq 'ARRAY') { } |
335
|
0 |
0 |
if defined $args{'Sign'}{'Keyid'} |
336
|
0 |
0 |
if defined $args{'Password'} |
343
|
0 |
0 |
if ($args{'File'}) { } |
345
|
0 |
0 |
unless open PLAIN, "< $args{'File'}" |
356
|
0 |
0 |
if ($args{'Encryptfile'}) |
358
|
0 |
0 |
unless open ENCRYPT, "> $args{'Encryptfile'}" |
406
|
0 |
0 |
if defined $args{'Password'} |
413
|
0 |
0 |
if (defined $args{'File'}) { } |
415
|
0 |
0 |
unless open ENCRYPT, "< $args{'File'}" |
426
|
0 |
0 |
if ($args{'Plainfile'}) |
428
|
0 |
0 |
unless open PLAIN, "> $args{'Plainfile'}" |
433
|
0 |
0 |
if (defined $args{'Keyring'}) { } |
442
|
0 |
0 |
if (/Key ID (\w+)\,/i) |
446
|
0 |
0 |
if (/^Good signature from user "(.+)"/i) |
448
|
0 |
0 |
$1 > 1900 ? : |
|
0 |
0 |
if (m[^Signature made (\d+)/(\d+)/(\d+) (\d+):(\d+)]) |
560
|
0 |
0 |
if ($args{'Text'}) { } |
643
|
0 |
0 |
unless exists $args{'Password'} |
653
|
0 |
0 |
if $output =~ /user ID/ |
662
|
0 |
0 |
if $output =~ /Enter pass phrase:/ |
736
|
0 |
0 |
unless ($$self{'Modified'}) |
738
|
0 |
0 |
wantarray ? : |
749
|
0 |
0 |
if (/^pub/) |
751
|
0 |
0 |
if (/^sig/) |
754
|
0 |
0 |
if (/^\s{30,32}(.+)$/) |
757
|
0 |
0 |
if /^\s+KeyID\s+Trust\s+Validity\s+User ID/ |
764
|
0 |
0 |
if (/^..(\w+)\s+(\w+)\s+(\w+)\s+(.+)/) |
776
|
0 |
0 |
wantarray ? : |
817
|
0 |
0 |
if ($crit eq 'Desc') { } |
|
0 |
0 |
elsif (ref $$key{$crit} ne 'ARRAY') { } |
828
|
0 |
0 |
unless $keydesc =~ /$desc/i |
832
|
0 |
0 |
unless $$key{$crit} =~ /$criteria{$crit}/i |
836
|
0 |
0 |
unless $$key{$crit}[$_] =~ /$criteria{$crit}/i |
843
|
0 |
0 |
if $#match == 0 |
844
|
0 |
0 |
wantarray ? : |