| line |
true |
false |
branch |
|
162
|
0 |
0 |
unless (defined $file) |
|
163
|
0 |
0 |
unless (-f "$file" and -r "$file") |
|
164
|
0 |
0 |
unless my $fh = 'IO::File'->new($file) |
|
168
|
0 |
0 |
defined $type ? : |
|
170
|
0 |
0 |
if ($type eq 'tajima' or $type eq 'dst') { } |
|
|
0 |
0 |
elsif ($type eq 'melco' or $type eq 'exp') { } |
|
208
|
0 |
0 |
if ($record eq '0000') { } |
|
|
0 |
0 |
elsif ($record eq $colorchange) { } |
|
|
0 |
0 |
elsif ($record eq $jump1 or $record eq $jump2) { } |
|
|
0 |
0 |
elsif ($record =~ /^80/) { } |
|
232
|
0 |
0 |
if ($currentX > $$self{'data'}{'+X'}) |
|
233
|
0 |
0 |
if ($currentX < $$self{'data'}{'-X'}) |
|
234
|
0 |
0 |
if ($currentY > $$self{'data'}{'+Y'}) |
|
235
|
0 |
0 |
if ($currentY < $$self{'data'}{'-Y'}) |
|
255
|
0 |
0 |
if ($x < 0) |
|
256
|
0 |
0 |
if ($y < 0) |
|
269
|
0 |
0 |
if ($x == 128 or $y == 128) |
|
273
|
0 |
0 |
if ($x > 127) |
|
274
|
0 |
0 |
if ($y > 127) |
|
309
|
0 |
0 |
unless ($separator eq ':') |
|
313
|
0 |
0 |
if ($field eq 'LA') { } |
|
|
0 |
0 |
elsif ($field eq 'ST') { } |
|
|
0 |
0 |
elsif ($field eq 'CO') { } |
|
|
0 |
0 |
elsif ($field =~ /^([-+][XY])$/) { } |
|
|
0 |
0 |
elsif ($field =~ /^([AM][XY])$/) { } |
|
|
0 |
0 |
elsif ($field eq 'PD') { } |
|
|
0 |
0 |
elsif (unpack('H6', $field) eq '2020') { } |
|
330
|
0 |
0 |
if ($val =~ /^[\+\-]?\s*\d+$/) { } |
|
369
|
0 |
0 |
if (defined $stitch_bit_0) { } |
|
370
|
0 |
0 |
unless ($v->bit_test(1) == $stitch_bit_1 and $v->bit_test(0) == $stitch_bit_0) |
|
379
|
0 |
0 |
if (not $v->bit_test(6)) { } |
|
|
0 |
0 |
elsif (not $v->bit_test(7)) { } |
|
383
|
0 |
0 |
if $v->bit_test($index) |
|
384
|
0 |
0 |
if $v->bit_test($index) |
|
394
|
0 |
0 |
if ($v->to_Hex eq '0000C3') { } |
|
|
0 |
0 |
elsif ($v->to_Hex eq '0000F3') { } |
|
409
|
0 |
0 |
if ($actual_color_changes != $$self{'data'}{'color_changes'}) |
|
434
|
0 |
0 |
unless (defined $$self{'data'}{'pattern'}) |
|
439
|
0 |
0 |
unless (defined $file) |
|
440
|
0 |
0 |
if (defined $$self{'filename'}) { } |
|
447
|
0 |
0 |
unless my $fh = 'IO::File'->new($file, 'w') |
|
452
|
0 |
0 |
if (defined $type) { } |
|
458
|
0 |
0 |
if ($type eq 'tajima' or $type eq 'dst') { } |
|
|
0 |
0 |
elsif ($type eq 'melco' or $type eq 'exp') { } |
|
473
|
0 |
0 |
if ($$entry[0] == $Image::Embroidery::NORMAL) { } |
|
|
0 |
0 |
elsif ($$entry[0] == $Image::Embroidery::JUMP) { } |
|
498
|
0 |
0 |
if ($$self{'data'}{$key} < 0) { } |
|
509
|
0 |
0 |
if ($$entry[0] == $Image::Embroidery::NORMAL or $$entry[0] == $Image::Embroidery::JUMP) { } |
|
532
|
0 |
0 |
$y{'1'} ? : |
|
533
|
0 |
0 |
$y{'-1'} ? : |
|
534
|
0 |
0 |
$y{'9'} ? : |
|
535
|
0 |
0 |
$y{'-9'} ? : |
|
536
|
0 |
0 |
$x{'-9'} ? : |
|
537
|
0 |
0 |
$x{'9'} ? : |
|
538
|
0 |
0 |
$x{'-1'} ? : |
|
539
|
0 |
0 |
$x{'1'} ? : |
|
542
|
0 |
0 |
$y{'3'} ? : |
|
543
|
0 |
0 |
$y{'-3'} ? : |
|
544
|
0 |
0 |
$y{'27'} ? : |
|
545
|
0 |
0 |
$y{'-27'} ? : |
|
546
|
0 |
0 |
$x{'-27'} ? : |
|
547
|
0 |
0 |
$x{'27'} ? : |
|
548
|
0 |
0 |
$x{'-3'} ? : |
|
549
|
0 |
0 |
$x{'3'} ? : |
|
552
|
0 |
0 |
$jump ? : |
|
554
|
0 |
0 |
$y{'81'} ? : |
|
555
|
0 |
0 |
$y{'-81'} ? : |
|
556
|
0 |
0 |
$x{'-81'} ? : |
|
557
|
0 |
0 |
$x{'81'} ? : |
|
574
|
0 |
0 |
if ($n < 0) |
|
577
|
0 |
0 |
$s ? : |
|
|
0 |
0 |
if ($n >= 3 ** $p - $m) |
|
595
|
0 |
0 |
unless (defined $$self{'data'}{'pattern'}) |
|
600
|
0 |
0 |
unless (scalar @colors == $$self{'data'}{'color_changes'} + 1) |
|
607
|
0 |
0 |
if ($$self{'ignore_header_coordinates'}) { } |
|
616
|
0 |
0 |
if ($$stitch[0] == $Image::Embroidery::NORMAL) { } |
|
|
0 |
0 |
elsif ($$stitch[0] == $Image::Embroidery::JUMP) { } |
|
|
0 |
0 |
elsif ($$stitch[0] == $Image::Embroidery::COLOR_CHANGE) { } |
|
649
|
0 |
0 |
if (defined $ignore) |
|
668
|
0 |
0 |
if (defined $label) |