| line |
true |
false |
branch |
|
42
|
23 |
23 |
if $_[0] |
|
48
|
23 |
23 |
if $_[0] |
|
54
|
23 |
23 |
if $_[0] |
|
66
|
23 |
0 |
if $$self{'homedir'} |
|
67
|
0 |
23 |
if $$self{'options'} |
|
81
|
6 |
40 |
if ref $cb eq 'AnyEvent::CondVar' |
|
83
|
17 |
23 |
if ref $cb eq 'CODE' |
|
117
|
0 |
125 |
unless (defined $line) |
|
121
|
125 |
0 |
if (my($cmd, $arg) = $line =~ /^\[gnupg:\]\s+(\w+)\s*(.+)?\s*$/i) { } |
|
125
|
75 |
50 |
$arg ? : |
|
129
|
0 |
125 |
if (_eq 'newsig', $_) |
|
130
|
4 |
121 |
if (_eq 'goodsig', $_) |
|
132
|
0 |
121 |
if (_eq 'expsig', $_) |
|
133
|
0 |
121 |
if (_eq 'expkeysig', $_) |
|
137
|
0 |
121 |
if (_eq 'revkeysig', $_) |
|
141
|
0 |
121 |
if (_eq 'badsig', $_) |
|
145
|
0 |
121 |
if (_eq 'errsig', $_) |
|
148
|
4 |
117 |
if (_eq 'validsig', $_) |
|
149
|
4 |
113 |
if (_eq 'sig_id', $_) |
|
150
|
3 |
110 |
if (_eq 'enc_to', $_) |
|
151
|
0 |
110 |
if (_eq 'nodata', $_) |
|
153
|
0 |
0 |
if _eq '1', $_ |
|
154
|
0 |
0 |
if _eq '2', $_ |
|
157
|
0 |
0 |
if _eq '3', $_ |
|
158
|
0 |
0 |
if _eq '4', $_ |
|
164
|
0 |
110 |
if (_eq 'unexpected', $_) |
|
166
|
0 |
110 |
if (_eq 'trust_undefined', $_) |
|
168
|
0 |
110 |
if (_eq 'trust_never', $_) |
|
169
|
0 |
110 |
if (_eq 'trust_marginal', $_) |
|
170
|
0 |
110 |
if (_eq 'trust_fully', $_) |
|
171
|
4 |
106 |
if (_eq 'trust_ultimate', $_) |
|
172
|
0 |
106 |
if (_eq 'pka_trust_good', $_) |
|
173
|
0 |
106 |
if (_eq 'pka_trust_bad', $_) |
|
175
|
106 |
0 |
unless _eq 'sigexpired', $_ |
|
179
|
0 |
106 |
if (_eq 'keyrevoked', $_) |
|
183
|
0 |
106 |
if (_eq 'badarmor', $_) |
|
184
|
0 |
106 |
if (_eq 'rsa_or_idea', $_) |
|
185
|
0 |
106 |
if (_eq 'shm_info', $_) |
|
186
|
0 |
106 |
if (_eq 'shm_get', $_) |
|
187
|
0 |
106 |
if (_eq 'shm_get_bool', $_) |
|
188
|
0 |
106 |
if (_eq 'shm_get_hidden', $_) |
|
189
|
2 |
104 |
if (_eq 'get_bool', $_) |
|
190
|
0 |
104 |
if (_eq 'get_line', $_) |
|
191
|
10 |
94 |
if (_eq 'get_hidden', $_) |
|
192
|
12 |
82 |
if (_eq 'got_it', $_) |
|
193
|
8 |
74 |
if (_eq 'need_passphrase', $_) |
|
194
|
2 |
72 |
if (_eq 'need_passphrase_sym', $_) |
|
195
|
0 |
72 |
if (_eq 'need_passphrase_pin', $_) |
|
197
|
0 |
72 |
if (_eq 'missing_passphrase', $_) |
|
198
|
0 |
72 |
if (_eq 'bad_passphrase', $_) |
|
202
|
8 |
64 |
if (_eq 'good_passphrase', $_) |
|
204
|
0 |
64 |
if (_eq 'decryption_failed', $_) |
|
205
|
4 |
60 |
if (_eq 'decryption_okay', $_) |
|
206
|
4 |
56 |
if (_eq 'decryption_info', $_) |
|
208
|
0 |
56 |
if (_eq 'no_pubkey', $_) |
|
210
|
0 |
56 |
if (_eq 'no_seckey', $_) |
|
211
|
0 |
56 |
if (_eq 'import_check', $_) |
|
213
|
0 |
56 |
if (_eq 'imported', $_) |
|
214
|
4 |
52 |
if (_eq 'import_ok', $_) |
|
215
|
0 |
52 |
if (_eq 'import_problem', $_) |
|
218
|
0 |
0 |
if _eq '0', $_ |
|
221
|
0 |
0 |
if _eq '1', $_ |
|
222
|
0 |
0 |
if _eq '2', $_ |
|
223
|
0 |
0 |
if _eq '3', $_ |
|
224
|
0 |
0 |
if _eq '4', $_ |
|
228
|
3 |
49 |
if (_eq 'import_res', $_) |
|
229
|
0 |
49 |
if (_eq 'file_start', $_) |
|
230
|
0 |
49 |
if (_eq 'file_done', $_) |
|
231
|
4 |
45 |
if (_eq 'begin_decryption', $_) |
|
232
|
4 |
41 |
if (_eq 'end_decryption', $_) |
|
233
|
6 |
35 |
if (_eq 'begin_encryption', $_) |
|
234
|
6 |
29 |
if (_eq 'end_encryption', $_) |
|
235
|
5 |
24 |
if (_eq 'begin_signing', $_) |
|
236
|
0 |
24 |
if (_eq 'delete_problem', $_) |
|
239
|
0 |
0 |
if _eq '1', $_ |
|
240
|
0 |
0 |
if _eq '2', $_ |
|
243
|
0 |
0 |
if _eq '3', $_ |
|
249
|
0 |
24 |
if (_eq 'progress', $_) |
|
250
|
5 |
19 |
if (_eq 'sig_created', $_) |
|
251
|
0 |
19 |
if (_eq 'key_created', $_) |
|
252
|
0 |
19 |
if (_eq 'key_not_created', $_) |
|
255
|
0 |
19 |
if (_eq 'session_key', $_) |
|
256
|
0 |
19 |
if (_eq 'notation_name', $_) |
|
257
|
0 |
19 |
if (_eq 'notation_data', $_) |
|
258
|
8 |
11 |
if (_eq 'userid_hint', $_) |
|
259
|
0 |
11 |
if (_eq 'policy_url', $_) |
|
260
|
0 |
11 |
if (_eq 'begin_stream', $_) |
|
261
|
0 |
11 |
if (_eq 'end_stream', $_) |
|
262
|
0 |
11 |
if (_eq 'inv_recp', $_ or _eq 'inc_sgnr', $_) |
|
266
|
0 |
0 |
if (_eq 'inv_recp', $_) |
|
267
|
0 |
0 |
if (_eq 'inv_sgnr', $_) |
|
271
|
0 |
0 |
if _eq '0', $_ |
|
272
|
0 |
0 |
if _eq '1', $_ |
|
273
|
0 |
0 |
if _eq '2', $_ |
|
275
|
0 |
0 |
if _eq '3', $_ |
|
276
|
0 |
0 |
if _eq '4', $_ |
|
277
|
0 |
0 |
if _eq '5', $_ |
|
278
|
0 |
0 |
if _eq '6', $_ |
|
279
|
0 |
0 |
if _eq '7', $_ |
|
280
|
0 |
0 |
if _eq '8', $_ |
|
281
|
0 |
0 |
if _eq '9', $_ |
|
282
|
0 |
0 |
if _eq '10', $_ |
|
283
|
0 |
0 |
if _eq '11', $_ |
|
285
|
0 |
0 |
if _eq '12', $_ |
|
290
|
0 |
11 |
if (_eq 'no_recp', $_) |
|
291
|
0 |
11 |
if (_eq 'no_sgnr', $_) |
|
292
|
0 |
11 |
if (_eq 'already_signed', $_) |
|
293
|
0 |
11 |
if (_eq 'truncated', $_) |
|
294
|
0 |
11 |
if (_eq 'error', $_) |
|
295
|
0 |
11 |
if (_eq 'success', $_) |
|
296
|
0 |
11 |
if (_eq 'attribute', $_) |
|
297
|
0 |
11 |
if (_eq 'cardctrl', $_) |
|
298
|
4 |
7 |
if (_eq 'plaintext', $_) |
|
299
|
4 |
3 |
if (_eq 'plaintext_length', $_) |
|
300
|
0 |
3 |
if (_eq 'sig_subpacket', $_) |
|
302
|
0 |
3 |
if (_eq 'sc_op_failure', $_) |
|
303
|
0 |
3 |
if (_eq 'sc_op_success', $_) |
|
304
|
0 |
3 |
if (_eq 'backup_key_created', $_) |
|
305
|
0 |
3 |
if (_eq 'mountpoint', $_) |
|
309
|
52 |
73 |
if ($actions{lc $cmd}) |
|
341
|
0 |
0 |
if $msg |
|
342
|
0 |
0 |
if ($$self{'gnupg_proc'}) |
|
363
|
17 |
6 |
if (ref $$self{'input'} eq 'GLOB') |
|
367
|
23 |
0 |
if ($$self{'command_fd'}) |
|
375
|
23 |
0 |
if ($$self{'gnupg_proc'}) { } |
|
379
|
16 |
7 |
if (ref $$self{'output'} eq 'GLOB') |
|
405
|
16 |
7 |
if (defined $$self{'input'} and not ref $$self{'input'}) |
|
407
|
0 |
16 |
unless open my $fh, '<', $file |
|
412
|
15 |
8 |
if (defined $$self{'output'} and not ref $$self{'output'}) |
|
414
|
0 |
15 |
unless open my $fh, '>', $file |
|
441
|
17 |
6 |
if (defined $$self{'input'}) |
|
445
|
16 |
7 |
if (defined $$self{'output'}) |
|
465
|
0 |
0 |
if $$self{'gnupg_proc'} |
|
475
|
1 |
0 |
if ($args{'homedir'}) |
|
476
|
0 |
1 |
unless -d $args{'homedir'} and -x _ |
|
480
|
0 |
1 |
if ($args{'options'}) |
|
481
|
0 |
0 |
unless -r $args{'options'} |
|
485
|
0 |
1 |
if ($args{'gnupg_path'}) { } |
|
486
|
0 |
0 |
unless -x $args{'gnupg_path'} |
|
492
|
0 |
1 |
unless $path |
|
521
|
1 |
0 |
if ($version =~ /\d(?:\.\d)*/) { } |
|
549
|
0 |
0 |
if $size < 768 |
|
550
|
0 |
0 |
if $size > 2048 |
|
558
|
0 |
0 |
unless $name |
|
559
|
0 |
0 |
unless $name =~ /^\s*[^0-9\<\(\[\]\)\>][^\<\(\[\]\)\>]+$/ |
|
563
|
0 |
0 |
if ($email) { } |
|
564
|
0 |
0 |
unless ($email) = 'Email::Address'->parse($email) |
|
572
|
0 |
0 |
if ($comment) { } |
|
573
|
0 |
0 |
if $comment =~ /[\(\)]/ |
|
584
|
0 |
0 |
unless $$self{'input'} |
|
592
|
0 |
0 |
if _eq 'keygen.algo', $_ and $self->_send_command($algo) |
|
595
|
0 |
0 |
if _eq 'keygen.size', $_ and $self->_send_command($size) |
|
598
|
0 |
0 |
if _eq 'keygen.valid', $_ and $self->_send_command($expire) |
|
601
|
0 |
0 |
if _eq 'keygen.name', $_ and $self->_send_command($name) |
|
604
|
0 |
0 |
if _eq 'keygen.email', $_ and $self->_send_command($email) |
|
607
|
0 |
0 |
if _eq 'keygen.comment', $_ and $self->_send_command($comment) |
|
614
|
0 |
0 |
unless (defined $passphrase) |
|
642
|
1 |
2 |
if (ref $args{'keys'} eq 'ARRAY') { } |
|
651
|
1 |
2 |
unless $$self{'input'} |
|
653
|
1 |
2 |
ref $args{'keys'} ? : |
|
691
|
3 |
0 |
if $args{'armor'} |
|
696
|
1 |
2 |
if ($args{'keys'}) |
|
697
|
0 |
1 |
ref $args{'keys'} ? : |
|
700
|
1 |
2 |
if ($args{'secret'}) { } |
|
|
0 |
2 |
elsif ($args{'all'}) { } |
|
715
|
3 |
0 |
unless $$self{'input'} |
|
731
|
0 |
6 |
unless $args{'recipient'} or $args{'symmetric'} |
|
734
|
1 |
5 |
ref $args{'recipient'} eq 'ARRAY' ? : |
|
748
|
2 |
4 |
if $args{'sign'} |
|
749
|
0 |
6 |
if $args{'sign'} and $args{'symmetric'} |
|
754
|
6 |
0 |
if $args{'armor'} |
|
755
|
0 |
6 |
if defined $args{'local-user'} |
|
758
|
0 |
6 |
if defined $args{'auto-key-locate'} |
|
761
|
0 |
6 |
if defined $args{'keyserver'} |
|
766
|
1 |
5 |
if ($args{'symmetric'}) { } |
|
776
|
0 |
6 |
unless $$self{'input'} |
|
788
|
0 |
2 |
unless (defined $passphrase) |
|
798
|
2 |
0 |
if (_eq 'untrusted_key.override', $_) |
|
817
|
3 |
0 |
if $args{'armor'} |
|
818
|
0 |
3 |
if defined $args{'local-user'} |
|
823
|
1 |
2 |
if ($args{'clearsign'}) { } |
|
|
1 |
1 |
elsif ($args{'detach-sign'}) { } |
|
836
|
0 |
3 |
unless $$self{'input'} |
|
841
|
0 |
3 |
unless (defined $passphrase) |
|
874
|
0 |
3 |
unless $args{'signature'} |
|
876
|
1 |
2 |
if ($args{'file'}) { } |
|
877
|
1 |
0 |
unless ref $args{'file'} |
|
886
|
0 |
3 |
if defined $args{'auto-key-locate'} |
|
889
|
0 |
3 |
if defined $args{'keyserver'} |
|
894
|
0 |
3 |
if $args{'pka-loopups'} |
|
895
|
0 |
3 |
if $args{'pka-trust-increase'} |
|
897
|
0 |
3 |
if @verify_options |
|
905
|
1 |
2 |
unless $$self{'input'} |
|
956
|
0 |
4 |
unless $$self{'input'} |
|
965
|
0 |
3 |
unless (defined $passphrase) |