| line |
true |
false |
branch |
|
214
|
0 |
40 |
unless (defined $args{'mode'} and $product_codes{$args{'mode'}}) |
|
240
|
13 |
27 |
if ($$self{'mode'} eq 'expert_i' or $$self{'mode'} eq 'expert_i_kpg') { } |
|
250
|
29 |
0 |
if (exists $attributes{$name}) |
|
284
|
0 |
32 |
unless (length $$self{'parcel_number'}) |
|
288
|
16 |
16 |
if ($type eq 'sorting') { } |
|
292
|
4 |
12 |
if ($$self{'international'}) |
|
297
|
0 |
68 |
unless (length $$self{$name}) |
|
303
|
4 |
12 |
if ($$self{'international'}) { } |
|
310
|
4 |
12 |
if ($$self{'international'}) { } |
|
317
|
4 |
0 |
if (length $postal >= 3) { } |
|
341
|
12 |
4 |
if ($$self{'mode'} eq 'expert_om' or $self->international) { } |
|
355
|
4 |
12 |
if ($self->international) { } |
|
364
|
8 |
8 |
if ($args{'spacing'}) |
|
377
|
4 |
12 |
if ($$self{'international'} and $type eq 'tracking') |
|
381
|
8 |
8 |
if ($args{'spacing'}) |
|
382
|
2 |
6 |
if ($$self{'international'}) { } |
|
440
|
0 |
0 |
if ($type eq 'tracking' or $type eq 'sorting') { } |
|
451
|
0 |
0 |
if ($scale = $$self{'scale'} || $args{'scale'}) |
|
456
|
0 |
0 |
if ($height = $$self{'height'} || $args{'height'}) |
|
495
|
0 |
0 |
if (@_ > 0 and defined $_[0]) |
|
498
|
0 |
0 |
if ($$self{'test'} and not $$self{'customer_number'}) |
|
523
|
0 |
0 |
if (@_ > 0 and defined $_[0]) |
|
526
|
0 |
0 |
unless ($scale =~ /^\d+$/) |
|
552
|
0 |
0 |
if (@_ > 0 and defined $_[0]) |
|
555
|
0 |
0 |
unless ($height =~ /^\d+$/) |
|
581
|
0 |
0 |
if (@_ > 0 and defined $_[0]) |
|
584
|
0 |
0 |
unless ($padding =~ /^\d+$/) |
|
610
|
8 |
16 |
if (@_ > 0 and defined $_[0]) |
|
615
|
0 |
8 |
unless ($number =~ /^\d{6}$/) |
|
641
|
8 |
32 |
if (@_ > 0 and defined $_[0]) |
|
646
|
2 |
6 |
if ($$self{'international'}) { } |
|
647
|
0 |
2 |
unless ($number =~ /^\d{8}$/) |
|
652
|
0 |
6 |
unless ($number =~ /^\d{10}$/) |
|
683
|
6 |
4 |
if (@_ > 0 and defined $_[0]) |
|
687
|
0 |
6 |
unless ($string =~ /^[A-Z]{2}$/) |
|
691
|
1 |
5 |
if ($$self{'mode'} eq 'access_f' or $$self{'mode'} eq 'expert_f') { } |
|
|
0 |
5 |
elsif ($$self{'mode'} eq 'expert_om') { } |
|
|
0 |
5 |
elsif ($string eq 'FR') { } |
|
693
|
0 |
1 |
if ($string ne 'FR') |
|
704
|
1 |
5 |
if (exists $countries{$string} and $countries{$string}{'kpg'}) |
|
730
|
25 |
16 |
if (@_ > 0 and defined $_[0]) |
|
735
|
7 |
18 |
if ($$self{'international'}) { } |
|
736
|
2 |
5 |
if ($string eq '0' or not $string =~ /^[A-Z0-9]{1,10}$/) |
|
741
|
9 |
9 |
unless ($string =~ /^[A-Z0-9]{5}$/) |
|
768
|
8 |
16 |
if (@_ > 0 and defined $_[0]) |
|
773
|
0 |
8 |
unless ($number =~ /^\d{1,5}$/) |
|
801
|
0 |
16 |
if (@_ > 0 and defined $_[0]) |
|
806
|
0 |
0 |
unless ($number =~ /^[01]$/) |
|
835
|
1 |
16 |
if (@_ > 0 and defined $_[0]) |
|
840
|
0 |
1 |
unless ($number =~ /^[01]$/) |
|
844
|
0 |
1 |
if ($$self{'mode'} eq 'access' and $number eq '1') |
|
876
|
4 |
16 |
if (@_ > 0 and defined $_[0]) |
|
881
|
1 |
3 |
unless ($number =~ /^(0\d|10|2[123])$/) |
|
885
|
2 |
1 |
if ($$self{'mode'} eq 'access_f' and $number ne '00') |
|
917
|
2 |
12 |
if (@_ > 0 and defined $_[0]) |
|
921
|
0 |
2 |
unless ($number =~ /^[01]$/) |
|
925
|
0 |
2 |
unless ($number == 0 or $self->international or $$self{'mode'} eq 'expert_om') |
|
954
|
1 |
12 |
if (@_ > 0 and defined $_[0]) |
|
958
|
0 |
1 |
unless ($number =~ /^[01]$/) |
|
962
|
0 |
1 |
unless ($number == 0 or $$self{'mode'} eq 'expert_om') |
|
993
|
3 |
1 |
if (exists $countries{$$self{'country_code'}}) |
|
996
|
2 |
1 |
if ($$cref{'epg'}) |
|
1000
|
1 |
0 |
if ($$cref{'kpg'}) |
|
1020
|
8 |
33 |
if ($self->international and @codes == 8) |
|
1031
|
1 |
7 |
if ($mod == 0) { } |
|
|
1 |
6 |
elsif ($mod == 1) { } |
|
1042
|
18 |
15 |
if (@codes % 2) |
|
1055
|
32 |
1 |
$mod ? : |