Condition Coverage

blib/lib/Business/CanadaPost.pm
Criterion Covered Total %
condition 0 101 0.0


and 3 conditions

line !l l&&!r l&&r condition
151 0 0 0 $item{'length'} and $item{'width'}
0 0 0 $item{'length'} and $item{'width'} and $item{'height'}
407 0 0 0 $fromyear == $toyear and $frommon == $tomon
0 0 0 $fromyear == $toyear and $frommon == $tomon and $fromday == $today
408 0 0 0 $fromyear and $frommon
0 0 0 $fromyear and $frommon and $fromday
0 0 0 $fromyear and $frommon and $fromday and $toyear
0 0 0 $fromyear and $frommon and $fromday and $toyear and $tomon
0 0 0 $fromyear and $frommon and $fromday and $toyear and $tomon and $today
413 0 0 0 $fromyear == $toyear and $frommon == $tomon
0 0 0 $fromyear == $toyear and $frommon == $tomon and $fromday == $today
429 0 0 0 $year % 4 == 0 and $year % 400 == 0

or 2 conditions

line l !l condition
55 0 0 $lang || 'en'
89 0 0 $id || ' '
110 0 0 $code || ' '
119 0 0 $code || ' '
127 0 0 $province || ' '
135 0 0 $code || ' '
143 0 0 sprintf('%01.2f', $price) || '0.00'
169 0 0 $item{'quantity'} || 1
0 0 $item{'description'} || ' '
268 0 0 shift() || 1
280 0 0 shift() || 1
292 0 0 shift() || 1
303 0 0 shift() || 1
315 0 0 shift() || 1
327 0 0 shift() || 1
339 0 0 shift() || 1
456 0 0 $self->{'language'} || 'en'
0 0 $self->{'merchantid'} || (return $self->_error(7), $self->{'frompostalcode'} ? '' . $self->{'frompostalcode'} . "\n" : '', $self->{'turnaroundtime'} ? '' . $self->{'turnaroundtime'} . "\n" : '', $self->{'totalprice'} || '0.00', "\n")
494 0 0 $self->{'postalcode'} ||= " "
507 0 0 $self->{'city'} || ' '
0 0 $self->{'provstate'} || ' '
0 0 $self->{'postalcode'} || ' '

or 3 conditions

line l !l&&r !l&&!r condition
53 0 0 0 $lang eq "fr" or $lang eq "en"
0 0 0 $lang eq "fr" or $lang eq "en" or $lang eq ""
100 0 0 0 $units eq "metric" or $units eq "imperial"
476 0 0 0 not $self->{'country'} or $self->{'country'} =~ /^\s*$/
0 0 0 uc $self->{'country'} eq "CANADA" or uc $self->{'country'} eq "CA"
0 0 0 uc $self->{'country'} eq "UNITED STATES" or uc($self->{'country'} eq "US")
0 0 0 uc $self->{'country'} eq "UNITED STATES" or uc($self->{'country'} eq "US") or uc $self->{'country'} eq "\303\211TATS-UNIS"