Branch Coverage

blib/lib/BGPmon/Configure.pm
Criterion Covered Total %
branch 0 174 0.0


line true false branch
330 0 0 if (create_param($params[$i]))
336 0 0 if (read_command_line())
341 0 0 if (read_config_file())
370 0 0 unless (defined $name)
379 0 0 unless (defined $Type{$name})
386 0 0 if (defined $Value{$name})
417 0 0 unless (defined $name)
426 0 0 unless (defined $Type{$name})
433 0 0 unless (defined $SetBy{$name})
440 0 0 if (invalidSetByField($SetBy{$name}))
470 0 0 unless (defined $name)
479 0 0 unless (defined $Type{$name})
488 0 0 if (set_parameter_to_value($name, 4, $value))
512 0 0 unless (defined $function)
517 0 0 unless (defined $error_code{$function})
538 0 0 unless (defined $function)
543 0 0 unless (defined $error_msg{$function})
572 0 0 unless (defined $params)
583 0 0 unless (defined $name)
590 0 0 if (lc $name eq 'h' or lc $name eq 'help')
598 0 0 unless (defined $type)
606 0 0 if (lc $name eq 'c' or lc $name eq 'config_file')
607 0 0 if ($new_param{'Type'} != 2)
617 0 0 if (set_type($name, $new_param{'Type'}))
629 0 0 if ($element eq 'Description') { }
0 0 elsif ($element eq 'Default') { }
0 0 elsif ($element ne 'Name' and $element ne 'Type') { }
633 0 0 if (set_parameter_to_value($name, 1, $Default{$name}))
636 0 0 if (exists $new_param{'Name'}) { }
688 0 0 unless (defined $GETOPT_PARAM_FOR_TYPE{$Type{$name}})
699 0 0 unless (defined $USAGE_MSG_FOR_TYPE{$Type{$name}})
709 0 0 if (defined $Description{$name})
713 0 0 if (defined $Default{$name})
725 0 0 if ($result == 0 or defined $help)
732 0 0 if (defined $cli_value{$opt})
734 0 0 if (set_parameter_to_value($opt, 2, $cli_value{$opt}))
755 0 0 unless (defined $Value{'config_file'})
760 0 0 unless (-e $Value{'config_file'})
768 0 0 unless (open $conf_fh, $Value{'config_file'})
788 0 0 if ($line =~ /^\s*#/u)
793 0 0 if ($line =~ /^$/u)
801 0 0 if (@line_elements != 2)
817 0 0 unless (defined $SetBy{$name})
824 0 0 if ($SetBy{$name} == 2)
829 0 0 if (set_parameter_to_value($name, 3, $value))
852 0 0 unless (defined $value)
858 0 0 if ($value == $approved)
873 0 0 unless (defined $name)
878 0 0 unless (defined $type)
883 0 0 if ($type =~ /\D/u)
889 0 0 if ($type == $approved)
909 0 0 unless (defined $name)
915 0 0 unless (defined $Type{$name})
921 0 0 if (invalidSetByField($setby))
927 0 0 unless (defined $value)
937 0 0 if ($Type{$name} == 0) { }
0 0 elsif ($Type{$name} == 1) { }
0 0 elsif ($Type{$name} == 2) { }
0 0 elsif ($Type{$name} == 3) { }
0 0 elsif ($Type{$name} == 4) { }
0 0 elsif ($Type{$name} == 5) { }
968 0 0 unless (defined $name)
974 0 0 unless (defined $value)
983 0 0 if ($value =~ /\./u)
986 0 0 if ($#v4 != 3)
992 0 0 if ($v4num =~ /\D/u)
999 0 0 if ($v4num < 0 or $v4num > 255)
1012 0 0 if ($value =~ /\:/u)
1018 0 0 if ($len > 4)
1024 0 0 unless ($v6num =~ /[0-9a-f]{$len}/iu)
1052 0 0 unless (defined $name)
1058 0 0 unless (defined $value)
1064 0 0 if ($value =~ /\D/u)
1071 0 0 if ($value < 0 or $value > 65535)
1092 0 0 unless (defined $name)
1098 0 0 unless (defined $value)
1120 0 0 unless (defined $name)
1126 0 0 unless (defined $value)
1132 0 0 if ($value =~ /\D/u)
1139 0 0 if ($value == 0)
1146 0 0 if ($value == 1)
1166 0 0 unless (defined $name)
1172 0 0 unless (defined $value)
1195 0 0 unless (defined $name)
1201 0 0 unless (defined $value)
1207 0 0 if ($value =~ /\D/u)
1214 0 0 if ($value < 0)