| line |
true |
false |
branch |
|
144
|
1 |
1 |
if defined $opt{'GET'} and uc $opt{'GET'} eq 'N' |
|
145
|
1 |
1 |
if defined $opt{'GET'} and uc $opt{'GET'} eq 'Z' |
|
163
|
4 |
22 |
if $SELF |
|
173
|
4 |
75 |
if _isa($info, 'CODE') |
|
184
|
0 |
1 |
unless scalar @elems |
|
185
|
1 |
0 |
unless ref $this->{$slot} eq 'ARRAY' |
|
216
|
0 |
0 |
unless $INSTANCES{$this->{'_KEY'}}{$k} |
|
232
|
43 |
25 |
unless exists $REPOSITORY{$slot} |
|
246
|
39 |
0 |
if (_isa($_, 'Chorus::Frame')) |
|
249
|
15 |
92 |
if (_isa($val, 'HASH')) { } |
|
250
|
0 |
15 |
if $val->{'_NOFRAME'} |
|
255
|
0 |
92 |
if (_isa($val, 'ARRAY')) |
|
259
|
13 |
94 |
if ($k eq '_ISA') |
|
260
|
0 |
13 |
_isa($val, 'ARRAY') ? : |
|
262
|
13 |
0 |
if $inherited |
|
270
|
0 |
0 |
if (_isa($_, 'ARRAY')) |
|
272
|
0 |
0 |
if (_isa($_[$idx], 'HASH')) { } |
|
273
|
0 |
0 |
if exists $_[$idx]{'_NOFRAME'} |
|
278
|
0 |
0 |
if (_isa($_[$idx], 'ARRAY')) |
|
288
|
0 |
28 |
if _isa($res, 'Chorus::Frame') |
|
292
|
24 |
4 |
if (_isa($res, 'HASH')) |
|
293
|
0 |
24 |
if exists $res->{'_NOFRAME'} |
|
295
|
24 |
0 |
if keys %$res |
|
299
|
0 |
4 |
if (_isa($res, 'ARRAY')) |
|
300
|
0 |
0 |
unless scalar @$res |
|
341
|
0 |
37 |
unless my $k = $this->{'_KEY'} |
|
343
|
12 |
25 |
if exists $INSTANCES{$k} |
|
345
|
1 |
36 |
_isa($this->{'_ISA'}, 'ARRAY') ? : |
|
346
|
24 |
12 |
unless my $ik = $inherited->{'_KEY'} |
|
347
|
12 |
0 |
if exists $INSTANCES{$ik}{$k} |
|
351
|
56 |
0 |
if exists $REPOSITORY{$slot} and exists $REPOSITORY{$slot}{$k} |
|
385
|
5 |
9 |
if exists $this->{$_} |
|
393
|
5 |
0 |
if defined $res and $res->{'ret'} |
|
395
|
2 |
5 |
if (exists $this->{'_ISA'}) |
|
396
|
0 |
0 |
unless expand($_) |
|
|
0 |
2 |
_isa($this->{'_ISA'}, 'ARRAY') ? : |
|
399
|
1 |
1 |
if defined $res and $res->{'ret'} |
|
408
|
29 |
12 |
if exists $this->{$slot} |
|
409
|
1 |
9 |
_isa($this->{'_ISA'}, 'ARRAY') ? : |
|
|
10 |
2 |
if $this->{'_ISA'} |
|
412
|
2 |
10 |
unless $next |
|
420
|
1 |
1 |
unless _isa($info, 'Chorus::Frame') |
|
422
|
1 |
0 |
if defined $res and $res->{'ret'} |
|
428
|
0 |
4 |
unless $way |
|
430
|
0 |
4 |
unless $way =~ /^\s*(\S*)\s*(.*?)\s*$/o |
|
433
|
2 |
2 |
unless $followWay |
|
436
|
2 |
0 |
_isa($next, 'Chorus::Frame') ? : |
|
443
|
18 |
4 |
unless _isa($info, 'Chorus::Frame') |
|
446
|
4 |
5 |
if defined $res and $res->{'ret'} |
|
453
|
0 |
26 |
unless $way |
|
455
|
0 |
26 |
unless $way =~ /^\s*(\S*)\s*(.*?)\s*$/o |
|
458
|
22 |
4 |
unless $followWay |
|
461
|
4 |
0 |
_isa($next, 'Chorus::Frame') ? : |
|
465
|
19 |
2 |
$getMode == 1 ? : |
|
484
|
0 |
1 |
unless exists $REPOSITORY{$slot} |
|
485
|
1 |
0 |
if exists $REPOSITORY{$slot}{$this->{'_KEY'}} |
|
491
|
1 |
0 |
if exists $this->{$slot} |
|
498
|
0 |
2 |
unless $way |
|
500
|
0 |
2 |
unless $way =~ /^\s*(\S*)\s*(.*?)\s*$/o |
|
503
|
1 |
1 |
unless $followWay |
|
506
|
1 |
0 |
_isa($next, 'Chorus::Frame') ? : |
|
552
|
3 |
1 |
unless exists $REPOSITORY{$slot} |
|
559
|
0 |
1 |
if $this->getN('_REQUIRE', $val) == -1 |
|
583
|
1 |
5 |
unless $way |
|
585
|
0 |
5 |
unless $way =~ /^\s*(\S*)\s*(.*?)\s*$/o |
|
589
|
2 |
3 |
if _isa($crossedValue, 'Chorus::Frame') |
|
591
|
3 |
0 |
unless ($followWay) |
|
592
|
0 |
3 |
if ($nextStep eq '_VALUE') { } |
|
595
|
0 |
3 |
if (_isa($this->{$nextStep}, 'Chorus::Frame') and exists $this->{$nextStep}{'_VALUE'}) { } |
|
603
|
0 |
0 |
exists $this->{$nextStep} ? : |
|
644
|
10 |
0 |
unless $INSTANCES{$k} |
|
655
|
0 |
10 |
unless $FMAP{$_} |
|
661
|
5 |
0 |
unless $dig[0] |
|
662
|
0 |
0 |
unless $_->firstInheriting |
|
671
|
10 |
0 |
unless $_->firstInheriting |
|
679
|
3 |
1 |
unless _isa($opts{'slot'}, 'ARRAY') |
|
680
|
0 |
4 |
unless $opts{'slot'} |
|
682
|
0 |
4 |
unless $firstslot |
|
687
|
1 |
0 |
$filter{$_->{'_KEY'}} ? : |
|
690
|
1 |
3 |
if ($opts{'from'}) |
|
694
|
0 |
4 |
unless $FMAP{$_} |