line |
true |
false |
branch |
44
|
1 |
0 |
if defined $Data |
53
|
2 |
0 |
if defined $Graphic |
62
|
1 |
0 |
if defined $LabelandColor |
73
|
1 |
0 |
if (defined $self->getSubtype) |
74
|
0 |
1 |
if ($graphic eq '2Dpie') { } |
|
0 |
1 |
elsif ($graphic eq '2Dbar') { } |
|
0 |
1 |
elsif ($graphic eq '2Dcolumn') { } |
75
|
0 |
0 |
if (defined $subtype and $subtype == 1 or not defined $subtype) { } |
|
0 |
0 |
elsif ($subtype == 2) { } |
|
0 |
0 |
elsif ($subtype == 3) { } |
|
0 |
0 |
elsif ($subtype == 31) { } |
|
0 |
0 |
elsif ($subtype == 4) { } |
|
0 |
0 |
elsif ($subtype == 5) { } |
92
|
0 |
0 |
if (defined $subtype and $subtype == 1 or not defined $subtype) { } |
98
|
0 |
0 |
if (defined $subtype and $subtype == 1 or not defined $subtype) { } |
114
|
1 |
0 |
if defined $Subtype |
123
|
1 |
0 |
if defined $hscale |
132
|
1 |
0 |
if defined $vscale |
141
|
0 |
0 |
if defined $initialdegree |
150
|
0 |
0 |
if defined $gexport |
159
|
0 |
0 |
if defined $legend |
168
|
1 |
0 |
if defined $columnwidth |
177
|
1 |
0 |
if defined $format |
186
|
1 |
0 |
if defined $headertype |
195
|
1 |
0 |
if defined $axistype |
204
|
1 |
0 |
if defined $valuetype |
213
|
1 |
0 |
if defined $valuetype |
222
|
1 |
0 |
if defined $backgroundcolor |
231
|
1 |
0 |
if defined $headercolor |
240
|
0 |
0 |
if defined $explodeoffset |
253
|
0 |
0 |
if (defined $self->getSubtype) { } |
254
|
0 |
0 |
if (defined $self->getHscale) { } |
255
|
0 |
0 |
if (defined $self->getVscale) { } |
256
|
0 |
0 |
if (defined $self->getGexport) { } |
257
|
0 |
0 |
if (defined $self->getLegend) { } |
258
|
0 |
0 |
if (defined $self->getColumnwidth) { } |
259
|
0 |
0 |
if (defined $self->getFormat) { } |
260
|
0 |
0 |
if (defined $self->getHeadertype) { } |
261
|
0 |
0 |
if (defined $self->getAxistype) { } |
262
|
0 |
0 |
if (defined $self->getValuetype) { } |
263
|
0 |
0 |
if (defined $self->getBackgroundcolor) { } |
264
|
0 |
0 |
if (defined $self->getHeadercolor) { } |
265
|
0 |
0 |
if (defined $self->getExplodeoffset) { } |
266
|
0 |
0 |
if (defined $self->getInitialdegree) { } |
270
|
0 |
1 |
if ($self->{'Graphic'} eq '2Dpie') { } |
|
0 |
1 |
elsif ($self->{'Graphic'} eq '2Dcolumn') { } |
|
0 |
1 |
elsif ($self->{'Graphic'} eq '2Dbar') { } |
273
|
0 |
0 |
if (defined $self->{'Data'} and defined $self->{'LabelandColor'}) { } |
274
|
0 |
0 |
unless (defined $self->{'Hscale'}) |
275
|
0 |
0 |
unless (defined $self->{'Vscale'}) |
276
|
0 |
0 |
unless (defined $self->{'Gexport'}) |
277
|
0 |
0 |
unless (defined $self->{'Valuetype'}) |
278
|
0 |
0 |
unless (defined $self->{'Explodeoffset'}) |
279
|
0 |
0 |
unless (defined $self->{'Initialdegree'}) |
280
|
0 |
0 |
if (defined $self->{'Subtype'} and $self->{'Subtype'} == 1 or not defined $self->{'Subtype'}) { } |
|
0 |
0 |
elsif (defined $self->{'Subtype'} and $self->{'Subtype'} == 2) { } |
|
0 |
0 |
elsif (defined $self->{'Subtype'} and $self->{'Subtype'} == 3 || $self->{'Subtype'} == 31 || $self->{'Subtype'} == 4) { } |
|
0 |
0 |
elsif (defined $self->{'Subtype'} and $self->{'Subtype'} == 5) { } |
285
|
0 |
0 |
unless (defined $self->{'Legend'}) |
287
|
0 |
0 |
if ($leg eq 'right' or $leg eq 'left' or $leg eq 'bottom') { } |
288
|
0 |
0 |
if ($self->{'Subtype'} == 3) { } |
|
0 |
0 |
elsif ($self->{'Subtype'} == 31) { } |
|
0 |
0 |
elsif ($self->{'Subtype'} == 4) { } |
312
|
0 |
0 |
unless open LC, $self->{'LabelandColor'} |
317
|
0 |
0 |
if ($lc[5] != $currentsection) |
319
|
0 |
0 |
if (length $sectionends > 0) |
326
|
0 |
0 |
unless open TRANS, "<$transdata" |
327
|
0 |
0 |
unless open TRANSPLUS, ">$transdata1" |
341
|
0 |
0 |
if ($ii == $jj) |
342
|
0 |
0 |
if (length $sectionmiddle > 0) |
347
|
0 |
0 |
if ($thissection == $salength - 1) |
364
|
0 |
0 |
if (defined $self->{'Data'} and defined $self->{'LabelandColor'}) { } |
365
|
0 |
0 |
unless (defined $self->{'Hscale'}) |
366
|
0 |
0 |
unless (defined $self->{'Vscale'}) |
367
|
0 |
0 |
unless (defined $self->{'Gexport'}) |
368
|
0 |
0 |
unless (defined $self->{'Columnwidth'}) |
369
|
0 |
0 |
unless (defined $self->{'Format'}) |
370
|
0 |
0 |
unless (defined $self->{'Headertype'}) |
371
|
0 |
0 |
unless (defined $self->{'Valuetype'}) |
372
|
0 |
0 |
unless (defined $self->{'Axistype'}) |
373
|
0 |
0 |
unless (defined $self->{'Backgroundcolor'}) |
374
|
0 |
0 |
unless (defined $self->{'Headercolor'}) |
375
|
0 |
0 |
if (defined $self->{'Subtype'} and $self->{'Subtype'} == 1 or not defined $self->{'Subtype'}) |
382
|
0 |
0 |
if (defined $self->{'Data'} and defined $self->{'LabelandColor'}) { } |
383
|
0 |
0 |
unless (defined $self->{'Hscale'}) |
384
|
0 |
0 |
unless (defined $self->{'Vscale'}) |
385
|
0 |
0 |
unless (defined $self->{'Gexport'}) |
386
|
0 |
0 |
unless (defined $self->{'Columnwidth'}) |
387
|
0 |
0 |
unless (defined $self->{'Format'}) |
388
|
0 |
0 |
unless (defined $self->{'Headertype'}) |
389
|
0 |
0 |
unless (defined $self->{'Valuetype'}) |
390
|
0 |
0 |
unless (defined $self->{'Valuecolor'}) |
391
|
0 |
0 |
unless (defined $self->{'Axistype'}) |
392
|
0 |
0 |
unless (defined $self->{'Backgroundcolor'}) |
393
|
0 |
0 |
unless (defined $self->{'Headercolor'}) |
394
|
0 |
0 |
if (defined $self->{'Subtype'} and $self->{'Subtype'} == 1 or not defined $self->{'Subtype'}) |
408
|
0 |
0 |
unless open DATA, './' . $data |
409
|
0 |
0 |
unless open TRANS, ">$trans" |
410
|
0 |
0 |
unless open DATA1, '+>data1' |
424
|
0 |
0 |
if ($drow1 eq '') { } |
439
|
0 |
0 |
if ($sum[$b] > $lvalue) |
450
|
0 |
0 |
if ($c != $largest) |
452
|
0 |
0 |
if ($d[$c] > 0) |
453
|
0 |
0 |
if ($d[$c] < 3.6) |
468
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if ($labelx > $labelmax) |
|
0 |
0 |
unless open PIECHARTDATA, "<$data" |
|
0 |
0 |
unless open PIE, ">$filewithdir" |
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if (eval $thisslice > 0) |
|
0 |
0 |
if (length $gexport > 0) |
472
|
0 |
0 |
unless open PIECHARTDATA, "<$data" |
|
0 |
0 |
unless open PIE, ">$filewithdir" |
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if (100 * eval($thisslice) / 36 % 10 >= 5) |
|
0 |
0 |
if ($percent1num == 0) |
|
0 |
0 |
if ($wholepercent == 101) |
|
0 |
0 |
if (eval $thisslice > 0) |
|
0 |
0 |
if (length $gexport > 0) |
475
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if ($labelx > $labelmax) |
|
0 |
0 |
if ($legend eq 'right') { } |
|
0 |
0 |
elsif ($legend eq 'left') { } |
|
0 |
0 |
elsif ($legend eq 'bottom') { } |
|
0 |
0 |
unless open PIECHARTDATA, "<$data" |
|
0 |
0 |
unless open PIE, ">$filewithdir" |
|
0 |
0 |
if ($legend eq 'right' or $legend eq 'left') { } |
|
0 |
0 |
elsif ($legend eq 'bottom') { } |
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if ($legend eq 'bottom') { } |
|
0 |
0 |
elsif ($legend eq 'right') { } |
|
0 |
0 |
elsif ($legend eq 'left') { } |
|
0 |
0 |
if (eval $thisslice > 0) |
|
0 |
0 |
if (length $gexport > 0) |
478
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if ($labelx > $labelmax) |
|
0 |
0 |
if ($legend eq 'right') { } |
|
0 |
0 |
elsif ($legend eq 'left') { } |
|
0 |
0 |
elsif ($legend eq 'bottom') { } |
|
0 |
0 |
unless open PIECHARTDATA, "<$data" |
|
0 |
0 |
unless open PIE, ">$filewithdir" |
|
0 |
0 |
if ($legend eq 'right' or $legend eq 'left') { } |
|
0 |
0 |
elsif ($legend eq 'bottom') { } |
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if (100 * eval($thisslice) / 36 % 10 >= 5) |
|
0 |
0 |
if ($percent1num == 0) |
|
0 |
0 |
if ($wholepercent == 101) |
|
0 |
0 |
if ($legend eq 'bottom') { } |
|
0 |
0 |
elsif ($legend eq 'right') { } |
|
0 |
0 |
elsif ($legend eq 'left') { } |
|
0 |
0 |
if (eval $thisslice > 0) |
|
0 |
0 |
if (length $gexport > 0) |
481
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if ($labelx > $labelmax) |
|
0 |
0 |
if ($legend eq 'right') { } |
|
0 |
0 |
elsif ($legend eq 'left') { } |
|
0 |
0 |
elsif ($legend eq 'bottom') { } |
|
0 |
0 |
unless open PIECHARTDATA, "<$data" |
|
0 |
0 |
unless open PIE, ">$filewithdir" |
|
0 |
0 |
if ($legend eq 'right' or $legend eq 'left') { } |
|
0 |
0 |
elsif ($legend eq 'bottom') { } |
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if (100 * eval($thisslice) / 36 % 10 >= 5) |
|
0 |
0 |
if ($percent1num == 0) |
|
0 |
0 |
if ($wholepercent == 101) |
|
0 |
0 |
if ($legend eq 'bottom') { } |
|
0 |
0 |
elsif ($legend eq 'right') { } |
|
0 |
0 |
elsif ($legend eq 'left') { } |
|
0 |
0 |
if (eval $thisslice > 0) |
|
0 |
0 |
if (length $gexport > 0) |
484
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if ($labelx > $labelmax) |
|
0 |
0 |
unless open PIECHARTDATA, "<$data" |
|
0 |
0 |
unless open PIE, ">$filewithdir" |
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if ($slicecounter < $sectionarray[$sectioncnt]) { } |
|
0 |
0 |
if (eval $thisslice > 0) |
|
0 |
0 |
if (length $gexport > 0) |
488
|
0 |
0 |
unless open COLCHARTDATA, "<$data" |
|
0 |
0 |
unless open COL, ">$filewithdir" |
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if ($cols[$i] > $maxval) |
|
0 |
0 |
if ($maxval < 10) { } |
|
0 |
0 |
elsif ($maxval < 100) { } |
|
0 |
0 |
elsif ($maxval < 1000) { } |
|
0 |
0 |
elsif ($maxval < 10000) { } |
|
0 |
0 |
elsif ($maxval < 100000) { } |
|
0 |
0 |
if ($maxval % $roundto == 0) { } |
|
0 |
0 |
if (length $label > 15) { } |
|
0 |
0 |
if (length $gexport > 0) |
491
|
0 |
0 |
unless open BARCHARTDATA, "<$data" |
|
0 |
0 |
if ($cols[$i] > $maxval) |
|
0 |
0 |
if ($maxval < 10) { } |
|
0 |
0 |
elsif ($maxval < 100) { } |
|
0 |
0 |
elsif ($maxval < 1000) { } |
|
0 |
0 |
elsif ($maxval < 10000) { } |
|
0 |
0 |
elsif ($maxval < 100000) { } |
|
0 |
0 |
if ($maxval % $roundto == 0) { } |
|
0 |
0 |
unless open BAR, ">$filewithdir" |
|
0 |
0 |
unless open LABELANDCOLOR, "<$labelandcolor" |
|
0 |
0 |
if (length $label > 15) { } |
|
0 |
0 |
if (length $gexport > 0) |
493
|
0 |
0 |
if ($number < 1000) { } |
|
0 |
0 |
if ($number < 10000) { } |
|
0 |
0 |
if ($number < 100000) { } |
|
0 |
0 |
if ($number < 1000000) { } |
|
0 |
0 |
if ($format eq 'money') |
|
0 |
0 |
if ($format eq 'money') { } |
|
0 |
0 |
elsif (substr($format, 0, 1) eq 'd') { } |
|
0 |
0 |
if ($scale == 1) { } |
505
|
0 |
0 |
if $constname eq 'constant' |
507
|
0 |
0 |
if ($error) |