Branch Coverage

blib/lib/POE/Session.pm
Criterion Covered Total %
branch 70 120 58.3


line true false branch
45 0 194 if defined *{"ASSERT_$name";}{"CODE"}
46 0 194 if (defined *{"POE::Kernel::ASSERT_$name";}{'CODE'}) { }
52 0 0 if $@
56 0 194 if $@
68 0 194 if defined *{"TRACE_$name";}{"CODE"}
69 0 194 if (defined *{"POE::Kernel::TRACE_$name";}{'CODE'}) { }
75 0 0 if $@
79 0 194 if $@
90 194 0 unless (defined &POE::Session::ASSERT_DEFAULT)
91 194 0 if (defined &POE::Kernel::ASSERT_DEFAULT) { }
103 194 0 unless (defined &POE::Session::TRACE_DEFAULT)
104 194 0 if (defined &POE::Kernel::TRACE_DEFAULT) { }
169 0 828 unless defined $POE::Kernel::poe_kernel
191 828 0 if (exists $self->[2]{'_start'}) { }
217 2 828 if (@params & 1)
228 370 458 if (exists $params{'args'})
229 370 0 if (ref $params{'args'} eq 'ARRAY') { }
240 4 824 if (exists $params{'options'})
241 4 0 if (ref $params{'options'} eq 'HASH') { }
256 721 507 if ($param_name eq 'inline_states') { }
200 307 elsif ($param_name eq 'package_states') { }
104 203 elsif ($param_name eq 'object_states') { }
203 0 elsif ($param_name eq 'heap') { }
257 0 721 unless ref $param_value eq "HASH"
261 0 5061 unless ref $handler eq "CODE"
274 0 200 unless ref $param_value eq "ARRAY"
276 0 200 if @$param_value & 1
291 100 3 if (ref $handlers eq 'ARRAY') { }
3 0 elsif (ref $handlers eq 'HASH') { }
320 0 104 unless ref $param_value eq "ARRAY"
322 0 104 if @$param_value & 1
334 0 7 unless ref $object
339 4 3 if (ref $handlers eq 'ARRAY') { }
3 0 elsif (ref $handlers eq 'HASH') { }
410 8 8560 if ($self->[1]{'trace'})
420 263 8305 unless (exists $self->[2]{$state})
426 141 122 unless (exists $self->[2]{'_default'})
427 141 0 exists &Errno::ENOSYS ? :
428 1 140 if ($self->[1]{'default'} and $state ne "_signal")
443 0 122 if ($self->[1]{'trace'})
463 6016 2411 if (ref $self->[2]{$state} eq "CODE")
502 5061 3013 unless defined $method
510 0 8074 if ($name eq "_signal")
531 7116 958 if ($handler) { }
535 6226 890 if (ref $handler eq 'CODE') { }
890 0 elsif ($handler->can($method)) { }
540 0 8 if $self->[1]{'debug'} and exists $self->[2]{$name}
553 0 0 if $self->[1]{'debug'} and exists $self->[2]{$name}
562 0 0 if (ref $handler eq 'CODE' and $self->[1]{'trace'}) { }
570 0 0 unless ($handler->can($method))
571 0 0 if (length ref $handler) { }
617 4 0 if (defined $value) { }
622 0 4 if $value =~ /^(on|yes|true)$/i
623 0 4 if $value =~ /^(no|off|false)$/i
639 4 4 if (@_)
643 4 0 exists $self->[1]{$flag} ? :
652 8 0 if (@return_keys == 1) { }
687 15 0 unless (delete $anonevent_weakened{$self})
694 0 0 unless ($anonevent_weakened{$self})
708 0 194 if (exists $INC{'Tk.pm'}) { }