Branch Coverage

blib/lib/Games/Rezrov/InlinedPrivateMethod.pm
Criterion Covered Total %
branch 34 76 44.7


line true false branch
12 0 3 unless $options{'-names'}
15 0 24 unless /^_/
23 0 3 unless $caller
26 0 3 if $@
42 0 87 unless exists $names{$var}
50 2 389 if ($char eq '(') { }
89 300 elsif ($char eq ')') { }
53 87 2 if --$depth == 0
61 63 24 if (exists $seen{$var}) { }
66 28 59 if (length $value) { }
73 0 87 unless length $2
76 0 3 if (scalar keys %seen != scalar keys %names)
78 0 0 unless exists $seen{$_}
83 2 1 if ($options{'-manual'}) { }
89 0 0 if ($options{'-all'}) { }
0 0 elsif ($options{'-room'}) { }
0 0 if $desc =~ /^\d/
0 0 if ($p and $$desc =~ /^[A-Z]/) { }
0 0 if ($preferred)
0 0 if (exists $hits{$desc}) { }
0 0 if ($desc =~ /$what/i or $desc =~ /$what2/i)
0 0 if ($$_[1] =~ /^$what$/i)
0 0 if (lc $word eq lc $what)
0 0 if (scalar keys %h2 == 1) { }
0 0 elsif (scalar keys %h3 == 1) { }
0 0 if (scalar keys %hits > 1)
437 268 if (defined $$cache[$_[1]]) { }
0 0 $options{'-room'} ? :
0 0 if not defined $last_index or $this_index != $last_index
71 0 if (my $zo = $self->get($id)) { }
0 71 if ($rooms) { }
3 1 if $$self[2]
1 69 if ($zos->parent_room) { }
70 128 if (Games::Rezrov::StoryFile::likely_location($desc)) { }
1 198 if ($$desc =~ /\s{5,}/) { }
0 1 unless $$self[0]
0 54 if exists $idesc{$_}
90 0 1 if $@