Branch Coverage

blib/lib/Net/OSCAR/Utility.pm
Criterion Covered Total %
branch 2 74 2.7


line true false branch
43 0 0 $finetime ? :
57 0 0 exists $$obj{'session'} ? :
58 0 0 unless defined $$session{'LOGLEVEL'} and $$session{'LOGLEVEL'} >= $level
61 0 0 if $$obj{'description'}
64 0 0 if ($$session{'callbacks'}{'log'}) { }
67 0 0 if $$session{'SNDEBUG'}
80 0 0 exists $$obj{'session'} ? :
81 0 0 unless defined $$session{'LOGLEVEL'} and $$session{'LOGLEVEL'} >= $level
88 0 0 exists $$obj{'session'} ? :
89 0 0 unless defined $$session{'LOGLEVEL'} and $$session{'LOGLEVEL'} >= $level
100 0 0 unless defined $stuff
105 0 0 unless $_ lt ' '
0 0 unless $forcehex or grep {$_ gt '~' unless $_ lt ' ';} @stuff
112 0 0 unless $i % 4
113 0 0 unless $i % 8
118 0 0 unless $i % 4
119 0 0 unless $i % 8
126 0 0 unless $i % 4
127 0 0 unless $i % 8
128 0 0 if ($currstuff ge ' ' and $currstuff le '~') { }
141 4 0 if $temp
142 4 0 $temp ? :
153 0 0 unless $tlvcnt
156 0 0 if $type == 19
159 0 0 if ($len) { }
165 0 0 unless $type == 0
169 0 0 $tlvcnt ? :
176 0 0 unless defined $tlv and ref $tlv eq 'HASH' and defined tied %$tlv and tied(%$tlv)->isa('Net::OSCAR::TLV')
212 0 0 if ($$session{'svcdata'}{'hashlogin'}) { }
215 0 0 if ($$session{'auth_response'}) { }
217 0 0 if delete $$session{'pass_is_hashed'}
228 0 0 $$session{'pass_is_hashed'} ? :
240 0 0 if (not $$session{'svcdata'}{'hashlogin'}) { }
268 0 0 if ($conntype != 2 and not $server) { }
280 0 0 if ($send_tools)
288 0 0 if ($send_tools) { }
0 0 elsif ($server) { }