Branch Coverage

blib/lib/POE/Kernel.pm
Criterion Covered Total %
branch 246 290 84.8


line true false branch
33 202 0 unless ($queue_class)
44 1 560 if $args and ref $args ne "HASH"
60 1 559 if @unknown
64 202 357 unless (UNIVERSAL::can("POE::Kernel", "poe_kernel_loop"))
65 6 196 if (defined $loop)
67 0 6 if (defined $2) { }
77 200 0 if UNIVERSAL::can("POE::Kernel", "poe_kernel_loop")
89 0 202 if ($^O eq 'MSWin32') { }
105 194 8 unless (defined &POE::Kernel::CATCH_EXCEPTIONS)
109 1 193 exists $ENV{'POE_CATCH_EXCEPTIONS'} ? :
112 193 1 if ($catch_exceptions) { }
120 202 0 unless (defined &POE::Kernel::CHILD_POLLING_INTERVAL)
125 186 16 unless (defined &POE::Kernel::USE_SIGCHLD)
129 186 0 if ($] >= 5.008001 and not RUNNING_IN_HELL()) { }
136 199 3 unless (defined &POE::Kernel::USE_SIGNAL_PIPE)
138 0 199 if (exists $ENV{'POE_USE_SIGNAL_PIPE'})
142 0 199 if (RUNNING_IN_HELL())
143 0 0 if ($use_signal_pipe)
154 199 0 if ($use_signal_pipe or not defined $use_signal_pipe) { }
324 0 1616 if defined *{"TRACE_$name";}{"CODE"}
343 3 1007 if defined *{"ASSERT_$name";}{"CODE"}
353 5394 11 unless $var =~ /^POE_([A-Z_]+)$/
357 10 1 unless $const =~ /^(?:TRACE|ASSERT)_/ or do { no strict 'refs'; defined &$const }
363 1 0 if $value =~ /^\s*-?\d+(?:\.\d+)?\s*$/
375 0 202 if defined &POE::Kernel::TRACE_FILENAME
376 0 202 if (defined $trace_filename)
377 0 0 unless open $trace_file_handle, ">$trace_filename"
386 89 113 unless defined &POE::Kernel::TRACE_DEFAULT
395 69 133 unless defined &POE::Kernel::ASSERT_DEFAULT
466 29816 25213 unless $message =~ /\n$/
474 1 0 unless $message =~ /\n$/
489 196 52549 unless (@has_poe_loop)
491 1276 438 unless -d "$_/POE/Loop"
497 51 116070 if -r "$dir/$mod"
513 2 200 if ($@ and not $@ =~ /not really dying/)
529 6 196 if (defined $used_first)
535 392 26300 if substr($file, -3) ne ".pm"
544 0 26300 if $module =~ /[^\w\.]/
549 26300 0 unless (_find_loop($module))
551 26249 51 unless _find_loop($module)
554 0 51 if (defined $used_first and $used_first ne $module)
571 145 51 unless (defined $used_first)
573 145 0 unless (_find_loop($used_first))
601 3553 207 if defined $session
605 83 124 if defined $session
609 118 6 if defined $session
613 0 6 if $whatever eq $self
652 2 1772 if $kr_queue->get_item_count > $idle_queue_size or $self->_data_handle_count or $self->_data_extref_count or $self->_data_sig_kernel_awaits_pids or not $self->_data_ses_count
723 18 444 if (defined $event_name) { }
744 3 294 unless (defined $session)
765 1 290 if ($kr_active_event eq "_signal")
797 253 269 if (defined $event_name) { }
0 133 elsif ($self->_data_sig_pids_is_ses_watching($kr_active_session->ID, $pid)) { }
818 200 132 unless (defined $POE::Kernel::poe_kernel)
942 138 485 if ($signal eq "DIE")
954 236 254 if ($self->_data_sig_explicitly_watched($signal)) { }
963 11 402 unless exists $signal_watchers{$target_sid}
996 171 319 if ($signal eq "DIE" and not $handled_session_count)
998 496 170 defined $POE::Kernel::kr_exception ? :
1040 382 8024 if $type & 32
1071 204 8050 unless defined $session
1080 3956 3887 if not defined $old_sig_die or $old_sig_die eq "DEFAULT" or $old_sig_die eq ""
1085 5272 3952 if ($wantarray) { }
545 7066 elsif (defined $wantarray) { }
1108 591 6739 if (ref $@ or $@ ne "")
1121 86 5726 if ($type & 4104 or $kr_active_session eq $self) { }
1152 23 5414 if (!defined($old_sig_die) || $old_sig_die eq 'DEFAULT' and $SIG{'__DIE__'} ne \&POE::Kernel::_dummy_sigdie_handler)
1176 15 7249 if (defined $return and substr(ref $return, 0, 5) eq "POE::")
1194 2126 5163 unless $type & 14
1197 165 2102 $wantarray ? :
1249 17 4390 unless ($self->_data_ses_count)
1252 1229 4425 if $POE::Kernel::kr_exception
1257 105 3749 if $POE::Kernel::kr_exception
1264 3148 903 unless defined $POE::Kernel::poe_kernel
1271 2864 1094 if ($kr_pid != $$)
1281 0 1079 if ($self->_data_ses_count == 0) { }
1301 11 192 if $POE::Kernel::kr_exception
1333 7 11 if ($self->_data_ses_exists($self->ID))
1362 0 18 if $kr_pid != $$
1375 3 10 if ($kr_pid == $$)
1400 0 0 unless ($kr_run_warning & 1)
1401 0 0 if ($kr_run_warning & 2)
1426 337 1313 if ($event eq '_sigchld_poll') { }
203 1110 elsif ($event eq '_signal') { }
1435 203 0 if ($etc->[0] eq "IDLE")
1436 203 0 unless ($kr_queue->get_item_count > $idle_queue_size or $self->_data_handle_count)
1463 94 746 if ($kr_run_warning & 4)
1501 1 825 unless ($self->_data_ses_exists($new_sid))
1518 0 774 unless ($self->_data_ses_exists($new_sid))
1547 1 631 if ($self->_data_ses_get_parent($kr_active_session->ID) == $self)
1557 0 10 unless $kr_active_event_type & 4
1593 11 9 unless (defined $child_session)
1600 0 8 if ($kr_active_session == $self)
1606 0 8 unless ($self->_data_ses_is_child($kr_active_session->ID, $child_session->ID))
1681 2 333 unless (defined $session)
1741 4 4399 unless (defined $session)
1756 2 3386 if (wantarray)
1757 4 2126 $session == $kr_active_session ? :
1770 0 2127 if $POE::Kernel::kr_exception
1776 2 3384 if (defined wantarray)
1777 2 0 $session == $kr_active_session ? :
1790 0 2 if $POE::Kernel::kr_exception
1796 2359 73 if ($session == $kr_active_session) { }
1810 0 2421 if $POE::Kernel::kr_exception
1834 167 3653 unless (defined $event_name)
1843 0 3652 if (defined $time) { }
1852 966 2687 unless $kr_queue->get_item_count
1874 2 2553 unless (defined $event_name and defined $time)
1903 18 2324 unless (defined $event_name)
1908 1824 1757 if (defined $delay) { }
1943 2 307 unless (defined $event_name and defined $delay)
1972 3 545 unless (defined $event_name)
1978 235 298 unless (defined $time)
2009 3 470 unless (defined $alarm_id)
2017 1 469 unless defined $time
2024 8 219 unless defined wantarray
2025 215 4 if wantarray
2041 4 35 unless (defined $alarm_id)
2047 2 31 unless (defined $delta)
2079 3 48 unless (defined $event_name)
2092 2 16 unless (defined $seconds)
2122 2 11 unless (defined $alarm_id)
2128 3 8 unless (defined $seconds)
2156 3 2 unless $self->_data_ses_exists($kr_active_session->ID)
2167 0 2 unless defined wantarray
2168 2 0 if wantarray
2181 1224 1554 if ($event_name) { }
2307 5 2603 unless $self->_data_handle_is_good($handle, 1)
2328 6 2943 unless $self->_data_handle_is_good($handle, 1)
2349 11 2913 unless $self->_data_handle_is_good($handle, 0)
2370 283 2155 unless $self->_data_handle_is_good($handle, 0)
2393 7 190 if (defined $existing_session)
2394 4 772 if ($existing_session != $kr_active_session)
2416 44 269 unless (defined $existing_session)
2421 2 62 if ($existing_session != $kr_active_session)
2449 2 70 unless (defined $session)
2456 4 4 wantarray ? :
2477 0 210 unless defined $hostname
2486 10 200 if (defined $old_id)
2510 1 5 if defined $session
2528 5 32 if (defined $id)
2554 33 103 unless ($self->_data_ses_exists($session_id))
2575 3 203 unless ($self->_data_ses_exists($session_id))
2594 2135 201 unless defined $state_alias
2605 792 1442 if (ref $kr_active_session ne "" and ref $kr_active_session ne "POE::Kernel")