Branch Coverage

blib/lib/POE/Kernel.pm
Criterion Covered Total %
branch 243 290 83.7


line true false branch
33 177 0 unless ($queue_class)
44 1 506 if $args and ref $args ne 'HASH'
60 1 505 if @unknown
64 177 328 unless (UNIVERSAL::can('POE::Kernel', 'poe_kernel_loop'))
65 6 171 if (defined $loop)
67 0 6 if (defined $2) { }
77 175 0 if UNIVERSAL::can('POE::Kernel', 'poe_kernel_loop')
89 0 177 if ($^O eq 'MSWin32') { }
105 169 8 unless (defined &CATCH_EXCEPTIONS)
106 1 168 exists $ENV{'POE_CATCH_EXCEPTIONS'} ? :
112 168 1 if ($catch_exceptions) { }
120 177 0 unless (defined &CHILD_POLLING_INTERVAL)
125 161 16 unless (defined &USE_SIGCHLD)
129 161 0 if ($] >= 5.008001 and not RUNNING_IN_HELL()) { }
136 174 3 unless (defined &USE_SIGNAL_PIPE)
138 0 174 if (exists $ENV{'POE_USE_SIGNAL_PIPE'})
142 0 174 if (RUNNING_IN_HELL())
143 0 0 if ($use_signal_pipe)
154 174 0 if ($use_signal_pipe or not defined $use_signal_pipe) { }
324 0 1416 if defined *{"TRACE_$name";}{'CODE'}
343 3 882 if defined *{"ASSERT_$name";}{'CODE'}
353 3894 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*$/
374 0 177 if defined &TRACE_FILENAME
375 0 177 if (defined $trace_filename)
376 0 0 unless open $trace_file_handle, ">$trace_filename"
385 66 111 unless defined &TRACE_DEFAULT
394 46 131 unless defined &ASSERT_DEFAULT
465 29430 24771 unless $message =~ /\n$/
473 1 0 unless $message =~ /\n$/
488 171 30736 unless (@has_poe_loop)
489 1488 387 unless -d "$_/POE/Loop"
496 50 69439 if -r "$dir/$mod"
512 2 175 if ($@ and not $@ =~ /not really dying/)
528 6 171 if (defined $used_first)
534 0 15393 if substr($file, -3) ne '.pm'
543 0 15393 if $module =~ /[^\w\.]/
548 15393 0 unless (_find_loop($module))
550 15343 50 unless _find_loop($module)
553 0 50 if (defined $used_first and $used_first ne $module)
570 121 50 unless (defined $used_first)
572 121 0 unless (_find_loop($used_first))
600 3734 206 if defined $session
604 83 123 if defined $session
608 117 6 if defined $session
612 0 6 if $whatever eq $self
651 0 1756 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
722 14 444 if (defined $event_name) { }
743 3 294 unless (defined $session)
764 1 415 if ($kr_active_event eq '_signal')
796 253 247 if (defined $event_name) { }
0 111 elsif ($self->_data_sig_pids_is_ses_watching($kr_active_session->ID, $pid)) { }
817 175 111 unless (defined $POE::Kernel::poe_kernel)
941 116 477 if ($signal eq 'DIE')
953 223 259 if ($self->_data_sig_explicitly_watched($signal)) { }
962 11 389 unless exists $signal_watchers{$target_sid}
995 171 311 if ($signal eq 'DIE' and not $handled_session_count)
996 496 170 defined $POE::Kernel::kr_exception ? :
1039 369 8170 if $type & 32
1070 204 8196 unless defined $session
1079 3946 4044 if not defined $old_sig_die or $old_sig_die eq 'DEFAULT' or $old_sig_die eq ''
1084 5146 4128 if ($wantarray) { }
506 7251 elsif (defined $wantarray) { }
1107 591 6885 if (ref $@ or $@ ne '')
1120 86 5689 if ($type & 4104 or $kr_active_session eq $self) { }
1151 23 5562 if (!defined($old_sig_die) || $old_sig_die eq 'DEFAULT' and $SIG{'__DIE__'} ne \&_dummy_sigdie_handler)
1175 15 7395 if (defined $return and substr(ref $return, 0, 5) eq 'POE::')
1193 2320 5115 unless $type & 14
1196 166 2063 $wantarray ? :
1248 17 4354 unless ($self->_data_ses_count)
1251 1229 4389 if $POE::Kernel::kr_exception
1256 105 3713 if $POE::Kernel::kr_exception
1263 3138 864 unless defined $POE::Kernel::poe_kernel
1270 2851 1058 if ($kr_pid != $$)
1280 0 1040 if ($self->_data_ses_count == 0) { }
1300 11 179 if $POE::Kernel::kr_exception
1332 7 11 if ($self->_data_ses_exists($self->ID))
1361 0 18 if $kr_pid != $$
1374 0 4 if ($kr_pid == $$)
1399 0 0 unless ($kr_run_warning & 1)
1400 0 0 if ($kr_run_warning & 2)
1425 371 1235 if ($event eq '_sigchld_poll') { }
190 1045 elsif ($event eq '_signal') { }
1434 190 0 if ($$etc[0] eq 'IDLE')
1435 190 0 unless ($kr_queue->get_item_count > $idle_queue_size or $self->_data_handle_count)
1462 94 705 if ($kr_run_warning & 4)
1500 1 784 unless ($self->_data_ses_exists($new_sid))
1517 0 735 unless ($self->_data_ses_exists($new_sid))
1546 1 605 if ($self->_data_ses_get_parent($kr_active_session->ID) == $self)
1556 0 10 unless $kr_active_event_type & 4
1592 11 9 unless (defined $child_session)
1599 0 8 if ($kr_active_session == $self)
1605 0 8 unless ($self->_data_ses_is_child($kr_active_session->ID, $child_session->ID))
1680 2 332 unless (defined $session)
1740 4 4580 unless (defined $session)
1755 2 3567 if (wantarray)
1756 4 2130 $session == $kr_active_session ? :
1769 0 2131 if $POE::Kernel::kr_exception
1775 2 3565 if (defined wantarray)
1776 2 0 $session == $kr_active_session ? :
1789 0 2 if $POE::Kernel::kr_exception
1795 2536 73 if ($session == $kr_active_session) { }
1809 0 2598 if $POE::Kernel::kr_exception
1833 167 3657 unless (defined $event_name)
1842 0 3656 if (defined $time) { }
1851 970 2687 unless $kr_queue->get_item_count
1873 2 2553 unless (defined $event_name and defined $time)
1902 16 2416 unless (defined $event_name)
1907 1916 1755 if (defined $delay) { }
1942 2 305 unless (defined $event_name and defined $delay)
1971 3 543 unless (defined $event_name)
1977 233 298 unless (defined $time)
2008 3 470 unless (defined $alarm_id)
2016 1 469 unless defined $time
2023 8 219 unless defined wantarray
2024 215 4 if wantarray
2040 4 35 unless (defined $alarm_id)
2046 2 31 unless (defined $delta)
2078 3 48 unless (defined $event_name)
2091 2 16 unless (defined $seconds)
2121 2 11 unless (defined $alarm_id)
2127 3 8 unless (defined $seconds)
2155 3 2 unless $self->_data_ses_exists($kr_active_session->ID)
2166 0 2 unless defined wantarray
2167 2 0 if wantarray
2180 1160 1617 if ($event_name) { }
2306 5 2519 unless $self->_data_handle_is_good($handle, 1)
2327 6 2835 unless $self->_data_handle_is_good($handle, 1)
2348 11 2805 unless $self->_data_handle_is_good($handle, 0)
2369 283 2781 unless $self->_data_handle_is_good($handle, 0)
2392 7 189 if (defined $existing_session)
2393 4 746 if ($existing_session != $kr_active_session)
2415 44 266 unless (defined $existing_session)
2420 2 61 if ($existing_session != $kr_active_session)
2448 2 70 unless (defined $session)
2455 4 4 wantarray ? :
2476 0 179 unless defined $hostname
2485 4 175 if (defined $old_id)
2509 1 5 if defined $session
2527 5 32 if (defined $id)
2553 33 103 unless ($self->_data_ses_exists($session_id))
2574 3 203 unless ($self->_data_ses_exists($session_id))
2593 2071 201 unless defined $state_alias
2604 790 1380 if (ref $kr_active_session ne '' and ref $kr_active_session ne 'POE::Kernel')