| line |
true |
false |
branch |
|
58
|
0 |
3 |
unless UNIVERSAL::can($cont, 'additem') |
|
91
|
0 |
0 |
unless ($$self{'inarea'}) |
|
99
|
0 |
0 |
unless ($$self{'inarea'}) |
|
123
|
0 |
3 |
unless $self->isa('Games::Roguelike::Item') |
|
124
|
0 |
3 |
unless ref $$cont{'items'} and UNIVERSAL::can($cont, 'additem') |
|
126
|
3 |
0 |
if ($cont) { } |
|
127
|
2 |
1 |
if (not defined $$self{'cont'} or $cont != $$self{'cont'}) |
|
128
|
0 |
0 |
$cont->isa('Games::Roguelike::Item') ? : |
|
|
1 |
0 |
$cont->isa('Games::Roguelike::Mob') ? : |
|
|
1 |
1 |
$cont->isa('Games::Roguelike::Area') ? : |
|
135
|
0 |
2 |
if $$self{'invoid'} |
|
138
|
0 |
2 |
if $$self{'cont'} |
|
142
|
1 |
1 |
if ($$self{'inarea'}) { } |
|
160
|
0 |
0 |
unless my $pkg = ref $self |
|
164
|
0 |
0 |
if @_ and not exists $$self{$name} |
|
166
|
0 |
0 |
unless (exists $$self{$name}) |
|
170
|
0 |
0 |
if (@_) { } |