| line |
true |
false |
branch |
|
46
|
0 |
1 |
if ($^O eq "MSWin32") |
|
69
|
0 |
0 |
if exists $params{$key} |
|
101
|
0 |
0 |
if defined $self->{'borderStyle'} and ref $self->{'grid'} eq "ARRAY" |
|
135
|
0 |
0 |
if @_ == 3 |
|
138
|
0 |
0 |
unless $x < $self->{'width'} and $x >= 0 and $y < $self->{'height'} and $y >= 0 |
|
143
|
0 |
0 |
if ($value =~ /^[a-z]/) { } |
|
|
0 |
0 |
elsif ($value =~ /^\033\[/) { } |
|
146
|
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. |
|
150
|
0 |
0 |
$value ? : |
|
167
|
0 |
0 |
unless $x < $self->{'width'} and $x >= 0 and $y < $self->{'height'} and $x >= 0 |
|
183
|
0 |
0 |
unless $x < $self->{'width'} - 1 and $x >= 0 and $y < $self->{'height'} - 1 and $x >= 0 |
|
189
|
0 |
0 |
$orOp == 10240 ? : |
|
199
|
0 |
0 |
if (@_ < 2) { } |
|
200
|
0 |
0 |
$self->{'width'} % 2 ? : |
|
|
0 |
0 |
$self->{'height'} % 4 ? : |
|
203
|
0 |
0 |
$x1 > $x2 ? : |
|
204
|
0 |
0 |
$y1 > $y2 ? : |
|
226
|
0 |
0 |
if @_ == 5 |
|
243
|
0 |
0 |
if @_ == 4 |
|
260
|
0 |
0 |
if @_ == 5 |
|
277
|
0 |
0 |
if @_ == 7 |
|
295
|
0 |
0 |
if @_ == 6 |
|
317
|
0 |
0 |
if @_ == 9 |
|
339
|
0 |
0 |
if scalar @vertices & 1 |
|
346
|
0 |
0 |
$_[0] ? : |
|
365
|
0 |
0 |
if (/^r/i) |
|
369
|
0 |
0 |
$wrap ? : |
|
375
|
0 |
0 |
if (/^l/i) |
|
379
|
0 |
0 |
$wrap ? : |
|
385
|
0 |
0 |
if (/^d/i) |
|
388
|
0 |
0 |
$self->{'width'} % 2 ? : |
|
|
0 |
0 |
$wrap ? : |
|
393
|
0 |
0 |
if (/^u/i) |
|
396
|
0 |
0 |
$self->{'width'} % 2 ? : |
|
|
0 |
0 |
$wrap ? : |
|
434
|
0 |
0 |
unless open my $fh, ">$file" |
|
443
|
0 |
0 |
unless open my $fh, "<", $file |
|
446
|
0 |
0 |
if @grd > $self->{'height'} / 4 |
|
451
|
0 |
0 |
unless $toBuffer |
|
468
|
0 |
0 |
if ($chrX != -1) |
|
471
|
0 |
0 |
if $lastChar > $self->{'width'} / 2 |
|
472
|
0 |
0 |
if $fmt |
|
482
|
0 |
0 |
if $chX > $self->{'width'} / 2 or $chX < 0 or $chY > $self->{'height'} / 4 or $chY < 0 |
|
483
|
0 |
0 |
if length $self->{'grid'}[$chY][$chX] == 1 |
|
537
|
0 |
0 |
unless $instr |
|
538
|
0 |
0 |
if $instr =~ /#/ |
|
540
|
0 |
0 |
if $p |
|
542
|
0 |
0 |
if (/^(fd|forward)/) |
|
543
|
0 |
0 |
unless $pars[0] and 0 + $pars[0] |
|
546
|
0 |
0 |
if ($self->{'logoVars'}{'p'}) |
|
553
|
0 |
0 |
if (/^(lt|left)/) |
|
554
|
0 |
0 |
unless $pars[0] and 0 + $pars[0] |
|
559
|
0 |
0 |
if (/^(rt|right)/) |
|
560
|
0 |
0 |
unless $pars[0] and 0 + $pars[0] |
|
565
|
0 |
0 |
if (/^(bk|back)/) |
|
570
|
0 |
0 |
if (/^pu/) |
|
574
|
0 |
0 |
if (/^pd/) |
|
578
|
0 |
0 |
if (/^pc/) |
|
582
|
0 |
0 |
if (/^dir/) |
|
586
|
0 |
0 |
if (/^mv/) |
|
591
|
0 |
0 |
if (/^ce/) |
|
596
|
0 |
0 |
if (/^sp/) |
|
603
|
0 |
0 |
if (defined $self->{'logoVars'}{'sp'}) |
|
666
|
0 |
0 |
if ref $textRows[0] |
|
668
|
0 |
0 |
ref $_ ? : |
|
676
|
0 |
0 |
unless exists $borders{$style} |
|
678
|
0 |
0 |
if ($title) |
|
691
|
0 |
0 |
unless $fmt |
|
692
|
0 |
0 |
unless ref $txt |
|
697
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
702
|
0 |
0 |
unless $fmts |
|
704
|
0 |
0 |
defined $colours{$_} ? : |
|
714
|
0 |
0 |
$pixelWidth & 1 ? : |
|
715
|
0 |
0 |
$pixelHeight & 1 ? : |
|
721
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4) |
|
722
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 1) |
|
723
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 2) |
|
724
|
0 |
0 |
if pixelAt($block, $chX * 2, $chY * 4 + 3) |
|
725
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4) |
|
726
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 1) |
|
727
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 2) |
|
728
|
0 |
0 |
if pixelAt($block, $chX * 2 + 1, $chY * 4 + 3) |
|
745
|
0 |
0 |
if ($^O eq "MSWin32") |