| line |
true |
false |
branch |
|
46
|
0 |
1 |
if ($^O eq "MSWin32") |
|
69
|
0 |
0 |
if exists $params{$key} |
|
104
|
0 |
0 |
if defined $self->{'borderStyle'} and ref $self->{'grid'} eq "ARRAY" |
|
139
|
0 |
0 |
if @_ == 3 |
|
142
|
0 |
0 |
unless $x < $self->{'width'} and $x >= 0 and $y < $self->{'height'} and $y >= 0 |
|
147
|
0 |
0 |
if ($value =~ /^[a-z]/) { } |
|
|
0 |
0 |
elsif ($value =~ /^\033\[/) { } |
|
150
|
0 |
0 |
if ord $bChr & Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018. |
|
154
|
0 |
0 |
$value ? : |
|
171
|
0 |
0 |
unless $x < $self->{'width'} and $x >= 0 and $y < $self->{'height'} and $y >= 0 |
|
187
|
0 |
0 |
unless $x < $self->{'width'} - 1 and $x >= 0 and $y < $self->{'height'} - 1 and $x >= 0 |
|
193
|
0 |
0 |
$orOp == 10240 ? : |
|
203
|
0 |
0 |
if (@_ < 2) { } |
|
204
|
0 |
0 |
$self->{'width'} % 2 ? : |
|
|
0 |
0 |
$self->{'height'} % 4 ? : |
|
207
|
0 |
0 |
$x1 > $x2 ? : |
|
208
|
0 |
0 |
$y1 > $y2 ? : |
|
230
|
0 |
0 |
if @_ == 5 |
|
247
|
0 |
0 |
if @_ == 4 |
|
264
|
0 |
0 |
if @_ == 5 |
|
281
|
0 |
0 |
if @_ == 7 |
|
299
|
0 |
0 |
if @_ == 6 |
|
321
|
0 |
0 |
if @_ == 9 |
|
343
|
0 |
0 |
if scalar @vertices & 1 |
|
350
|
0 |
0 |
$_[0] ? : |
|
369
|
0 |
0 |
if (/^r/i) |
|
373
|
0 |
0 |
unless $wrap |
|
380
|
0 |
0 |
if (/^l/i) |
|
384
|
0 |
0 |
unless $wrap |
|
391
|
0 |
0 |
if (/^d/i) |
|
394
|
0 |
0 |
$self->{'width'} % 2 ? : |
|
|
0 |
0 |
unless $wrap |
|
400
|
0 |
0 |
if (/^u/i) |
|
403
|
0 |
0 |
$self->{'width'} % 2 ? : |
|
|
0 |
0 |
unless $wrap |
|
442
|
0 |
0 |
unless open my $fh, ">$file" |
|
451
|
0 |
0 |
unless open my $fh, "<", $file |
|
454
|
0 |
0 |
if @grd > $self->{'height'} / 4 |
|
459
|
0 |
0 |
unless $toBuffer |
|
475
|
0 |
0 |
unless defined $text |
|
477
|
0 |
0 |
if ($chrX != -1) |
|
480
|
0 |
0 |
if $lastChar > $self->{'width'} / 2 |
|
481
|
0 |
0 |
if $fmt |
|
491
|
0 |
0 |
if $chX > $self->{'width'} / 2 or $chX < 0 or $chY > $self->{'height'} / 4 or $chY < 0 |
|
492
|
0 |
0 |
if length $self->{'grid'}[$chY][$chX] == 1 |
|
546
|
0 |
0 |
unless $instr |
|
548
|
0 |
0 |
if $instr =~ /#/ |
|
550
|
0 |
0 |
if $p |
|
552
|
0 |
0 |
if (/^(fd|forward)/) |
|
553
|
0 |
0 |
unless $pars[0] and 0 + $pars[0] |
|
556
|
0 |
0 |
if ($self->{'logoVars'}{'p'}) |
|
563
|
0 |
0 |
if (/^(lt|left)/) |
|
564
|
0 |
0 |
unless $pars[0] and 0 + $pars[0] |
|
569
|
0 |
0 |
if (/^(rt|right)/) |
|
570
|
0 |
0 |
unless $pars[0] and $pars[0] =~ /^\d+$/ |
|
575
|
0 |
0 |
if (/^(bk|back)/) |
|
580
|
0 |
0 |
if (/^pu/) |
|
584
|
0 |
0 |
if (/^pd/) |
|
588
|
0 |
0 |
if (/^pc/) |
|
592
|
0 |
0 |
if (/^dir/) |
|
596
|
0 |
0 |
if (/^mv/) |
|
601
|
0 |
0 |
if (/^ce/) |
|
606
|
0 |
0 |
if (/^cs/) |
|
610
|
0 |
0 |
if (/^sp/) |
|
617
|
0 |
0 |
if (defined $self->{'logoVars'}{'sp'}) |
|
681
|
0 |
0 |
if ref $textRows[0] |
|
683
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
696
|
0 |
0 |
unless exists $borders{$style} |
|
698
|
0 |
0 |
if ($title) |
|
711
|
0 |
0 |
unless $fmt |
|
712
|
0 |
0 |
unless ref $txt |
|
717
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
722
|
0 |
10 |
unless $fmts |
|
724
|
10 |
0 |
defined $colours{$_} ? : |
|
734
|
0 |
0 |
if ($word eq "\n") { } |
|
|
0 |
0 |
elsif (1 + length($line . $word) > $width) { } |
|
|
0 |
0 |
elsif ($line eq '') { } |
|
761
|
0 |
0 |
$pixelWidth & 1 ? : |
|
762
|
0 |
0 |
$pixelHeight & 1 ? : |
|
768
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4) |
|
769
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 1) |
|
770
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 2) |
|
771
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 3) |
|
772
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4) |
|
773
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 1) |
|
774
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 2) |
|
775
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 3) |
|
792
|
0 |
0 |
if ($^O eq "MSWin32") |