| line |
true |
false |
branch |
|
132
|
0 |
3 |
unless $@ |
|
298
|
0 |
0 |
if $opt eq 'destroy' |
|
309
|
0 |
0 |
if (not @_) { } |
|
|
0 |
0 |
elsif (@_ == 1) { } |
|
312
|
0 |
0 |
if (exists $$self{'OPTIONS'}{$opt}) { } |
|
319
|
0 |
0 |
wantarray ? : |
|
323
|
0 |
0 |
unless exists $$defaults{$opt} |
|
325
|
0 |
0 |
if (exists $$self{'OPTIONS'}{$opt}) { } |
|
335
|
0 |
0 |
unless exists $$defaults{$opt} |
|
416
|
0 |
0 |
if (ref $x and not defined $y) { } |
|
423
|
0 |
0 |
if $x |
|
424
|
0 |
0 |
if $y |
|
427
|
0 |
0 |
unless $Barcode::Code128::GD_VERSION |
|
431
|
0 |
0 |
unless $scale > 0 and int $scale == $scale |
|
435
|
0 |
0 |
unless $border >= 0 and int $border == $border |
|
443
|
0 |
0 |
if ($opts{'show_text'}) |
|
450
|
0 |
0 |
if exists $fontTable{$font} |
|
451
|
0 |
0 |
unless 'GD'->can($font) |
|
452
|
0 |
0 |
if $@ |
|
467
|
0 |
0 |
if $x < $min_x |
|
468
|
0 |
0 |
if $y < $min_y |
|
469
|
0 |
0 |
unless my $image = new(GD::Image($x + $lm + $rm, $y + $tm + $bm + $font_height)) |
|
475
|
0 |
0 |
if $opts{'transparent_text'} |
|
477
|
0 |
0 |
if ($border) { } |
|
489
|
0 |
0 |
unless $barcode[$i] eq '#' |
|
493
|
0 |
0 |
if $scale > 2 |
|
496
|
0 |
0 |
if (defined $font) |
|
498
|
0 |
0 |
if ($opts{'font_align'} eq 'center') { } |
|
|
0 |
0 |
elsif ($opts{'font_align'} eq 'right') { } |
|
514
|
0 |
0 |
unless $Barcode::Code128::GD_VERSION |
|
523
|
0 |
0 |
unless $Barcode::Code128::GD_VERSION |
|
551
|
1 |
0 |
if defined $text |
|
553
|
0 |
1 |
unless @encoded |
|
602
|
1 |
0 |
if defined $text |
|
603
|
0 |
1 |
unless defined($text = $self->text) |
|
604
|
0 |
1 |
if defined $preferred_code and not exists $Barcode::Code128::CODE{$preferred_code} |
|
612
|
0 |
2 |
if $sanity++ > 1000 |
|
614
|
0 |
2 |
if ($preferred_code and @chars = _encodable($preferred_code, $text)) { } |
|
|
1 |
1 |
elsif (@chars = _encodable('C', $text)) { } |
|
627
|
0 |
1 |
@{$x{'A'};} >= @{$x{'B'};} ? : |
|
632
|
0 |
2 |
unless @chars |
|
636
|
0 |
1 |
wantarray ? : |
|
657
|
1 |
1 |
if defined $text |
|
679
|
1 |
1 |
if (defined $old_code) { } |
|
681
|
0 |
1 |
unless my $func = $Barcode::Code128::FUNC_CHARS{"Code$new_code"} |
|
687
|
0 |
1 |
unless my $func = $Barcode::Code128::FUNC_CHARS{"Start$new_code"} |
|
737
|
2 |
2 |
if (defined $new_code) |
|
740
|
0 |
2 |
unless $new_code eq 'A' or $new_code eq 'B' or $new_code eq 'C' |
|
765
|
0 |
12 |
if $code ne 'C' and $string =~ /^\d\d\d\d\d\d/ |
|
766
|
6 |
6 |
unless exists $Barcode::Code128::CODE{$code}{$char} |
|
770
|
3 |
3 |
if $old eq $string |