Branch Coverage

blib/lib/Business/UTV.pm
Criterion Covered Total %
branch 15 30 50.0


line true false branch
32 1 4 if ($login_request->is_error)
41 2 2 unless ($login =~ /\Q$name\E/)
78 1 7 if ($usage_request->is_error)
86 5 2 if ($usage =~ /Incoming:\s*(\d+(\.\d+)?)MB/)
90 5 2 if ($usage =~ /Outgoing:\s*(\d+(\.\d+)?)MB/)
95 4 3 if (defined $upload and defined $download) { }
135 0 0 if ($line =~ /total/i)
137 0 0 if ($line =~ /€(.+)\s/)
148 0 0 if (length $1 > 0)
155 0 0 if ($count == 8 and scalar @fields == 6 and $fields[0] ne 'Date')
158 0 0 if ($$call{'cost'} eq 'FREE!')
167 0 0 unless (defined $total)
172 0 0 if (abs $total - $mytotal > 0.1)
184 23 0 if (defined $error)
187 10 13 if (length $errstr) { }