| line |
true |
false |
branch |
|
493
|
0 |
12 |
unless $d->isa('HH::Unispool::Config::File::Token::Numbered::Device::3') |
|
507
|
12 |
24 |
if (not $tok->isa('HH::Unispool::Config::File::Token::Numbered') or $tok->get_number != $d->get_number) { } |
|
|
12 |
12 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::X')) { } |
|
|
12 |
0 |
elsif ($tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::Info')) { } |
|
512
|
0 |
12 |
if defined $x |
|
517
|
0 |
12 |
if defined $i |
|
532
|
15 |
0 |
defined $_[0] ? : |
|
535
|
0 |
15 |
unless ref $opt eq 'HASH' |
|
538
|
12 |
3 |
exists $$opt{'execution_priority'} ? : |
|
541
|
12 |
3 |
exists $$opt{'initially_spooled'} ? : |
|
544
|
3 |
12 |
if (exists $$opt{'member_device_name'}) { } |
|
545
|
0 |
3 |
unless ref $$opt{'member_device_name'} eq 'ARRAY' |
|
553
|
12 |
3 |
exists $$opt{'networkwide'} ? : |
|
566
|
0 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
574
|
15 |
94 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
576
|
15 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
581
|
0 |
94 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
582
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
586
|
94 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
588
|
94 |
0 |
if $val =~ /$rx/ |
|
593
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
594
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
609
|
0 |
22 |
unless &_value_is_allowed('member_device_name', @_) |
|
623
|
10 |
22 |
if (not $tok->isa('HH::Unispool::Config::File::Token::Numbered::Device::Group') or $tok->get_number != $self->get_number) |
|
652
|
0 |
3 |
unless defined $diff_number |
|
655
|
0 |
3 |
if (ref $from ne ref $to) |
|
670
|
0 |
3 |
if ($from->is_initially_spooled != $to->is_initially_spooled) |
|
680
|
0 |
3 |
if ($from->is_networkwide != $to->is_networkwide) |
|
691
|
24 |
0 |
if $to->exists_member_device_name($vf) |
|
698
|
24 |
0 |
if $from->exists_member_device_name($vt) |
|
729
|
14 |
0 |
if ($$self{'HH_Unispool_Config_Entry_Device_3'}{'initially_spooled'}) { } |
|
740
|
14 |
0 |
if ($$self{'HH_Unispool_Config_Entry_Device_3'}{'networkwide'}) { } |
|
753
|
0 |
15 |
unless &_value_is_allowed('execution_priority', $val) |
|
762
|
15 |
0 |
if (shift()) { } |
|
774
|
0 |
15 |
unless &_value_is_allowed('member_device_name', @_) |
|
788
|
15 |
0 |
if (shift()) { } |
|
845
|
3 |
38 |
unless defined $member |