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]) { }
70 0 0 unless $tracking_number
74 0 0 unless $result->is_success
80 0 0 if (($url, $data) = $tracking_data =~ m[
(.+)
]ism and $1 =~ m[WebTracking/processRequest]) { }
99 0 0 unless $result2->is_success
119 0 0 if ($progress == 1) { }
124 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] =~ /,$/) { }
156 0 0 unless $scanning{$count}{'date'}
158 0 0 if ($scanning{$count}{'location'} =~ /,$/) { }
172 0 0 if uc $raw_data[$q] eq 'STATUS:'
174 0 0 if uc $raw_data[$q] eq 'SHIPPED TO:'
175 0 0 if $raw_data[$q + 1] =~ /,$/ and uc $raw_data[$q] eq 'SHIPPED TO:'
176 0 0 if $raw_data[$q + 2] =~ /,$/ and uc $raw_data[$q] eq 'SHIPPED TO:'
178 0 0 if uc $raw_data[$q] eq 'DELIVERED TO:'
179 0 0 if $raw_data[$q + 1] =~ /,$/ and uc $raw_data[$q] eq 'DELIVERED TO:'
180 0 0 if $raw_data[$q + 2] =~ /,$/ and uc $raw_data[$q] eq 'DELIVERED TO:'
182 0 0 if uc $raw_data[$q] eq 'SHIPPED OR BILLED ON:'
183 0 0 if uc $raw_data[$q] eq 'SERVICE TYPE:'
184 0 0 if uc $raw_data[$q] eq 'WEIGHT:'
185 0 0 if uc $raw_data[$q] eq 'DELIVERED ON:'
186 0 0 if uc $raw_data[$q] eq 'SIGNED BY:'
187 0 0 if uc $raw_data[$q] eq 'LOCATION:'
189 0 0 if uc $raw_data[$q] eq 'PACKAGE PROGRESS:'