| line |
true |
false |
branch |
|
29
|
0 |
110 |
if ($ENV{'HOE_DEBUG'}) { } |
|
36
|
110 |
0 |
unless ('POE::Kernel'->can('ASSERT_USAGE')) |
|
42
|
0 |
110 |
if (my $debug_filename = $ENV{'HOE_DEBUG_FILE'}) { } |
|
43
|
0 |
0 |
unless (open $debug_file, '>', $debug_filename) |
|
146
|
109 |
81 |
unless (exists $hijacked_namespaces{$package}) |
|
150
|
90 |
0 |
if defined $POE::Kernel::poe_kernel |
|
152
|
88 |
2 |
unless $old_destroy |
|
166
|
50 |
40 |
if (exists $$self[10]{$session}) |
|
182
|
90 |
40 |
if (my $id = $$self[10]{$session}) |
|
186
|
90 |
40 |
if (my $parent = delete $$self[12]{$session}) |
|
223
|
0 |
143 |
unless (defined $parent) |
|
227
|
42 |
101 |
if (exists $$self[13]{$parent}) |
|
251
|
0 |
0 |
if (grep {$session == $_;} $self->get_children(CURRENT_SESSION())) { } |
|
272
|
0 |
0 |
if (exists $$parents{$session}) { } |
|
275
|
0 |
0 |
if ($old_parent == $self) { } |
|
284
|
0 |
0 |
unless keys %{$$children{$old_parent};} |
|
306
|
0 |
1 |
unless defined $to |
|
307
|
0 |
1 |
unless defined $state |
|
321
|
0 |
227 |
unless defined $state |
|
334
|
0 |
483 |
unless defined $to |
|
335
|
0 |
483 |
unless defined $to |
|
344
|
242 |
241 |
if (defined $wantarray) { } |
|
345
|
51 |
191 |
if ($wantarray) { } |
|
358
|
242 |
241 |
if (defined $wantarray) { } |
|
359
|
51 |
191 |
if ($wantarray) { } |
|
380
|
0 |
924 |
unless ($input) |
|
384
|
924 |
0 |
if (ref $input and $input->can('_invoke_state')) { } |
|
|
0 |
0 |
elsif (exists $$aliases{$input}) { } |
|
|
0 |
0 |
elsif (exists $$ids{$input}) { } |
|
409
|
0 |
0 |
unless (defined $current_session) |
|
417
|
0 |
0 |
if ($event) { } |
|
419
|
0 |
0 |
unless (exists $$main_class{$fd} and ref $$main_class{$fd} eq 'ARRAY') |
|
423
|
0 |
0 |
unless (grep {$$_{'session'} == $current_session;} @{$$main_class{$fd};}) |
|
435
|
0 |
0 |
if defined $$_{'session'} |
|
439
|
0 |
0 |
if defined $$_{'session'} |
|
443
|
0 |
0 |
unless (@{$$main_class{$fd};}) |
|
446
|
0 |
0 |
unless (@{$$paused_class{$fd};}) |
|
547
|
0 |
4 |
unless $_[1] |
|
553
|
4 |
0 |
if (defined $_[2]) |
|
558
|
4 |
0 |
if defined $result |
|
566
|
0 |
1 |
unless $_[1] |
|
567
|
0 |
1 |
unless $_[2] |
|
571
|
1 |
0 |
if defined _internal_alarm_add(@stuff) |
|
577
|
0 |
1 |
unless $_[1] |
|
583
|
1 |
0 |
if (defined $_[2]) |
|
587
|
0 |
1 |
if defined $result |
|
593
|
0 |
1 |
unless $_[1] |
|
594
|
0 |
1 |
unless $_[2] |
|
596
|
1 |
0 |
if defined _internal_alarm_add(@_) |
|
645
|
0 |
0 |
if $_->can('alarm_id') |
|
647
|
0 |
0 |
if (@alarms == 1) |
|
669
|
1 |
1 |
if ($_->can('alarm_id') and $_->alarm_id == $alarm_id and $current_session == $_->from) { } |
|
680
|
1 |
0 |
if (@events == 1) |
|
684
|
0 |
1 |
if (wantarray) { } |
|
706
|
0 |
0 |
if ($_->can('alarm_id') and $current_session == $_->from) { } |
|
719
|
0 |
0 |
if (wantarray) { } |
|
732
|
0 |
2 |
unless $_[1] |
|
733
|
0 |
2 |
unless $_[2] |
|
747
|
0 |
0 |
if $_->can('alarm_id') |
|
749
|
0 |
0 |
if (@alarms == 1) |
|
757
|
148 |
39 |
unless isweak($POE::Kernel::poe_kernel) |
|
780
|
296 |
5 |
if ($when <= $now) { } |
|
787
|
50 |
146 |
if (@$queue) |
|
796
|
151 |
59 |
if (defined $when) |
|
798
|
1 |
150 |
if ($when < 0) |
|
824
|
0 |
0 |
if ($when <= time) { } |
|
829
|
0 |
0 |
if (@$queue) |
|
838
|
0 |
0 |
if (defined $when) |
|
840
|
0 |
0 |
if ($when < 0) |
|
906
|
0 |
0 |
if (vec $rout, $fd, 1) |
|
913
|
0 |
0 |
if (vec $wout, $fd, 1) |
|
920
|
0 |
0 |
if (vec $eout, $fd, 1) |
|
935
|
0 |
0 |
if (exists $$aliases{$alias}) { } |
|
936
|
0 |
0 |
if ($$aliases{$alias} == $session) { } |
|
955
|
0 |
0 |
unless @_ |
|
959
|
0 |
0 |
if (exists $$aliases{$alias}) { } |
|
960
|
0 |
0 |
if ($$aliases{$alias} == CURRENT_SESSION()) { } |
|
981
|
0 |
0 |
if (exists $$aliases{$alias}) { } |
|
|
0 |
0 |
elsif (exists $$ids{$alias}) { } |
|
|
0 |
0 |
elsif (exists $$sessions{$alias}) { } |
|
997
|
0 |
0 |
@_ ? : |
|
1010
|
0 |
0 |
@aliases ? : |
|
1025
|
0 |
0 |
unless (exists $$refs{$session} and ref $$refs{$session} eq 'ARRAY') |
|
1039
|
0 |
0 |
unless (@{$$refs{$session};}) |
|
1069
|
103 |
3 |
if ($event) { } |
|
1071
|
102 |
1 |
unless (exists $$signals{$signal_name}) |
|
1078
|
101 |
2 |
if ($signal_name eq 'CHLD' or $signal_name eq 'CLD') { } |
|
|
0 |
2 |
elsif (exists $SIG{$signal_name}) { } |
|
1087
|
3 |
0 |
if (exists $$signals{$signal_name}) |
|
1090
|
2 |
1 |
unless (keys %{$$signals{$signal_name};}) |
|
1092
|
1 |
1 |
if exists $SIG{$signal_name} |