| line |
true |
false |
branch |
|
131
|
0 |
75 |
unless print {$fh;} @args |
|
151
|
0 |
763 |
unless select undef, my $wout = $win, undef, undef |
|
154
|
0 |
763 |
if (not defined $written and $! != 11) |
|
157
|
763 |
0 |
if (defined $written) |
|
184
|
1 |
19 |
if ($style ne 'GPG' and $style ne 'GPG1') |
|
213
|
2 |
637 |
if ($self->{'spaces'}) |
|
225
|
70 |
569 |
if ($self->{'munge'}) |
|
227
|
7 |
63 |
if ($string =~ s/ ([ ]+) \Z //msux) |
|
258
|
3 |
514 |
if (ref $source eq 'ARRAY') { } |
|
|
0 |
514 |
elsif (ref $source eq 'GLOB' or ref \$source eq 'GLOB') { } |
|
|
2 |
512 |
elsif (ref $source eq 'SCALAR') { } |
|
|
1 |
511 |
elsif (ref $source eq 'CODE') { } |
|
|
1 |
510 |
elsif (&blessed($source)) { } |
|
273
|
1 |
0 |
if ($source->isa('IO::Handle')) { } |
|
297
|
10 |
1 |
if ($self->{'home'}) |
|
314
|
24 |
1 |
if ($self->{'home'}) |
|
363
|
0 |
10 |
unless (finish($h)) |
|
383
|
0 |
0 |
unless (@signature) |
|
421
|
0 |
25 |
defined $self->{'tmpdir'} ? : |
|
451
|
18 |
26 |
if ($line =~ / ^ \[GNUPG:\] \s+ GOODSIG \s+ \S+ \s+ (.*) /msux) { } |
|
|
5 |
21 |
elsif ($line =~ / ^ \[GNUPG:\] \s+ BADSIG \s+ /msux) { } |
|
460
|
2 |
0 |
if ($status != 0) |
|
510
|
0 |
4 |
if ($@) |
|
517
|
3 |
1 |
wantarray ? : |
|
546
|
1 |
8 |
if ($@) |
|
565
|
1 |
10 |
wantarray ? : |