Branch Coverage

blib/lib/POE/Kernel.pm
Criterion Covered Total %
branch 239 286 83.5


line true false branch
33 178 0 unless ($queue_class)
44 1 509 if $args and ref $args ne 'HASH'
60 1 508 if @unknown
64 178 330 unless (UNIVERSAL::can('POE::Kernel', 'poe_kernel_loop'))
65 6 172 if (defined $loop)
67 0 6 if (defined $2) { }
77 176 0 if UNIVERSAL::can('POE::Kernel', 'poe_kernel_loop')
89 0 178 if ($^O eq 'MSWin32') { }
105 170 8 unless (defined &CATCH_EXCEPTIONS)
106 1 169 exists $ENV{'POE_CATCH_EXCEPTIONS'} ? :
112 169 1 if ($catch_exceptions) { }
120 178 0 unless (defined &CHILD_POLLING_INTERVAL)
125 162 16 unless (defined &USE_SIGCHLD)
129 162 0 if ($] >= 5.008001 and not RUNNING_IN_HELL()) { }
136 175 3 unless (defined &USE_SIGNAL_PIPE)
138 0 175 if (exists $ENV{'POE_USE_SIGNAL_PIPE'})
142 0 175 if (RUNNING_IN_HELL())
143 0 0 if ($use_signal_pipe)
154 175 0 if ($use_signal_pipe or not defined $use_signal_pipe) { }
324 0 1424 if defined *{"TRACE_$name";}{'CODE'}
343 3 887 if defined *{"ASSERT_$name";}{'CODE'}
353 3916 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 178 if defined &TRACE_FILENAME
375 0 178 if (defined $trace_filename)
376 0 0 unless open $trace_file_handle, ">$trace_filename"
385 66 112 unless defined &TRACE_DEFAULT
394 46 132 unless defined &ASSERT_DEFAULT
465 29638 24969 unless $message =~ /\n$/
473 1 0 unless $message =~ /\n$/
486 51 340736 if -r "$dir/$mod"
501 2 176 if ($@ and not $@ =~ /not really dying/)
517 6 172 if (defined $used_first)
523 0 15487 if substr($file, -3) ne '.pm'
532 0 15487 if $module =~ /[^\w\.]/
537 15487 0 unless (_find_loop($module))
539 15436 51 unless _find_loop($module)
542 0 51 if (defined $used_first and $used_first ne $module)
559 121 51 unless (defined $used_first)
561 121 0 unless (_find_loop($used_first))
589 3734 206 if defined $session
593 83 123 if defined $session
597 117 6 if defined $session
601 0 6 if $whatever eq $self
640 0 1743 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
711 16 444 if (defined $event_name) { }
732 3 294 unless (defined $session)
753 1 415 if ($kr_active_event eq '_signal')
785 253 258 if (defined $event_name) { }
0 122 elsif ($self->_data_sig_pids_is_ses_watching($kr_active_session->ID, $pid)) { }
806 176 122 unless (defined $POE::Kernel::poe_kernel)
930 127 477 if ($signal eq 'DIE')
942 223 259 if ($self->_data_sig_explicitly_watched($signal)) { }
951 11 389 unless exists $signal_watchers{$target_sid}
984 171 311 if ($signal eq 'DIE' and not $handled_session_count)
985 496 170 defined $POE::Kernel::kr_exception ? :
1028 369 8139 if $type & 32
1059 204 8165 unless defined $session
1068 3958 4001 if not defined $old_sig_die or $old_sig_die eq 'DEFAULT' or $old_sig_die eq ''
1073 5224 4075 if ($wantarray) { }
506 7220 elsif (defined $wantarray) { }
1096 591 6854 if (ref $@ or $@ ne '')
1109 86 5715 if ($type & 4104 or $kr_active_session eq $self) { }
1140 23 5530 if (!defined($old_sig_die) || $old_sig_die eq 'DEFAULT' and $SIG{'__DIE__'} ne \&_dummy_sigdie_handler)
1164 15 7364 if (defined $return and substr(ref $return, 0, 5) eq 'POE::')
1182 2277 5127 unless $type & 14
1185 166 2063 $wantarray ? :
1237 17 4379 unless ($self->_data_ses_count)
1240 1229 4414 if $POE::Kernel::kr_exception
1245 105 3738 if $POE::Kernel::kr_exception
1252 3150 877 unless defined $POE::Kernel::poe_kernel
1259 2863 1071 if ($kr_pid != $$)
1268 0 1053 if ($self->_data_ses_count == 0) { }
1288 11 179 if $POE::Kernel::kr_exception
1320 7 11 if ($self->_data_ses_exists($self->ID))
1349 0 18 if $kr_pid != $$
1362 0 4 if ($kr_pid == $$)
1387 0 0 unless ($kr_run_warning & 1)
1388 0 0 if ($kr_run_warning & 2)
1413 369 1248 if ($event eq '_sigchld_poll') { }
190 1058 elsif ($event eq '_signal') { }
1422 190 0 if ($$etc[0] eq 'IDLE')
1423 190 0 unless ($kr_queue->get_item_count > $idle_queue_size or $self->_data_handle_count)
1450 94 719 if ($kr_run_warning & 4)
1488 1 798 unless ($self->_data_ses_exists($new_sid))
1505 0 748 unless ($self->_data_ses_exists($new_sid))
1534 1 618 if ($self->_data_ses_get_parent($kr_active_session->ID) == $self)
1544 0 10 unless $kr_active_event_type & 4
1580 11 9 unless (defined $child_session)
1587 0 8 if ($kr_active_session == $self)
1593 0 8 unless ($self->_data_ses_is_child($kr_active_session->ID, $child_session->ID))
1668 2 332 unless (defined $session)
1728 4 4580 unless (defined $session)
1743 2 3567 if (wantarray)
1744 4 2130 $session == $kr_active_session ? :
1757 0 2131 if $POE::Kernel::kr_exception
1763 2 3565 if (defined wantarray)
1764 2 0 $session == $kr_active_session ? :
1777 0 2 if $POE::Kernel::kr_exception
1783 2536 73 if ($session == $kr_active_session) { }
1797 0 2598 if $POE::Kernel::kr_exception
1821 167 3657 unless (defined $event_name)
1830 0 3656 if (defined $time) { }
1839 970 2687 unless $kr_queue->get_item_count
1861 2 2553 unless (defined $event_name and defined $time)
1890 18 2359 unless (defined $event_name)
1895 1859 1757 if (defined $delay) { }
1930 2 307 unless (defined $event_name and defined $delay)
1959 3 545 unless (defined $event_name)
1965 235 298 unless (defined $time)
1996 3 470 unless (defined $alarm_id)
2004 1 469 unless defined $time
2011 8 219 unless defined wantarray
2012 215 4 if wantarray
2028 4 35 unless (defined $alarm_id)
2034 2 31 unless (defined $delta)
2066 3 48 unless (defined $event_name)
2079 2 16 unless (defined $seconds)
2109 2 11 unless (defined $alarm_id)
2115 3 8 unless (defined $seconds)
2143 3 2 unless $self->_data_ses_exists($kr_active_session->ID)
2154 0 2 unless defined wantarray
2155 2 0 if wantarray
2168 1191 1617 if ($event_name) { }
2294 5 2561 unless $self->_data_handle_is_good($handle, 1)
2315 6 2889 unless $self->_data_handle_is_good($handle, 1)
2336 11 2859 unless $self->_data_handle_is_good($handle, 0)
2357 283 2835 unless $self->_data_handle_is_good($handle, 0)
2380 7 189 if (defined $existing_session)
2381 4 759 if ($existing_session != $kr_active_session)
2403 44 267 unless (defined $existing_session)
2408 2 61 if ($existing_session != $kr_active_session)
2436 2 70 unless (defined $session)
2443 4 4 wantarray ? :
2464 0 180 unless defined $hostname
2473 4 176 if (defined $old_id)
2497 1 5 if defined $session
2515 5 32 if (defined $id)
2541 33 103 unless ($self->_data_ses_exists($session_id))
2562 3 203 unless ($self->_data_ses_exists($session_id))
2581 2102 201 unless defined $state_alias
2592 790 1411 if (ref $kr_active_session ne '' and ref $kr_active_session ne 'POE::Kernel')