| line |
true |
false |
branch |
|
130
|
0 |
709 |
unless print {$fh;} @args |
|
154
|
1 |
18 |
if ($style ne 'GPG' and $style ne 'GPG1') |
|
183
|
2 |
635 |
if ($self->{'spaces'}) |
|
195
|
70 |
567 |
if ($self->{'munge'}) |
|
197
|
7 |
63 |
if ($string =~ s/ ([ ]+) \Z //msux) |
|
228
|
3 |
512 |
if (ref $source eq 'ARRAY') { } |
|
|
0 |
512 |
elsif (ref $source eq 'GLOB' or ref \$source eq 'GLOB') { } |
|
|
0 |
512 |
elsif (ref $source eq 'SCALAR') { } |
|
|
1 |
511 |
elsif (ref $source eq 'CODE') { } |
|
|
1 |
510 |
elsif (&blessed($source)) { } |
|
243
|
1 |
0 |
if ($source->isa('IO::Handle')) { } |
|
267
|
9 |
1 |
if ($self->{'home'}) |
|
284
|
23 |
1 |
if ($self->{'home'}) |
|
325
|
0 |
9 |
unless (finish($h)) |
|
345
|
0 |
0 |
unless (@signature) |
|
383
|
0 |
24 |
defined $self->{'tmpdir'} ? : |
|
413
|
17 |
25 |
if ($line =~ / ^ \[GNUPG:\] \s+ GOODSIG \s+ \S+ \s+ (.*) /msux) { } |
|
|
5 |
20 |
elsif ($line =~ / ^ \[GNUPG:\] \s+ BADSIG \s+ /msux) { } |
|
422
|
2 |
0 |
if ($status != 0) |
|
472
|
0 |
4 |
if ($@) |
|
479
|
3 |
1 |
wantarray ? : |
|
508
|
1 |
8 |
if ($@) |
|
527
|
1 |
10 |
wantarray ? : |