| line |
true |
false |
branch |
|
57
|
0 |
0 |
if $r < 0 |
|
73
|
0 |
0 |
if $r < 0 |
|
105
|
2 |
0 |
if $p2i < 260 |
|
110
|
55 |
0 |
if $wit > $n |
|
111
|
7 |
48 |
if $wit == 0 |
|
120
|
0 |
168 |
if $prod == 1 and not $rootone |
|
122
|
96 |
72 |
if ($n1bits >= $p2next) |
|
127
|
48 |
120 |
if $p2next == 1 |
|
130
|
0 |
48 |
unless $prod == 1 |
|
139
|
0 |
0 |
if (shift()) { } |
|
179
|
0 |
4 |
if ($f == int $f) |
|
190
|
0 |
1 |
if (length $t[0] == 1) |
|
191
|
1 |
0 |
if (length $t[1] == 1) |
|
192
|
0 |
1 |
if (length $t[2] == 1) |
|
195
|
1 |
0 |
if $fmt eq 'time' |
|
196
|
0 |
0 |
if (length $t[3] == 1) |
|
197
|
0 |
0 |
if (length $t[4] == 1) |
|
200
|
0 |
0 |
if $fmt eq 'date_long' |
|
201
|
0 |
0 |
if $fmt eq 'date_short' |
|
202
|
0 |
0 |
if $fmt eq 'date_lf' |
|
203
|
0 |
0 |
if $fmt eq 'weekday' |
|
204
|
0 |
0 |
if $fmt eq 'month' |
|
205
|
0 |
0 |
if $fmt eq 'year' |
|
211
|
0 |
1 |
if (length $t[0] == 1) |
|
212
|
1 |
0 |
if (length $t[1] == 1) |
|
213
|
0 |
1 |
if (length $t[2] == 1) |
|
229
|
0 |
0 |
if ($name) { } |
|
251
|
0 |
0 |
unless ($msg =~ /\n/) |
|
255
|
0 |
0 |
unless my $smtp = 'Net::SMTP'->new($srv) |
|
282
|
0 |
0 |
unless open BINP, $file |
|
283
|
0 |
0 |
unless open BOUTP, ">$out" |
|
295
|
0 |
0 |
unless open BINP, $file |
|
296
|
0 |
0 |
unless open BOUTP, ">$out" |
|
308
|
0 |
2 |
unless open MDFILE, "<$file" |