Branch Coverage

blib/lib/Business/UPS.pm
Criterion Covered Total %
branch 0 68 0.0


line true false branch
38 0 0 if $country
39 0 0 if $length
40 0 0 if $width
41 0 0 if $height
42 0 0 if $oversized
43 0 0 if $rate_chart
44 0 0 if $cod
50 0 0 unless $result->is_success
54 0 0 if (not $ret[5]) { }
71 0 0 unless $tracking_number
75 0 0 unless $result->is_success
81 0 0 if (($url, $data) = $tracking_data =~ m[
(.+)
]ism and $1 =~ m[WebTracking/processRequest]) { }
97 0 0 unless $result2->is_success
117 0 0 if ($progress == 1) { }
122 0 0 if ($raw_data[$q] =~ /Tracking results provided by UPS: (.+)/) { }
0 0 elsif ($raw_data[$q] =~ /\w+\s+\d+,\s+\d+/) { }
0 0 elsif ($raw_data[$q] =~ /\d+:\d+\s+\w\.\w\./) { }
0 0 elsif ($raw_data[$q] =~ /,$/) { }
152 0 0 unless $scanning{$count}{'date'}
154 0 0 if ($scanning{$count}{'location'} =~ /,$/) { }
165 0 0 if uc $raw_data[$q] eq 'STATUS:'
167 0 0 if uc $raw_data[$q] eq 'SHIPPED TO:'
168 0 0 if $raw_data[$q + 1] =~ /,$/ and uc $raw_data[$q] eq 'SHIPPED TO:'
169 0 0 if $raw_data[$q + 2] =~ /,$/ and uc $raw_data[$q] eq 'SHIPPED TO:'
171 0 0 if uc $raw_data[$q] eq 'DELIVERED TO:'
172 0 0 if $raw_data[$q + 1] =~ /,$/ and uc $raw_data[$q] eq 'DELIVERED TO:'
173 0 0 if $raw_data[$q + 2] =~ /,$/ and uc $raw_data[$q] eq 'DELIVERED TO:'
175 0 0 if uc $raw_data[$q] eq 'SHIPPED OR BILLED ON:'
176 0 0 if uc $raw_data[$q] eq 'SERVICE TYPE:'
177 0 0 if uc $raw_data[$q] eq 'WEIGHT:'
178 0 0 if uc $raw_data[$q] eq 'DELIVERED ON:'
179 0 0 if uc $raw_data[$q] eq 'SIGNED BY:'
180 0 0 if uc $raw_data[$q] eq 'LOCATION:'
182 0 0 if uc $raw_data[$q] eq 'PACKAGE PROGRESS:'