| line |
true |
false |
branch |
|
62
|
13 |
4 |
if $_LoadedModule{$module} |
|
64
|
0 |
4 |
if ($@) { } |
|
83
|
177 |
3 |
unless $@ |
|
95
|
0 |
15 |
unless $object->{'body'} =~ /[^\t\n\r\x20-\x7e]/ |
|
110
|
2 |
1 |
if $tmp eq $object->{'body'} |
|
164
|
147 |
77 |
if @_ |
|
166
|
1 |
20 |
if exists $option{'body'} and exists $option{'body_ref'} |
|
171
|
118 |
102 |
if exists $option{'header'} |
|
172
|
121 |
99 |
if exists $option{'body_ref'} |
|
173
|
20 |
200 |
if exists $option{'body'} |
|
174
|
62 |
72 |
$option{'text'} ? : |
|
|
134 |
86 |
if exists $option{'text'} |
|
188
|
58 |
0 |
if @_ == 0 |
|
198
|
1 |
1 |
if @_ == 0 |
|
199
|
0 |
1 |
unless @_ == 1 and defined $_[0] and ref $_[0] eq "SCALAR" |
|
209
|
73 |
1 |
if @_ == 0 |
|
210
|
0 |
1 |
unless @_ == 1 and !defined($_[0]) || ref $_[0] eq '' |
|
212
|
0 |
1 |
$_[0] ? : |
|
224
|
80 |
2 |
if (@_ >= 1 and defined $_[0] and ref $_[0] eq "") |
|
225
|
78 |
2 |
if @_ == 1 |
|
226
|
1 |
1 |
if (@_ == 2 and defined $_[1] and ref $_[1] eq "") |
|
239
|
49 |
1 |
if @_ == 0 |
|
240
|
0 |
1 |
unless @_ == 1 and defined $_[0] and ref $_[0] eq "" |
|
255
|
0 |
7 |
if @_ |
|
271
|
0 |
0 |
if @_ |
|
300
|
0 |
10 |
if ($algo and $force) { } |
|
|
3 |
7 |
elsif ($algo and $len > 255) { } |
|
310
|
0 |
3 |
if (length $object->{'body'} >= $len) |
|
323
|
0 |
12 |
if ($algo and $force) { } |
|
|
3 |
9 |
elsif ($algo and $len > 255) { } |
|
329
|
1 |
2 |
if $object->{'body'} =~ /[^\t\n\r\x20-\x7e]/ |
|
332
|
0 |
3 |
if (length $object->{'body'} >= $len) |
|
348
|
6 |
32 |
if @_ |
|
349
|
6 |
32 |
if ($option{'compression'} and $option{'compression'} =~ /^(\w+)(!?)$/) |
|
353
|
6 |
32 |
if $algo |
|
355
|
10 |
28 |
if $self->{'text'} |
|
356
|
9 |
29 |
if keys %{$$self{"header"};} |
|
358
|
16 |
22 |
unless $len |
|
361
|
10 |
12 |
if ($self->{'text'}) { } |
|
370
|
15 |
7 |
if $object{'encoding'} |
|
402
|
1 |
73 |
unless @_ == 1 and defined $_[0] and ref $_[0] eq "HASH" |
|
407
|
1 |
69 |
unless $encoding eq "" or "$encoding+" =~ /^((base64|utf8|$_CompressionAlgos)\+)+$/o |
|
410
|
9 |
60 |
if $encoding =~ /($_CompressionAlgos)/o |
|
414
|
16 |
53 |
if $object->{'text'} |
|
416
|
34 |
35 |
if $object->{'header'} and keys %{$$object{"header"};} |
|
417
|
57 |
12 |
if (exists $object->{'body'}) |
|
419
|
26 |
31 |
if ($encoding =~ /base64/) |
|
423
|
1 |
25 |
if $len % 4 |
|
429
|
2 |
23 |
unless $len == length $tmp |
|
432
|
9 |
45 |
if ($encoding =~ /($_CompressionAlgos)/o) |
|
438
|
0 |
9 |
unless defined $tmp |
|
441
|
4 |
50 |
if ($encoding =~ /utf8/) |
|
493
|
0 |
36 |
unless @_ == 1 and defined $_[0] and ref $_[0] eq "" |
|
505
|
0 |
33 |
unless @_ == 1 and defined $_[0] and ref $_[0] eq "SCALAR" |
|
553
|
0 |
28 |
unless @_ == 1 and defined $_[0] and ref $_[0] eq "" |
|
555
|
24 |
4 |
unless $_[0] =~ /[^[:ascii:]]/ |
|
566
|
0 |
35 |
unless @_ == 1 and defined $_[0] and ref $_[0] eq "SCALAR" |
|
568
|
33 |
2 |
unless ${$_[0];} =~ /[^[:ascii:]]/ |