Branch Coverage

blib/lib/HH/Unispool/Config/Entry/RemoteSystem/7.pm
Criterion Covered Total %
branch 27 60 45.0


line true false branch
400 0 18 unless $s->isa('HH::Unispool::Config::File::Token::Numbered::System::7')
404 18 0 if $s->get_number
405 18 0 if $s->get_remote_system_name
406 0 18 if $s->get_block_delay
407 18 0 if $s->is_initially_open
408 18 0 if $s->get_execution_priority
413 17 18 if (not $tok->isa('HH::Unispool::Config::File::Token::Numbered') or $tok->get_number != $s->get_number) { }
18 0 elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::System::Info')) { }
418 0 18 if defined $i
420 18 0 if $i->get_description
433 19 0 defined $_[0] ? :
436 0 19 unless ref $opt eq 'HASH'
439 0 19 exists $$opt{'block_delay'} ? :
442 18 1 exists $$opt{'initially_open'} ? :
455 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
463 0 19 if (ref $val and exists $ALLOW_ISA{$name})
465 0 0 if &UNIVERSAL::isa($val, $class)
470 0 19 if (ref $val and exists $ALLOW_REF{$name})
471 0 0 if exists $ALLOW_REF{$name}{ref $val}
475 19 0 if (defined $val and not ref $val and exists $ALLOW_RX{$name})
477 19 0 if $val =~ /$rx/
482 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
483 0 0 if exists $ALLOW_VALUE{$name}{$val}
498 0 5 unless defined $diff_number
501 0 5 if (ref $from ne ref $to)
512 0 5 if ($from->get_block_delay ne $to->get_block_delay)
522 0 5 if ($from->is_initially_open != $to->is_initially_open)
544 19 0 if ($$self{'HH_Unispool_Config_Entry_RemoteSystem_7'}{'initially_open'}) { }
557 0 19 unless &_value_is_allowed('block_delay', $val)
566 19 0 if (shift()) { }