| line |
true |
false |
branch |
|
83
|
0 |
5 |
unless $pkg |
|
117
|
5 |
0 |
unless $$self{'nomove'} |
|
118
|
2 |
3 |
unless $$self{'disph'} |
|
119
|
2 |
3 |
unless $$self{'dispw'} |
|
120
|
5 |
0 |
unless $$self{'msgw'} |
|
123
|
3 |
2 |
unless $$self{'con'} or $$self{'noconsole'} |
|
140
|
5 |
7 |
if (@_) |
|
141
|
4 |
1 |
if (ref $_[0]) { } |
|
160
|
0 |
4 |
if $$self{'areas'}{$$area{'name'}} and $$self{'areas'}{$$area{'name'}} != $area |
|
169
|
0 |
3 |
unless my $pkg = ref $self |
|
174
|
3 |
0 |
if @_ and not exists $$self{$name} |
|
176
|
0 |
3 |
unless (exists $$self{$name}) |
|
180
|
3 |
0 |
if (@_) { } |
|
204
|
0 |
0 |
if int 0 + $_[$#_] eq $_[$#_] |
|
206
|
0 |
0 |
unless $$self{'debug'} >= $level |
|
209
|
0 |
0 |
if ($$self{'con'} and not ref($$self{'con'}) =~ /win32/i and not ref($$self{'con'}) =~ /dump/i) { } |
|
213
|
0 |
0 |
if $$self{'dn'} > 30 |
|
243
|
0 |
0 |
unless defined $opts{'max'} |
|
244
|
0 |
0 |
unless defined $opts{'echo'} |
|
245
|
0 |
0 |
unless defined $opts{'empty'} |
|
251
|
0 |
0 |
if ($c =~ /[\n\r]/) |
|
252
|
0 |
0 |
if length $str > 0 or $opts{'empty'} |
|
254
|
0 |
0 |
if ($opts{'echo'} and length $str < $opts{'max'}) |
|
255
|
0 |
0 |
if ($c eq 'BACKSPACE') { } |
|
|
0 |
0 |
elsif (length $c == 1 and ord $c > 30 and ord $c < 128) { } |
|
264
|
0 |
0 |
if ($c eq 'BACKSPACE') { } |
|
|
0 |
0 |
elsif (length $c == 1 and ord $c > 30 and ord $c < 128) { } |
|
269
|
0 |
0 |
unless length $str |
|
323
|
0 |
0 |
unless defined $y |
|
345
|
0 |
0 |
if ($line) |
|
350
|
0 |
0 |
if ($$self{'displine'} >= $$self{'dispy'} + $$self{'disph'}) |
|
358
|
0 |
0 |
if ($$self{'displine'} >= $$self{'dispy'} + $$self{'disph'}) |
|
385
|
0 |
0 |
unless $match |
|
430
|
0 |
0 |
$$self{'msglog'} ? : |
|
|
0 |
0 |
$$self{'vp'} ? : |
|
434
|
0 |
0 |
if (@$msglog > $$self{'maxlog'}) |
|
440
|
0 |
0 |
unless $i <= $mlx |
|
442
|
0 |
0 |
if ($$self{'msgoldcolor'}) |
|
443
|
0 |
0 |
if $i > 0 |
|
446
|
0 |
0 |
if $a |
|
452
|
0 |
0 |
unless ($keep) |
|
466
|
0 |
0 |
if ($x == $$self{'msgx'} and $$self{'msgy'} + $$self{'msgh'} == $y) |
|
469
|
0 |
0 |
if ($x == $$self{'msgx'} and $y + $$self{'disph'} == $$self{'msgy'}) |
|
476
|
0 |
0 |
if $y >= $h |
|
489
|
0 |
0 |
unless $fn |
|
506
|
0 |
0 |
unless $fn |