| line |
true |
false |
branch |
|
187
|
40 |
0 |
if ($attr =~ /^(\w+)(?:\((.*)\))?$/) |
|
219
|
0 |
4 |
ref $aliases eq 'ARRAY' ? : |
|
244
|
40 |
0 |
if (my($name, $param) = _parse_attribute($attr)) |
|
247
|
15 |
25 |
if (lc $name eq 'state') |
|
253
|
0 |
15 |
unless $states |
|
|
0 |
15 |
unless %{{} unless $states;} |
|
289
|
5 |
10 |
if (my $next = $$params{'chained'}) { } |
|
|
1 |
9 |
elsif (my $next = $$params{'next'}) { } |
|
305
|
2 |
13 |
if (my $err_handler = $$params{'error'}) |
|
309
|
1 |
1 |
if $@ |
|
314
|
6 |
9 |
if (refaddr $code ne refaddr $orig_code) |
|
369
|
14 |
0 |
unless (exists $classmap{$c}) |
|
397
|
12 |
6 |
unless exists $POE::Component::Basement::STATES{$class} |
|
403
|
0 |
26 |
unless $states |
|
406
|
0 |
15 |
if (exists $seen_states{$state}) { } |
|
413
|
0 |
15 |
unless my $name = _get_symbol_name($class, $code) |
|
417
|
6 |
9 |
if (my $newcode = $code_replacement{refaddr $code}) |
|
424
|
4 |
11 |
if (lc $type eq 'package') { } |
|
|
8 |
3 |
elsif (lc $type eq 'inline') { } |
|
|
3 |
0 |
elsif (lc $type eq 'object') { } |
|
445
|
0 |
3 |
unless ref $self and UNIVERSAL::isa($self, 'UNIVERSAL') |
|
480
|
0 |
15 |
if $symcache{refaddr $code} |
|
488
|
15 |
244 |
if refaddr(*{$smth;}{'CODE'}) eq refaddr $code |
|
513
|
0 |
23 |
unless $name |
|
516
|
15 |
8 |
if (grep {$name eq $_;} 'inline', 'package', 'object') { } |
|
|
8 |
0 |
elsif (grep {$name eq $_;} 'error', 'chained', 'next') { } |
|
532
|
0 |
15 |
if ($string =~ /\S/) |