Branch Coverage

blib/lib/Sim/OPT/Morph.pm
Criterion Covered Total %
branch 2 614 0.3


line true false branch
82 0 0 unless open OUTFILE, ">>$outfile"
83 0 0 unless open TOSHELL, ">>$toshell"
135 0 0 unless ($exeonfiles)
136 0 0 unless ($preventsim)
137 0 0 unless ($report)
238 0 0 if ($countblock == 0 and $countstep == 1)
240 0 0 unless (-e "$origin")
242 0 0 if ($exeonfiles eq 'y')
278 0 0 unless ($to ~~ \@morphcases)
338 0 0 unless (-e $to or eval $skip->[$countop])
350 0 0 if ($exeonfiles eq 'y')
362 0 0 if ($applytype[$countop][1] ne $applytype[$countop][2] and $modification_type ne 'changeconfig')
364 0 0 if ($exeonfiles eq 'y')
369 0 0 if ($exeonfiles eq 'y')
375 0 0 if ($applytype[$countop][1] ne $applytype[$countop][2] and $modification_type eq 'changeconfig')
377 0 0 if ($exeonfiles eq 'y')
388 0 0 if ($stepsvar > 1 and not eval $skip)
400 0 0 if ($propagate_constraints[$countop] and not $whatdone eq 'done_constraint_propagation')
406 0 0 if ($constrain_geometry[$countop] and not $whatdone eq 'done_geo_constraint')
412 0 0 if ($constrain_controls[$countop] and not $whatdone eq 'done_constrol_constraint')
418 0 0 if ($constrain_net[$countop] and not $whatdone eq 'done_net_constraint')
423 0 0 if ($constrain_obstructions[$countop] and not $whatdone eq 'done_obs_constraint')
429 0 0 if ($keep_obstructions->[$countop])
434 0 0 if ($apply_constraints[$countop])
440 0 0 if ($recalculatenet[$countop])
446 0 0 if ($recalculateish eq 'y')
452 0 0 if ($daylightcalc[0] eq 'y')
460 0 0 if ($modification_type eq 'generic_change') { }
0 0 elsif ($modification_type eq 'surface_translation_simple') { }
0 0 elsif ($modification_type eq 'surface_translation') { }
0 0 elsif ($modification_type eq 'surface_rotation') { }
0 0 elsif ($modification_type eq 'vertices_shift') { }
0 0 elsif ($modification_type eq 'vertex_translation') { }
0 0 elsif ($modification_type eq 'construction_reassignment') { }
0 0 elsif ($modification_type eq 'rotation') { }
0 0 elsif ($modification_type eq 'translation') { }
0 0 elsif ($modification_type eq 'thickness_change') { }
0 0 elsif ($modification_type eq 'rotationz') { }
0 0 elsif ($modification_type eq 'change_config') { }
0 0 elsif ($modification_type eq 'window_reshapement') { }
0 0 elsif ($modification_type eq 'obs_modification') { }
0 0 elsif ($modification_type eq 'warping') { }
0 0 elsif ($modification_type eq 'vary_controls') { }
0 0 elsif ($modification_type eq 'vary_net') { }
0 0 elsif ($modification_type eq 'change_climate') { }
0 0 elsif ($modification_type eq 'vary_controls') { }
0 0 elsif ($modification_type eq 'constrain_geometry') { }
0 0 elsif ($modification_type eq 'vary_net') { }
0 0 elsif ($modification_type eq 'constrain_obstructions') { }
0 0 elsif ($modification_type eq 'propagate_constraints') { }
638 0 0 if ($stepsvar > 1)
643 0 0 if ($yes_or_no_update_radiation eq 'y') { }
693 0 0 if ($exeonfiles eq 'y')
731 0 0 if ($stepsvar > 1)
734 0 0 if ($transform_type eq 'a') { }
0 0 elsif ($transform_type eq 'b') { }
737 0 0 if (ref $end_mov) { }
780 0 0 if ($exeonfiles eq 'y')
835 0 0 if ($exeonfiles eq 'y')
873 0 0 if (ref $swingrotate) { }
888 0 0 if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_rotate_surfs eq 'y')
918 0 0 if ($exeonfiles eq 'y')
949 0 0 unless open SOURCEFILE, $sourceaddress
957 0 0 if ($longmenu eq 'y') { }
980 0 0 if ($rowelements[0] eq '*vertex')
982 0 0 if ($countvert == 0)
988 0 0 if ($countvert > 0)
1004 0 0 if (ref $x_end) { }
1016 0 0 if (ref $y_end) { }
1028 0 0 if (ref $z_end) { }
1071 0 0 if ($exeonfiles eq 'y')
1101 0 0 if ($stepsvar > 1)
1104 0 0 if ($movementtype eq 'j') { }
0 0 elsif ($movementtype eq 'h') { }
1109 0 0 if (ref $shift_swing) { }
1154 0 0 if ($exeonfiles eq 'y')
1202 0 0 if ($exeonfiles eq 'y')
1227 0 0 if (ref $swingrotate)
1239 0 0 if ($swingrotate != 0 and $stepsvar > 1)
1274 0 0 if ($exeonfiles eq 'y')
1305 0 0 unless open INFILE, "$infile"
1306 0 0 unless open $_outfile_2, ">>$outfile2"
1317 0 0 if (ref $swingrotate) { }
1325 0 0 if (ref $swingrotate) { }
1336 0 0 if ($stepsvar > 1)
1346 0 0 if ($row[0] eq '*vertex')
1420 0 0 if ($row2[0] eq '*vertex') { }
1422 0 0 if ($countwrite == -1)
1430 0 0 if ($countwrite > -1)
1434 0 0 if ($exeonfiles eq 'y')
1436 0 0 if ($exeonfiles eq 'y')
1438 0 0 if ($exeonfiles eq 'y')
1440 0 0 if ($exeonfiles eq 'y')
1442 0 0 if ($exeonfiles eq 'y')
1444 0 0 if ($exeonfiles eq 'y')
1499 0 0 if ($exeonfiles eq 'y')
1529 0 0 if ($stepsvar > 1)
1567 0 0 if ($exeonfiles eq 'y')
1579 0 0 if ($exeonfiles eq 'y')
1588 0 0 unless open GEOFILE, "$geofile"
1596 0 0 if ($elts[0] eq '*obs')
1607 0 0 if ($stepsvar > 1)
1623 0 0 if ($modification_type eq 'a' or $modification_type eq 'b')
1626 0 0 if (ref $x_end) { }
1639 0 0 if (ref $y_end) { }
1652 0 0 if (ref $z_end) { }
1701 0 0 if ($exeonfiles eq 'y')
1712 0 0 if ($modification_type eq 'c' or $modification_type eq 'd')
1716 0 0 if (ref $x_end) { }
1760 0 0 if ($exeonfiles eq 'y')
1771 0 0 if ($modification_type eq 'g')
1778 0 0 if ($count < $stepsvar)
1808 0 0 if ($exeonfiles eq 'y')
1822 0 0 if ($modification_type eq 'h')
1827 0 0 if (ref $x_end) { }
1872 0 0 if ($exeonfiles eq 'y')
1881 0 0 if ($modification_type eq 't')
1889 0 0 if (ref $x_end) { }
1900 0 0 if (ref $y_end) { }
1911 0 0 if (ref $z_end) { }
1959 0 0 if ($exeonfiles eq 'y')
1996 0 0 if ($exeonfiles eq 'y')
2022 0 0 if ($what eq 'read')
2027 0 0 if ($what eq 'write')
2029 0 0 unless open GEOFILE, "$geofile"
2044 0 0 if ($elts[0] eq '*obs' and $elts[13] ~~ \@obsnumbers)
2050 0 0 unless open GEOFILE, ">$geofile"
2056 0 0 if ($elts[0] eq '*obs' and $elts[13] ~~ \@obsnumbers) { }
2098 0 0 if ($exeonfiles eq 'y')
2112 0 0 unless opendir $d, $dir
2113 0 0 if $_ ne '.'
2138 0 0 unless (ifempty("$to/rad/"))
2181 0 0 if (ifempty("$to/rad/"))
2214 0 0 if ($exeonfiles eq 'y')
2223 0 0 unless open RADFILE, $pathdf
2241 0 0 unless open DFFILE, ">>$dffile"
2265 0 0 if ($new_configfile ne $original_configfile)
2267 0 0 if ($exeonfiles eq 'y')
2278 0 0 unless ($sourceaddress eq '' or $targetaddress eq '')
2281 0 0 if ($sourceaddress ne $targetaddress)
2283 0 0 if ($exeonfiles eq 'y')
2312 0 0 unless open FILECONFIG, $fileconfig
2318 0 0 if ($line =~ /^\*clm/u)
2327 0 0 unless open TEMPFILECONFIG, ">$tempfileconfig"
2375 0 0 unless open SOURCEFILE, $sourceaddress
2388 0 0 if ($rowelements[0] eq '*vertex') { }
0 0 elsif ($rowelements[0] eq '*obs') { }
2390 0 0 if ($countvert == 0)
2396 0 0 if ($countvert > 0)
2434 0 0 if ($constrain)
2437 0 0 if ($y_or_n_reassign_cp == 'y')
2450 0 0 unless open INFILENET, $infilenet
2469 0 0 if ($rowelements[0] eq 'Node')
2470 0 0 if ($rowelements[0] eq 'Component')
2471 0 0 if ($mode eq 'nodemode' and $countlines > 1 and $countlines < 2 + scalar(@nodesdata))
2480 0 0 if ($nodetype eq '0') { }
0 0 elsif ($nodetype eq '3') { }
2517 0 0 if ($exeonfiles eq 'y')
2529 0 0 if ($y_or_n_reassign_cp == 'y')
2566 0 0 if ($exeonfiles eq 'y')
2581 0 0 if ($mode eq 'componentmode' and $line =~ /opening/u) { }
0 0 elsif ($mode eq 'componentmode' and $line =~ /crack /u) { }
2612 0 0 if ($exeonfiles eq 'y')
2655 0 0 if ($exeonfiles eq 'y')
2712 0 0 if (ref $swingvalue) { }
2724 0 0 unless open SOURCEFILE, $sourceaddress
2733 0 0 if ($rowelements[0] eq '*vertex')
2735 0 0 if ($countvert == 0)
2741 0 0 if ($countvert > 0)
2751 0 0 if ($longmenu eq 'y') { }
2769 0 0 if ($constrain)
2772 0 0 if (-e $configaddress)
2777 0 0 if ($constrain)
2784 0 0 if ($countvertex > 0)
2787 0 0 if ($vertexletter ~~ \@work_values)
2815 0 0 if ($exeonfiles eq 'y')
2871 0 0 unless (ref $swingvalue)
2876 0 0 if (ref $swingvalue)
2886 0 0 unless open SOURCEFILE, $sourceaddress
2897 0 0 if ($rowelements[0] eq '*vertex')
2899 0 0 if ($countvert == 0)
2905 0 0 if ($countvert > 0)
2916 0 0 if ($longmenu eq 'y') { }
2937 0 0 if (-e $configaddress)
2943 0 0 if (-e $constrain)
2950 0 0 if ($countvertex > 0)
2953 0 0 if ($vertexletter ~~ \@work_letters)
2981 0 0 if ($exeonfiles eq 'y')
3026 0 0 if (ref $swingrotate)
3037 0 0 if ($swingrotate != 0 and $stepsvar > 1 and $yes_or_no_warp eq 'y')
3067 0 0 if ($exeonfiles eq 'y')
3079 0 0 unless open SOURCEFILE, $sourcefile
3089 0 0 if ($rowelements[0] eq '*vertex')
3091 0 0 if ($countvert == 0)
3097 0 0 if ($countvert > 0)
3108 0 0 if ($longmenu eq 'y') { }
3127 0 0 if (-e $configfile)
3132 0 0 if (-e $constrain)
3142 0 0 if ($countthis < $number_of_moves)
3176 0 0 if ($exeonfiles eq 'y')
3216 0 0 unless ($askop)
3226 0 0 if (ref $_) { }
3243 0 0 if ($longmenu eq 'y') { }
3261 0 0 unless ($to_do eq 'justwrite')
3268 0 0 unless ($to_do eq 'justread')
3280 0 0 unless open SOURCEFILE, $sourceaddress
3291 0 0 if ($rowelements[0] eq '*vertex')
3327 0 0 if (-e $configaddress)
3332 0 0 if (-e $constrain)
3354 0 0 if (@work_letters eq '' or $vertexletter ~~ \@work_letters)
3382 0 0 if ($exeonfiles eq 'y')
3452 0 0 if ($countstep == 1)
3472 1 0 if ($stepsvar == 0)
3473 0 1 if ($stepsvar > 1)
3500 0 0 if ($new_loop_letter eq $loop_letter and $new_loopcontrol_letter eq $loopcontrol_letter)
3568 0 0 if ($swing_flow_onoff eq 'ON') { }
0 0 elsif ($swing_flow_onoff eq 'OFF') { }
3584 0 0 if ($new_flow_letter eq $flow_letter and $new_flowcontrol_letter eq $flowcontrol_letter)
3589 0 0 if ($flow_onoff__ eq 'ON') { }
0 0 elsif ($flow_onoff__ eq 'OFF') { }
3664 0 0 if (@sentletters) { }
3671 0 0 if (@sentperiod_letters) { }
3696 0 0 unless ($to_do eq 'justwrite')
3698 0 0 if ($countstep == 1)
3708 0 0 unless ($to_do eq 'justread')
3728 0 0 unless open SOURCEFILE, $sourceaddress
3740 0 0 if ($line =~ /Control function/u)
3747 0 0 if ($line =~ /ctl type, law/u)
3756 0 0 if ($semaphore_loop eq 'yes' and $semaphore_loopcontrol eq 'yes' and $line =~ /No. of data items/u)
3761 0 0 if ($semaphore_loop eq 'yes' and $semaphore_loopcontrol eq 'yes' and $countlines == $doline)
3780 0 0 if ($line =~ /Control mass/u)
3787 0 0 if ($line =~ /ctl type \(/u)
3796 0 0 if ($semaphore_flow eq 'yes' and $semaphore_flowcontrol eq 'yes' and $line =~ /No. of data items/u)
3801 0 0 if ($semaphore_flow eq 'yes' and $semaphore_flowcontrol eq 'yes' and $countlines == $doline)
3860 0 0 if (-e $configaddress)
3869 0 0 if (-e $constrain)
3938 0 0 unless (\@{$new_loop_ctls[$countloop];} ~~ \@{$temploopcontrol[$countloop];})
3978 0 0 if ($exeonfiles eq 'y')
4007 0 0 unless (\@{$new_flowcontrols[$countflow];} ~~ \@{$tempflowcontrol[$countflow];})
4030 0 0 if ($exeonfiles eq 'y')
4075 0 0 unless ($to_do eq 'justwrite')
4082 0 0 unless ($to_do eq 'justread')
4101 0 0 unless open SOURCEFILE, $sourceaddress
4109 0 0 if ($line =~ /\*obs/u)
4111 0 0 unless ($line =~ /\*obs =/u)
4118 0 0 if (@sentobs_letters) { }
4124 0 0 if ($count > 21) { }
4146 0 0 if ($line =~ /\*obs/u)
4148 0 0 unless ($line =~ /\*obs =/u)
4206 0 0 if (-e $configaddress)
4212 0 0 if (-e $constrain)
4239 0 0 if (@work_letters eq '' or $obs_letter ~~ \@work_letters)
4254 0 0 unless (\@{$obs[$countobs];} ~~ \@{$tempobs[$countobs];})
4292 0 0 if ($exeonfiles eq 'y')
4301 0 0 if ($obs_letter ~~ \@work_letters)
4303 0 0 if ($actonmaterials eq 'y')
4329 0 0 if ($exeonfiles eq 'y')
4386 0 0 if ($countstep == 1)
4404 0 0 if ($stepsvar == 0)
4405 0 0 if ($stepsvar > 1)
4424 0 0 if ($new_node_letter eq $node_letter)
4437 0 0 if ($swing_height == 0)
4443 0 0 if ($swing_data_2 == 0)
4449 0 0 if ($swing_data_1 == 0)
4472 0 0 if ($new_component_letter eq $component_letter)
4488 0 0 if ($swing_data_1 == 0)
4493 0 0 if ($swing_data_2 == 0)
4498 0 0 if ($swing_data_3 == 0)
4503 0 0 if ($swing_data_4 == 0)
4532 0 0 unless open SOURCEFILE, $sourceaddress
4545 0 0 if ($line =~ /Fld. Type/u)
4549 0 0 if ($semaphore_node eq 'yes')
4553 0 0 if ($line =~ /Type C\+ L\+/u)
4561 0 0 if ($semaphore_node eq 'yes' and $semaphore_component eq 'no' and $countnode >= 0)
4574 0 0 if ($semaphore_component eq 'yes')
4579 0 0 if ($line =~ /\+Node/u)
4586 0 0 if ($semaphore_component eq 'yes' and $semaphore_connection eq 'no' and $countcomponent > 0)
4590 0 0 if ($countcomponent % 2 == 1) { }
4595 0 0 if ($type eq '110')
4596 0 0 if ($type eq '120')
4597 0 0 if ($type eq '130')
4637 0 0 unless (\@{$new_nodes[$countnode];} ~~ \@{$tempnodes[$countnode];})
4639 0 0 if ($new_type eq 'a')
4669 0 0 if ($exeonfiles eq 'y')
4676 0 0 if ($new_type eq 'e')
4706 0 0 if ($exeonfiles eq 'y')
4738 0 0 unless (\@{$new_components[$countcomponents];} ~~ \@{$tempcomponents[$countcomponents];})
4741 0 0 if ($new_type eq 'k')
4766 0 0 if ($exeonfiles eq 'y')
4773 0 0 if ($new_type eq 'l')
4798 0 0 if ($exeonfiles eq 'y')
4805 0 0 if ($new_type eq 'm')
4830 0 0 if ($exeonfiles eq 'y')
4889 0 0 unless ($to_do eq 'justwrite')
4892 0 0 if ($countstep == 1)
4900 0 0 unless ($to_do eq 'justread')
4919 0 0 if (-e $configaddress)
4966 0 0 if (-e $constrain)
5077 0 0 if ($count > 0)
5085 0 0 if ($what_to_do eq 'read_geo') { }
0 0 elsif ($what_to_do eq 'read_obs') { }
0 0 elsif ($what_to_do eq 'read_ctl') { }
0 0 elsif ($what_to_do eq 'read_net') { }
0 0 elsif ($what_to_do eq 'write_geo') { }
0 0 elsif ($what_to_do eq 'write_obs') { }
0 0 elsif ($what_to_do eq 'write_ctl') { }
0 0 elsif ($what_to_do eq 'write_net') { }