| line |
true |
false |
branch |
|
20
|
1 |
2 |
if (ref $opt eq 'HASH') { } |
|
|
2 |
0 |
elsif (ref $opt eq '' and $opt) { } |
|
32
|
0 |
0 |
if $VERBOSE |
|
44
|
51 |
18 |
unless $data |
|
45
|
0 |
18 |
if length $data > $size |
|
56
|
2 |
3 |
@_ ? : |
|
63
|
0 |
2 |
unless ($trc =~ /^ToruCa\r\n/) |
|
71
|
19 |
9 |
if ($c < 2) { } |
|
72
|
14 |
5 |
if (/^([^:]+): (.+)$/) { } |
|
|
3 |
2 |
elsif ($_ eq '') { } |
|
74
|
6 |
8 |
if $field =~ /^data/ |
|
84
|
1 |
1 |
if ($mime) |
|
95
|
0 |
2 |
if length $self->url . $self->data1 . $self->data2 . $self->data3 > 173 |
|
98
|
0 |
2 |
unless $self->url =~ m[^http://]i |
|
101
|
0 |
2 |
unless $self->version |
|
102
|
0 |
2 |
unless $self->type |
|
103
|
0 |
2 |
unless $self->cat =~ /^[0-9a-fA-F]{4,4}$/ |
|
104
|
0 |
2 |
unless $self->cat |
|
144
|
0 |
0 |
if $i > 100 |
|
146
|
0 |
0 |
unless $html =~ /$boundary/ |
|
198
|
2 |
29 |
ref $_[0] eq 'Data::ToruCa' ? : |
|
199
|
0 |
31 |
unless $cat =~ /^[0-9A-F]{1,4}$/io |
|
204
|
3 |
28 |
if ($base > 94 and $base < 105) { } |
|
|
3 |
25 |
elsif ($base > 104 and $base < 118) { } |
|
|
3 |
22 |
elsif ($base > 117 and $base < 135) { } |
|
|
1 |
21 |
elsif ($base eq 135) { } |
|
|
4 |
17 |
elsif ($base > 135 and $base < 167) { } |
|
|
2 |
15 |
elsif ($base > 166 and $base < 170) { } |
|
|
2 |
13 |
elsif ($base > 169 and $base < 173) { } |
|
|
2 |
11 |
elsif ($base > 172 and $base < 177) { } |
|
|
2 |
9 |
elsif ($base > 176) { } |