| line |
true |
false |
branch |
|
13
|
0 |
8 |
if (@{$$self[@$self];}) |
|
14
|
0 |
0 |
unless (($$self{'content-type'}[0] || '') =~ qr"^multipart/") |
|
15
|
0 |
0 |
if $$self{'content-type'} |
|
21
|
0 |
0 |
unless ($$self{'content-type'}[0] =~ qr/boundary="(?:[^"]+)"/) |
|
33
|
0 |
8 |
@{$_[0][@{$_[0];}];} ? : |
|
44
|
0 |
1 |
unless defined $program and length $program |
|
46
|
0 |
1 |
unless ($program =~ m([/\\])) |
|
48
|
0 |
0 |
if (-x "$dir/program") |
|
55
|
0 |
1 |
unless open $self, "| $program -t -oi -f $$self{'from'}[0]" |
|
56
|
0 |
1 |
unless print $self $self |
|
57
|
0 |
1 |
unless close $self |
|
62
|
19 |
36 |
unless @{*{$_[0];};} |
|
69
|
9 |
13 |
unless %{*{$_[0];};} |
|
91
|
27 |
0 |
if lc $$gut[$i] eq lc $self->_idx(0) |
|
108
|
0 |
53 |
unless lc $$gut[$i] eq lc $self->_idx(0) |
|
109
|
21 |
32 |
if $idx == 0 |
|
131
|
1 |
3 |
if ($idx >= $self->FETCHSIZE) |
|
138
|
0 |
8 |
unless lc $$gut[$i] eq lc $self->_idx(0) |
|
139
|
6 |
2 |
if ($idx == 0) { } |
|
140
|
3 |
3 |
if ($length == 0) |
|
145
|
2 |
1 |
if (@new) { } |
|
173
|
5 |
0 |
if ($idx >= $self->FETCHSIZE) |
|
179
|
0 |
0 |
unless lc $$gut[$i] eq lc $self->_idx(0) |
|
180
|
0 |
0 |
if ($idx == 0) |
|
216
|
0 |
131 |
if $main::foo |
|
224
|
0 |
49 |
if $main::foo |
|
226
|
18 |
31 |
if ($idx == $size) { } |
|
|
0 |
31 |
elsif ($idx == $size + 1) { } |
|
237
|
2 |
40 |
if ref $value |
|
244
|
2 |
0 |
@v ? : |
|
254
|
18 |
5 |
@v ? : |
|
256
|
17 |
1 |
unless $v->isa(q[E'Mail::Acme]) |
|
|
1 |
22 |
if (eval {
do {
$v->isa('E::Mail::Acme') unless $v->isa(q[E'Mail::Acme])
}
}) { } |
|
|
0 |
22 |
elsif (ref $v eq 'ARRAY' or eval {
do {
overload::Method($v, '@{}')
}
}) { } |
|
259
|
0 |
0 |
@v ? : |
|
275
|
12 |
5 |
@v ? : |
|
295
|
0 |
0 |
if lc $$gut[$i] eq lc $self->_idx(0) |
|
306
|
1 |
0 |
if lc $$gut[$i] eq lc $self->_idx(0) |
|
344
|
8 |
21 |
if $key eq '' |
|
356
|
0 |
0 |
if lc $$self{'hdr'}[$i] eq lc $key |
|
364
|
0 |
14 |
unless defined $value |
|
366
|
2 |
12 |
if (ref $value eq 'ARRAY' or eval {
do {
overload::Method($value, '@{}')
}
}) |
|
371
|
0 |
2 |
unless @$value |
|
384
|
0 |
0 |
unless $#{$$self{'hdr'};} >= 1 |
|
387
|
0 |
0 |
unless lc $$self{'hdr'}[$i] eq lc $key |
|
409
|
0 |
0 |
unless $$self{'iter'} |