Branch Coverage

blib/lib/Net/OSCAR/_BLInternal.pm
Criterion Covered Total %
branch 0 128 0.0


line true false branch
48 0 0 if (chain_exists $$session{'blinternal'}, $data{'entry_type'}, $data{'group_id'}, $data{'buddy_id'})
59 0 0 if $data{'entry_name'}
111 0 0 if (exists $$bli{$num})
115 0 0 if ($$item{'__BLI_DELETED'}) { }
0 0 elsif ($$item{'__BLI_DIRTY'}) { }
131 0 0 if (exists $$bli{4} and exists $$bli{'4'}{0} and my($visbid) = grep({exists $$bli{'4'}{'0'}{$_}{'data'}{203};} keys %{$$bli{'4'}{'0'};})) { }
134 0 0 if ($$bli{'4'}{'0'}{$visbid}{'__BLI_DIRTY'})
135 0 0 if $$typedata{'202'}
138 0 0 if $groupperms
139 0 0 if exists $$typedata{256}
140 0 0 if exists $$typedata{257}
141 0 0 if exists $$typedata{258}
142 0 0 if exists $$typedata{259}
146 0 0 if exists $$session{'profile'}
156 0 0 if (exists $$bli{20} and exists $$bli{'20'}{0} and my($iconbid) = grep({exists $$bli{'20'}{'0'}{$_}{'data'}{213};} keys %{$$bli{'20'}{'0'};}))
166 0 0 unless exists $$bli{'1'}{$gid}{0}
169 0 0 if ($$item{'__BLI_DELETED'}) { }
0 0 elsif ($$item{'__BLI_DIRTY'}) { }
171 0 0 if $gid == 0 or not $$item{'name'}
177 0 0 if $gid == 0 or not $$item{'name'}
185 0 0 unless $$entry{'members'}
196 0 0 if &chain_exists($bli, 1, $gid, 0)
198 0 0 if ($$item{'__BLI_DELETED'}) { }
0 0 elsif ($$item{'__BLI_DIRTY'}) { }
200 0 0 if $gid == 0 or not $group
202 0 0 if $group
206 0 0 if $gid == 0 or not $group
209 0 0 if exists $$item{'data'}{316}
212 0 0 if exists $$item{'data'}{305}
219 0 0 unless exists $$entry{'online'}
244 0 0 if $type == 2 or $type == 3
247 0 0 if $type == 4 and $bid == $visbid
248 0 0 if $type == 20 and $bid == $iconbid
275 0 0 if $$session{'profile'}
276 0 0 if $$session{'icon_checksum'}
277 0 0 if $$session{'icon_timestamp'}
278 0 0 if $$session{'icon_length'}
284 0 0 if (exists $$session{'icon_md5sum'} or &chain_exists($oldbli, 20, 0, $iconbid))
287 0 0 if (&chain_exists($oldbli, 20, 0, $iconbid)) { }
296 0 0 if (exists $$session{'icon_md5sum'})
302 0 0 if ($$session{'buddies'}{'__BLI_DIRTY'}) { }
311 0 0 if $grpname eq '__BLI_DIRTY'
315 0 0 if ($$grp{'__BLI_DELETED'})
321 0 0 if (not $$grp{'__BLI_DIRTY'}) { }
338 0 0 if (not exists $$oldbli{'1'}{$gid} or &chain_exists($oldbli, 1, $gid, 0, 'data', 200))
345 0 0 if (&chain_exists($oldbli, 1, $gid, 0))
354 0 0 if ($$bud{'__BLI_DELETED'})
360 0 0 if (not $$bud{'__BLI_DIRTY'}) { }
368 0 0 unless $bid
377 0 0 if defined $$bud{'comment'}
378 0 0 if defined $$bud{'alias'}
390 0 0 if $$session{'budmods'}
406 0 0 if ($$oldentry{'__BLI_SKIP'})
414 0 0 if (exists $$newbli{$type} and exists $$newbli{$type}{$gid} and exists $$newbli{$type}{$gid}{$bid}) { }
420 0 0 if $$newentry{'name'} eq $$oldentry{'name'} and $newdata eq $olddata
424 0 0 if ($$newentry{'name'} ne $$oldentry{'name'}) { }
444 0 0 if ($delete)
470 0 0 if ($$entry{'__BLI_SKIP'})
475 0 0 if exists $$oldbli{$type} and exists $$oldbli{$type}{$gid} and exists $$oldbli{$type}{$gid}{$bid} and $$oldbli{$type}{$gid}{$bid}{'name'} eq $$newbli{$type}{$gid}{$bid}{'name'}
506 0 0 if (length $packet > 7168)
517 0 0 if ($packet)
541 0 0 if (@{$$session{'budmods'};} <= 1) { }
557 0 0 if (exists $$tlv{$ref}) { }
564 0 0 defined $tlv ? :