| line |
true |
false |
branch |
|
58
|
0 |
0 |
unless $lang eq 'fr' or $lang eq 'en' or $lang eq '' |
|
105
|
0 |
0 |
unless $units eq 'metric' or $units eq 'imperial' |
|
156
|
0 |
0 |
unless $item{'length'} and $item{'width'} and $item{'height'} |
|
159
|
0 |
0 |
if ref $$self{'items'} |
|
166
|
0 |
0 |
$$self{'units'} eq 'imperial' ? : |
|
168
|
0 |
0 |
$metric ? : |
|
|
0 |
0 |
$metric ? : |
|
|
0 |
0 |
$metric ? : |
|
|
0 |
0 |
$metric ? : |
|
|
0 |
0 |
$item{'readytoship'} ? : |
|
183
|
0 |
0 |
unless my $xmlfile = $self->buildXML |
|
187
|
0 |
0 |
unless $result->is_success |
|
201
|
0 |
0 |
unless ($resultcode == 1) |
|
217
|
0 |
0 |
if $estdays == -1 |
|
218
|
0 |
0 |
$nextdayam eq 'true' ? : |
|
226
|
0 |
0 |
if ($soptions =~ m[([^<]+)]) |
|
228
|
0 |
0 |
$1 eq 'No' ? : |
|
230
|
0 |
0 |
if ($soptions =~ m[([^<]+)]) |
|
232
|
0 |
0 |
$1 eq 'No' ? : |
|
234
|
0 |
0 |
if ($soptions =~ m[([^<]+)]) |
|
236
|
0 |
0 |
$1 eq 'No' ? : |
|
239
|
0 |
0 |
if $parcel =~ m[([^<]+)]s |
|
390
|
0 |
0 |
if ($msgnum == 0) |
|
397
|
0 |
0 |
$$self{'language'} eq 'fr' ? : |
|
412
|
0 |
0 |
if $fromyear == $toyear and $frommon == $tomon and $fromday == $today |
|
413
|
0 |
0 |
unless $fromyear and $frommon and $fromday and $toyear and $tomon and $today |
|
421
|
0 |
0 |
_isleapyear($fromyear) ? : |
|
422
|
0 |
0 |
if $fromday > $daysinmonth[$frommon] |
|
423
|
0 |
0 |
if $frommon == 13 |
|
434
|
0 |
0 |
if $year % 4 == 0 and $year % 400 == 0 |
|
435
|
0 |
0 |
if $year % 100 == 0 |
|
436
|
0 |
0 |
if $year % 4 == 0 |
|
446
|
0 |
0 |
unless @items |
|
481
|
0 |
0 |
if (not $$self{'country'} or $$self{'country'} =~ /^\s*$/) { } |
|
|
0 |
0 |
elsif (uc $$self{'country'} eq 'CANADA' or uc $$self{'country'} eq 'CA') { } |
|
|
0 |
0 |
elsif (uc $$self{'country'} eq 'UNITED STATES' or uc($$self{'country'} eq 'US') or uc $$self{'country'} eq "\311TATS-UNIS") { } |
|
489
|
0 |
0 |
unless $$self{'postalcode'} =~ /^\w\d\w\d\w\d$/ |
|
498
|
0 |
0 |
unless $$self{'provstate'} |