Branch Coverage

blib/lib/Lab/XPRESS/Data/XPRESS_plotter.pm
Criterion Covered Total %
branch 0 218 0.0


line true false branch
16 0 0 if (ref @_[0] eq 'HASH') { }
33 0 0 if ($self->{'plot'}{'refresh'} eq "block")
46 0 0 if (ref $self->{'plot'}{'y-axis'} ne "ARRAY")
51 0 0 if (ref $self->{'plot'}{'y2-axis'} ne "ARRAY")
56 0 0 if (exists $self->{'COLUMN_NAMES'}{$self->{'plot'}{'x-axis'}})
63 0 0 if (exists $self->{'COLUMN_NAMES'}{$axis}) { }
0 0 elsif ($axis <= $self->{'NUMBER_OF_COLUMNS'}) { }
77 0 0 if (exists $self->{'COLUMN_NAMES'}{$axis}) { }
0 0 elsif ($axis <= $self->{'NUMBER_OF_COLUMNS'}) { }
86 0 0 if (exists $self->{'COLUMN_NAMES'}{$self->{'plot'}{'z-axis'}})
91 0 0 if (exists $self->{'COLUMN_NAMES'}{$self->{'plot'}{'cb-axis'}})
101 0 0 if ($^O =~ /MSWin32/u) { }
107 0 0 if (open my $GP, "| $gpname")
155 0 0 unless (defined $y)
164 0 0 unless (defined $y)
175 0 0 unless (defined $self->{'plot'}{'LineIncrement'})
180 0 0 unless (defined $self->{'plot'}{'BlockIncrement'})
185 0 0 unless (defined $self->{'plot'}{'LineFrom'})
190 0 0 unless (defined $self->{'plot'}{'BlockFrom'})
195 0 0 unless (defined $self->{'plot'}{'LineTo'})
200 0 0 unless (defined $self->{'plot'}{'BlockTo'})
212 0 0 if (defined $plot{'title'})
218 0 0 if (defined $plot{'y2-axis'}[0])
223 0 0 if (defined $plot{'x-min'} or defined $plot{'x-max'})
229 0 0 if (defined $plot{'y-min'} or defined $plot{'y-max'})
235 0 0 if (defined $plot{'z-min'} or defined $plot{'z-max'})
241 0 0 if (defined $plot{'cb-min'} or defined $plot{'cb-max'})
247 0 0 if (defined $plot{'x-format'})
251 0 0 if (defined $plot{'y-format'})
255 0 0 if (defined $plot{'y2-format'})
259 0 0 if (defined $plot{'z-format'})
263 0 0 if (defined $plot{'cb-format'})
267 0 0 if (defined $plot{'x-label'}) { }
0 0 elsif (defined $plot{'x-axis'}) { }
275 0 0 if (defined $plot{'y-label'}) { }
0 0 elsif (defined $plot{'y-axis'}) { }
280 0 0 if ($i ne "")
283 0 0 if (defined $plot{'y2-label'}) { }
0 0 elsif (defined $plot{'y2-axis'}) { }
288 0 0 if ($i ne "")
291 0 0 if (defined $plot{'z-label'}) { }
0 0 elsif (defined $plot{'z-axis'}) { }
299 0 0 if (defined $plot{'cb-label'}) { }
0 0 elsif (defined $plot{'cb-axis'}) { }
307 0 0 if (defined $plot{'grid'})
311 0 0 unless (defined $plot{'x-axis'})
315 0 0 unless (defined $plot{'y-axis'})
319 0 0 if (not defined $plot{'z-axis'} || defined $plot{'cb-axis'} and $plot{'type'} eq "pm3d")
342 0 0 if (defined $self->{'plot'}{'z-axis'})
346 0 0 if (defined $self->{'plot'}{'cb-axis'})
370 0 0 if ($self->{'plot'}{'type'} eq 'pm3d' and $block_num <= 1) { }
0 0 elsif ($self->{'plot'}{'type'} eq 'pm3d' and $block_num > 1) { }
389 0 0 unless (defined $y)
393 0 0 unless (defined $self->{'plot'}{'type'})
397 0 0 if ($self->{'plot'}{'type'} =~ /\b(line|lines|LINE|LINES|L|l|ln|LN)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(linetrace|LINETRACE|trace|TRACE)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(single|SINGLE)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(rainbow|RAINBOW)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(points|point|POINTS|POINT|P|p|pt|PT)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(man|MAN|empty|EMPTY)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} eq 'PlotterGUI') { }
399 0 0 if ($block_num > 1) { }
418 0 0 $block_num - 2 < 0 ? :
420 0 0 $block_num - 1 < 0 ? :
428 0 0 if ($block_num > 1) { }
441 0 0 if ($block_num > 1) { }
456 0 0 if ($block_num > 1) { }
480 0 0 if (@{$$self{"plot"}{"y_LineStyle"};}[$i] =~ /lines/u)
484 0 0 if (@{$$self{"plot"}{"y1_style"};}[$i] =~ /points/u)
499 0 0 unless (defined $y)
502 0 0 if ($self->{'plot'}{'type'} =~ /\b(line|lines|LINE|LINES|L|l|ln|LN)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(linetrace|LINETRACE|trace|TRACE)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(single|SINGLE)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(rainbow|RAINBOW)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(points|point|POINTS|POINT|P|p|pt|PT)\b/u) { }
0 0 elsif ($self->{'plot'}{'type'} =~ /\b(man|MAN|empty|EMPTY)\b/u) { }
504 0 0 if ($block_num > 1) { }
524 0 0 $block_num - 2 < 0 ? :
526 0 0 $block_num - 1 < 0 ? :
534 0 0 if ($block_num > 1) { }
548 0 0 if ($block_num > 1) { }
564 0 0 if ($block_num > 1) { }
622 0 0 if (ref $self->{'plot'}{'x-axis'} eq "ARRAY")
625 0 0 if (ref $self->{'plot'}{'y-axis'} eq "ARRAY")
628 0 0 if (ref $self->{'plot'}{'z-axis'} eq "ARRAY")
631 0 0 if (ref $self->{'plot'}{'cb-axis'} eq "ARRAY")
637 0 0 if (defined $self->{'plot'}{'z-axis'})
640 0 0 if (defined $self->{'plot'}{'cb-axis'})
649 0 0 if (defined $self->{'plot'}{'z-axis'}) { }
0 0 elsif (defined $self->{'plot'}{'cb-axis'}) { }
669 0 0 unless defined $self->{'gpipe'}
678 0 0 if ($self->{'PAUSE'} > 0) { }
758 0 0 if ($n >= 4)
802 0 0 if ($n >= 4)
878 0 0 if ($n >= 4)
922 0 0 if ($n >= 4)
998 0 0 if ($n >= 4)
1042 0 0 if ($n >= 4)
1118 0 0 if ($n >= 4)
1162 0 0 if ($n >= 4)
1192 0 0 if ($self->{'FILENAME'} =~ m[(.+)(/|//|\\|\\\\)(.+)\b]u)
1196 0 0 if ($filename =~ /(.+)(\..+)\b/u)
1204 0 0 unless (-d $directory)
1218 0 0 if ($file =~ /($temp_filename)_(\d+)(\.*)\b/u)
1219 0 0 if ($2 > $max_index)
1258 0 0 unless (defined $type)
1262 0 0 unless (defined $filename)
1266 0 0 if ($type eq 'eps') { }
0 0 elsif ($type eq 'png') { }