Branch Coverage

blib/lib/HH/Unispool/Config/File/Token/Numbered/System.pm
Criterion Covered Total %
branch 36 62 58.0


line true false branch
453 39 0 defined $_[0] ? :
456 0 39 unless ref $opt eq 'HASH'
459 9 30 if exists $$opt{'acct'}
462 9 30 if exists $$opt{'apass'}
465 30 9 if exists $$opt{'block_delay'}
468 39 0 if exists $$opt{'execution_priority'}
471 9 30 if exists $$opt{'high_priority_login'}
474 39 0 if exists $$opt{'initially_open'}
477 0 39 unless exists $$opt{'remote_system_name'}
481 9 30 if exists $$opt{'timeout'}
484 9 30 if exists $$opt{'upass'}
497 0 0 unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name})
505 131 358 if (ref $val and exists $ALLOW_ISA{$name})
507 131 0 if &UNIVERSAL::isa($val, $class)
512 0 358 if (ref $val and exists $ALLOW_REF{$name})
513 0 0 if exists $ALLOW_REF{$name}{ref $val}
517 358 0 if (not ref $val and exists $ALLOW_RX{$name})
519 358 0 if $val =~ /$rx/
524 0 0 if (not ref $val and exists $ALLOW_VALUE{$name})
525 0 0 if exists $ALLOW_VALUE{$name}{$val}
581 0 65 if ($$self{'HH_Unispool_Config_File_Token_Numbered_System'}{'high_priority_login'}) { }
592 190 1 if ($$self{'HH_Unispool_Config_File_Token_Numbered_System'}{'initially_open'}) { }
611 0 32 unless &_value_is_allowed('acct', $val)
622 0 32 unless &_value_is_allowed('apass', $val)
633 0 99 unless &_value_is_allowed('block_delay', $val)
644 0 131 unless &_value_is_allowed('execution_priority', $val)
653 0 101 if (shift()) { }
664 130 1 if (shift()) { }
677 0 131 unless &_value_is_allowed('remote_system_name', $val)
688 0 32 unless &_value_is_allowed('timeout', $val)
699 0 32 unless &_value_is_allowed('upass', $val)