| 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 |
$wrap ? : |
|
379
|
0 |
0 |
if (/^l/i) |
|
383
|
0 |
0 |
$wrap ? : |
|
389
|
0 |
0 |
if (/^d/i) |
|
392
|
0 |
0 |
$self->{'width'} % 2 ? : |
|
|
0 |
0 |
$wrap ? : |
|
397
|
0 |
0 |
if (/^u/i) |
|
400
|
0 |
0 |
$self->{'width'} % 2 ? : |
|
|
0 |
0 |
$wrap ? : |
|
438
|
0 |
0 |
unless open my $fh, ">$file" |
|
447
|
0 |
0 |
unless open my $fh, "<", $file |
|
450
|
0 |
0 |
if @grd > $self->{'height'} / 4 |
|
455
|
0 |
0 |
unless $toBuffer |
|
472
|
0 |
0 |
if ($chrX != -1) |
|
475
|
0 |
0 |
if $lastChar > $self->{'width'} / 2 |
|
476
|
0 |
0 |
if $fmt |
|
486
|
0 |
0 |
if $chX > $self->{'width'} / 2 or $chX < 0 or $chY > $self->{'height'} / 4 or $chY < 0 |
|
487
|
0 |
0 |
if length $self->{'grid'}[$chY][$chX] == 1 |
|
541
|
0 |
0 |
unless $instr |
|
542
|
0 |
0 |
if $instr =~ /#/ |
|
544
|
0 |
0 |
if $p |
|
546
|
0 |
0 |
if (/^(fd|forward)/) |
|
547
|
0 |
0 |
unless $pars[0] and 0 + $pars[0] |
|
550
|
0 |
0 |
if ($self->{'logoVars'}{'p'}) |
|
557
|
0 |
0 |
if (/^(lt|left)/) |
|
558
|
0 |
0 |
unless $pars[0] and 0 + $pars[0] |
|
563
|
0 |
0 |
if (/^(rt|right)/) |
|
564
|
0 |
0 |
unless $pars[0] and 0 + $pars[0] |
|
569
|
0 |
0 |
if (/^(bk|back)/) |
|
574
|
0 |
0 |
if (/^pu/) |
|
578
|
0 |
0 |
if (/^pd/) |
|
582
|
0 |
0 |
if (/^pc/) |
|
586
|
0 |
0 |
if (/^dir/) |
|
590
|
0 |
0 |
if (/^mv/) |
|
595
|
0 |
0 |
if (/^ce/) |
|
600
|
0 |
0 |
if (/^sp/) |
|
607
|
0 |
0 |
if (defined $self->{'logoVars'}{'sp'}) |
|
670
|
0 |
0 |
if ref $textRows[0] |
|
672
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
687
|
0 |
0 |
unless exists $borders{$style} |
|
689
|
0 |
0 |
if ($title) |
|
702
|
0 |
0 |
unless $fmt |
|
703
|
0 |
0 |
unless ref $txt |
|
708
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
713
|
0 |
0 |
unless $fmts |
|
715
|
0 |
0 |
defined $colours{$_} ? : |
|
725
|
0 |
0 |
$pixelWidth & 1 ? : |
|
726
|
0 |
0 |
$pixelHeight & 1 ? : |
|
732
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4) |
|
733
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 1) |
|
734
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 2) |
|
735
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 3) |
|
736
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4) |
|
737
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 1) |
|
738
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 2) |
|
739
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 3) |
|
756
|
0 |
0 |
if ($^O eq "MSWin32") |