Branch Coverage

blib/lib/Business/CanadaPost.pm
Criterion Covered Total %
branch 0 76 0.0


line true false branch
53 0 0 unless $lang eq "fr" or $lang eq "en" or $lang eq ""
100 0 0 unless $units eq "metric" or $units eq "imperial"
151 0 0 unless $item{'length'} and $item{'width'} and $item{'height'}
154 0 0 if ref $self->{'items'}
161 0 0 $self->{'units'} eq 'imperial' ? :
169 0 0 $metric ? :
0 0 $metric ? :
0 0 $metric ? :
0 0 $metric ? :
0 0 $item{'readytoship'} ? :
178 0 0 unless my $xmlfile = $self->buildXML
182 0 0 unless $result->is_success
196 0 0 unless ($resultcode == 1)
212 0 0 if $estdays == -1
213 0 0 $nextdayam eq 'true' ? :
221 0 0 if ($soptions =~ m[([^<]+)])
223 0 0 $1 eq 'No' ? :
225 0 0 if ($soptions =~ m[([^<]+)])
227 0 0 $1 eq 'No' ? :
229 0 0 if ($soptions =~ m[([^<]+)])
231 0 0 $1 eq 'No' ? :
234 0 0 if $parcel =~ m[([^<]+)]s
385 0 0 if ($msgnum == 0)
393 0 0 $self->{'language'} eq 'fr' ? :
407 0 0 if $fromyear == $toyear and $frommon == $tomon and $fromday == $today
408 0 0 unless $fromyear and $frommon and $fromday and $toyear and $tomon and $today
416 0 0 _isleapyear($fromyear) ? :
417 0 0 if $fromday > $daysinmonth[$frommon]
418 0 0 if $frommon == 13
429 0 0 if $year % 4 == 0 and $year % 400 == 0
430 0 0 if $year % 100 == 0
431 0 0 if $year % 4 == 0
441 0 0 unless @items
476 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 "\303\211TATS-UNIS") { }
484 0 0 unless $self->{'postalcode'} =~ /^\w\d\w\d\w\d$/
493 0 0 unless $self->{'provstate'}