| line |
true |
false |
branch |
|
283
|
0 |
0 |
if (ref $args ne "HASH") |
|
292
|
0 |
0 |
if (scalar @undef_args > 0) |
|
310
|
0 |
0 |
if (ref $args ne "HASH") |
|
319
|
0 |
0 |
if (scalar @undef_args > 0) |
|
328
|
0 |
0 |
if (scalar @bad_args > 0) |
|
342
|
0 |
0 |
if ($args->{'args'}{$item} =~ /^([^\"\',]+)$/) |
|
351
|
0 |
0 |
if ($ref ne "ARRAY" and $ref ne "") |
|
354
|
0 |
0 |
if ($ref eq "") |
|
355
|
0 |
0 |
if ($method eq 'show') { } |
|
368
|
0 |
0 |
unless defined $args->{'ax'} |
|
371
|
0 |
0 |
if (defined $args->{'args'}{'plot.type'} and $args->{'args'}{'plot.type'} eq "pie") |
|
375
|
0 |
0 |
if $pie_plot == 1 |
|
386
|
0 |
0 |
if (ref $args ne "HASH") |
|
395
|
0 |
0 |
if (scalar @undef_args > 0) |
|
406
|
0 |
0 |
if (scalar @bad_opt > 0) |
|
415
|
0 |
0 |
if (scalar keys %ref_counts > 1) |
|
421
|
0 |
0 |
if (defined $ref_counts{''}) { } |
|
|
0 |
0 |
elsif (defined $ref_counts{'ARRAY'}) { } |
|
|
0 |
0 |
elsif (defined $ref_counts{'HASH'}) { } |
|
446
|
0 |
0 |
if ($plot_type eq "grouped" and defined $plot->{'width'} and $plot->{'stacked'} == 0) |
|
454
|
0 |
0 |
if (defined $plot->{'key.order'}) { } |
|
460
|
0 |
0 |
if ($plot->{'log'} or $plot->{'logscale'}) |
|
464
|
0 |
0 |
if $c eq "color" and $plot_type eq "grouped" |
|
466
|
0 |
0 |
if ($ref eq '') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'HASH') { } |
|
478
|
0 |
0 |
if ($ref eq '') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
489
|
0 |
0 |
if ($ref eq '') { } |
|
|
0 |
0 |
elsif ($ref eq 'HASH') { } |
|
494
|
0 |
0 |
if (scalar @{$plot->{$err}{$i};} != 2) |
|
510
|
0 |
0 |
if ($plot_type eq 'simple') { } |
|
|
0 |
0 |
elsif ($plot_type eq 'grouped') { } |
|
517
|
0 |
0 |
if (defined $plot->{'color'} and ref $plot->{'color'} eq "HASH") |
|
519
|
0 |
0 |
if (scalar @undef_args > 0) |
|
535
|
0 |
0 |
if ($plot->{'stacked'} == 0) |
|
541
|
0 |
0 |
if $plot->{'plot.type'} eq "bar" |
|
555
|
0 |
0 |
if ($plot->{'stacked'} > 0) |
|
563
|
0 |
0 |
if $plot->{'stacked'} > 0 |
|
565
|
0 |
0 |
if $plot->{'stacked'} <= 0 |
|
570
|
0 |
0 |
if $plot->{'plot.type'} eq "bar" |
|
585
|
0 |
0 |
if (ref $args ne "HASH") |
|
593
|
0 |
0 |
if (scalar @undef_args > 0) |
|
605
|
0 |
0 |
if (scalar @bad_opt > 0) |
|
610
|
0 |
0 |
unless ($plot->{'orientation'} =~ /^(?:horizontal|vertical)$/) |
|
615
|
0 |
0 |
if (defined $plot->{'key.order'}) { } |
|
631
|
0 |
0 |
if ($axis =~ /^([^xy])$/) |
|
644
|
0 |
0 |
if (defined $plot->{'colors'}) { } |
|
648
|
0 |
0 |
if (scalar @bad_keys > 0) |
|
663
|
0 |
0 |
if (defined $plot->{'color'}) |
|
672
|
0 |
0 |
if ($plot->{'orientation'} eq 'vertical') { } |
|
686
|
0 |
0 |
if (ref $args ne "HASH") |
|
694
|
0 |
0 |
if (scalar @undef_args > 0) |
|
702
|
0 |
0 |
if (scalar @bad_args > 0) |
|
713
|
0 |
0 |
if (defined $plot->{'col.labels'}) { } |
|
721
|
0 |
0 |
if $plot->{'mirror'} > 0 |
|
724
|
0 |
0 |
if (defined $plot->{'row.labels'}) { } |
|
748
|
0 |
0 |
if $plot->{'cb_logscale'} > 0 |
|
756
|
0 |
0 |
unless (&looks_like_number($plot->{$opt})) |
|
762
|
0 |
0 |
if ($plot->{'cb_logscale'}) { } |
|
768
|
0 |
0 |
if (defined $plot->{'cblabel'}) { } |
|
771
|
0 |
0 |
if $plot->{'colorbar.on'} |
|
779
|
0 |
0 |
if ($plot->{'show.numbers'}) { } |
|
788
|
0 |
0 |
if ($axis =~ /^([^xy])$/) |
|
806
|
0 |
0 |
if (ref $args ne "HASH") |
|
814
|
0 |
0 |
if (scalar @undef_args > 0) |
|
827
|
0 |
0 |
if (scalar @undef_args > 0) |
|
837
|
0 |
0 |
if ($plot->{'xbins'} == 0 or $plot->{'ybins'} == 0) |
|
842
|
0 |
0 |
if (defined $plot->{'key.order'}) { } |
|
847
|
0 |
0 |
if (scalar @keys != 2) |
|
852
|
0 |
0 |
if (scalar @{$plot->{'data'}{$keys[1]};} != $n_points) |
|
865
|
0 |
0 |
if ($plot->{'cb_logscale'}) |
|
876
|
0 |
0 |
if ($plot->{$opt} ne "log" and $plot->{$opt} ne "linear") |
|
883
|
0 |
0 |
if (defined $plot->{'marginals'} and $plot->{'marginals'} > 0) |
|
899
|
0 |
0 |
unless &looks_like_number($plot->{$o}) |
|
905
|
0 |
0 |
if ($plot->{'colorbar.on'} and defined $plot->{'shared.colorbar'}) |
|
909
|
0 |
0 |
if (defined $plot->{'cblabel'}) { } |
|
925
|
0 |
0 |
unless defined $format |
|
935
|
0 |
0 |
if (ref $args ne "HASH") |
|
945
|
0 |
0 |
if (scalar @undef_args > 0) |
|
955
|
0 |
0 |
if (scalar @undef_opt > 0) |
|
962
|
0 |
0 |
if ref $plot->{$arg} eq "HASH" |
|
964
|
0 |
0 |
if ($ref eq '') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
965
|
0 |
0 |
if ($plot->{$arg} =~ /^[A-Za-z]+$/) { } |
|
978
|
0 |
0 |
if ($axis =~ /^([^xy])$/) |
|
989
|
0 |
0 |
unless defined $plot->{$arg}{$set} |
|
990
|
0 |
0 |
if ($plot->{$arg}{$set} =~ /^[A-Za-z]+$/) { } |
|
1009
|
0 |
0 |
if (ref $args ne "HASH") |
|
1017
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1027
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1036
|
0 |
0 |
if ($plot->{'xbins'} == 0 or $plot->{'ybins'} == 0) |
|
1041
|
0 |
0 |
if (defined $plot->{'key.order'}) { } |
|
1046
|
0 |
0 |
if (scalar @keys != 2) |
|
1051
|
0 |
0 |
if (scalar @{$plot->{'data'}{$keys[1]};} != $n_points) |
|
1058
|
0 |
0 |
if ($plot->{'xlabel'}) |
|
1065
|
0 |
0 |
if ($plot->{'cb_logscale'}) |
|
1070
|
0 |
0 |
unless (&looks_like_number($plot->{$arg})) |
|
1088
|
0 |
0 |
if ($bad_pts > 0) |
|
1097
|
0 |
0 |
if ($bad_pts > 0) |
|
1116
|
0 |
0 |
if ($plot->{'logscale'}) { } |
|
1119
|
0 |
0 |
if ($axis =~ /^([^xy])$/) |
|
1144
|
0 |
0 |
if $plot->{'show.colorbar'} == 0 |
|
1152
|
0 |
0 |
unless &looks_like_number($plot->{$o}) |
|
1158
|
0 |
0 |
if ($plot->{'colorbar.on'} and defined $plot->{'shared.colorbar'}) |
|
1163
|
0 |
0 |
if (defined $plot->{'cblabel'}) { } |
|
1174
|
0 |
0 |
if (ref $args ne "HASH") |
|
1184
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1194
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1200
|
0 |
0 |
if ($data_ref ne "ARRAY") |
|
1206
|
0 |
0 |
if (grep {not &looks_like_number($_);} @{$row;}) |
|
1211
|
0 |
0 |
if ($non_numeric_data and not defined $plot->{'stringmap'}) |
|
1221
|
0 |
0 |
if ($non_numeric_data) |
|
1228
|
0 |
0 |
if ($non_numeric_data) |
|
1234
|
0 |
0 |
if defined $plot->{'cmap'} |
|
1246
|
0 |
0 |
if $non_numeric_data |
|
1261
|
0 |
0 |
if ($non_numeric_data) |
|
1270
|
0 |
0 |
unless &looks_like_number($plot->{$o}) |
|
1276
|
0 |
0 |
if ($plot->{'colorbar.on'} and defined $plot->{'shared.colorbar'}) |
|
1280
|
0 |
0 |
if $plot->{'colorbar.on'} |
|
1281
|
0 |
0 |
if ($non_numeric_data and $plot->{'colorbar.on'}) |
|
1290
|
0 |
0 |
if (ref $args ne "HASH") |
|
1300
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1310
|
0 |
0 |
if (scalar @undef_opt > 0) |
|
1316
|
0 |
0 |
if (defined $plot->{'key.order'}) { } |
|
1323
|
0 |
0 |
if ($plot->{'autopct'} ne "") |
|
1344
|
0 |
0 |
if (ref $args ne "HASH") |
|
1352
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1362
|
0 |
0 |
if (scalar @bad_opt > 0) |
|
1369
|
0 |
0 |
if ($axis =~ /^([^xy])$/) |
|
1376
|
0 |
0 |
if (ref $plot->{'data'} eq "ARRAY") |
|
1377
|
0 |
0 |
if (defined $plot->{'set.options'}) |
|
1379
|
0 |
0 |
if ($ref_type ne "ARRAY") |
|
1385
|
0 |
0 |
if ($n_set_opt > $n_data) |
|
1390
|
0 |
0 |
if (defined $plot->{'twinx'}) |
|
1391
|
0 |
0 |
if (ref $plot->{'twinx'} eq '') { } |
|
|
0 |
0 |
elsif (ref $plot->{'twinx'} eq 'ARRAY') { } |
|
1392
|
0 |
0 |
unless $plot->{'twinx'} =~ /^\d+$/ |
|
1396
|
0 |
0 |
if (scalar @bad_opt > 0) |
|
1403
|
0 |
0 |
if (defined $plot->{'twinx.args'}) |
|
1405
|
0 |
0 |
unless $ref eq "HASH" |
|
1407
|
0 |
0 |
if (scalar @bad_opt > 0) |
|
1412
|
0 |
0 |
if grep {$idx == $_;} @twinx |
|
1419
|
0 |
0 |
if ($ref ne "ARRAY") |
|
1424
|
0 |
0 |
if ($n_elem != 2) |
|
1429
|
0 |
0 |
if ($bad_opt[0] != $bad_opt[1]) |
|
1437
|
0 |
0 |
if scalar @bad_opt == 0 |
|
1448
|
0 |
0 |
if (defined $plot->{'set.options'} and ref $plot->{'set.options'} eq "") |
|
1453
|
0 |
0 |
if (defined $plot->{'set.options'}[$arr_i]) |
|
1457
|
0 |
0 |
if (grep {$arr_i == $_;} @twinx) { } |
|
1460
|
0 |
0 |
if (defined $plot->{'twinx.args'}{$arr_i}) |
|
1475
|
0 |
0 |
if (defined $plot->{'key.order'}) { } |
|
1480
|
0 |
0 |
if (defined $plot->{'set.options'} and ref $plot->{'set.options'} eq "HASH") |
|
1482
|
0 |
0 |
if (scalar @bad_opt > 0) |
|
1487
|
0 |
0 |
if (defined $plot->{'twinx'}) |
|
1488
|
0 |
0 |
if (ref $plot->{'twinx'} eq '') { } |
|
|
0 |
0 |
elsif (ref $plot->{'twinx'} eq 'HASH') { } |
|
1489
|
0 |
0 |
unless $plot->{'twinx'} =~ /^\d+$/ |
|
1493
|
0 |
0 |
if (scalar @bad_opt > 0) |
|
1500
|
0 |
0 |
if (defined $plot->{'twinx.args'}) |
|
1502
|
0 |
0 |
unless $ref eq "HASH" |
|
1504
|
0 |
0 |
if (scalar @bad_opt > 0) |
|
1509
|
0 |
0 |
if grep {$set eq $_;} @twinx |
|
1516
|
0 |
0 |
if ($set_ref ne "ARRAY") |
|
1521
|
0 |
0 |
if ($n_arrays != 2) |
|
1526
|
0 |
0 |
if ($n_elem[0] != $n_elem[1]) |
|
1534
|
0 |
0 |
if (scalar @undef_i > 0) |
|
1544
|
0 |
0 |
if (defined $plot->{'set.options'} and ref $plot->{'set.options'} eq "") |
|
1549
|
0 |
0 |
if (defined $plot->{'set.options'}{$set}) |
|
1553
|
0 |
0 |
if ($plot->{'show.legend'}) |
|
1557
|
0 |
0 |
if (grep {$set eq $_;} @twinx) { } |
|
1560
|
0 |
0 |
if (defined $plot->{'twinx.args'}{$set}) |
|
1579
|
0 |
0 |
if (ref $args ne "HASH") |
|
1587
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1597
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1602
|
0 |
0 |
if ($overall_ref ne "HASH") |
|
1611
|
0 |
0 |
if (scalar %ref_counts > 1) |
|
1615
|
0 |
0 |
if (defined $ref_counts{'ARRAY'}) { } |
|
|
0 |
0 |
elsif (defined $ref_counts{'HASH'}) { } |
|
1628
|
0 |
0 |
if ($plot_type eq 'single') { } |
|
|
0 |
0 |
elsif ($plot_type eq 'multiple') { } |
|
1631
|
0 |
0 |
if (defined $plot->{'keys'}) { } |
|
1637
|
0 |
0 |
if ($n_keys != 2 and $n_keys != 3) |
|
1641
|
0 |
0 |
if (defined $plot->{'color_key'}) { } |
|
|
0 |
0 |
elsif (scalar @keys == 3) { } |
|
1649
|
0 |
0 |
if (defined $plot->{'set.options'} and ref $plot->{'set.options'} eq "") |
|
1654
|
0 |
0 |
if (defined $color_key) { } |
|
1668
|
0 |
0 |
if grep {$set eq $_;} keys %{$$plot{"data"};} |
|
1671
|
0 |
0 |
if (scalar @undefined_opts > 0) |
|
1682
|
0 |
0 |
if (defined $plot->{'keys'}) { } |
|
1688
|
0 |
0 |
if ($n_keys != 2 and $n_keys != 3) |
|
1694
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1699
|
0 |
0 |
if (not defined $color_key and $n_keys == 3) |
|
1702
|
0 |
0 |
if (defined $plot->{'set.options'}{$set}) |
|
1707
|
0 |
0 |
if (defined $color_key) { } |
|
1709
|
0 |
0 |
unless ($options =~ /label\s*=/) |
|
1720
|
0 |
0 |
if defined $color_key |
|
1728
|
0 |
0 |
if (ref $args ne "HASH") |
|
1736
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1746
|
0 |
0 |
if (scalar @undef_opt > 0) |
|
1751
|
0 |
0 |
unless ($plot->{'orientation'} =~ /^(?:horizontal|vertical)$/) |
|
1756
|
0 |
0 |
if (defined $plot->{'key.order'}) { } |
|
1766
|
0 |
0 |
if ($plot->{'log'}) |
|
1772
|
0 |
0 |
if defined $_ |
|
1778
|
0 |
0 |
if ($axis =~ /^([^xy])$/) |
|
1785
|
0 |
0 |
if (defined $plot->{'colors'}) { } |
|
1788
|
0 |
0 |
if (scalar @wrong_keys > 0) |
|
1803
|
0 |
0 |
if (defined $plot->{'color'}) |
|
1810
|
0 |
0 |
if ($plot->{'whiskers'}) |
|
1836
|
0 |
0 |
if ($plot->{'orientation'} eq 'vertical') { } |
|
1851
|
0 |
0 |
if ($plot->{'orientation'} eq 'vertical') { } |
|
1866
|
0 |
0 |
if ($plot->{'orientation'} eq 'vertical') { } |
|
1881
|
0 |
0 |
if (ref $args ne "HASH") |
|
1889
|
0 |
0 |
if (scalar @undef_args > 0) |
|
1900
|
0 |
0 |
if (scalar @undef_opt > 0) |
|
1908
|
0 |
0 |
if ($ref_type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref_type eq 'ARRAY') { } |
|
1932
|
0 |
0 |
if ($plot->{'show.legend'} > 0) { } |
|
1974
|
0 |
0 |
if ($str =~ /^\w+\h*=\h*["']/) |
|
1977
|
0 |
0 |
if ($str =~ /^\w+$/) { } |
|
|
0 |
0 |
elsif ($str =~ m"[!\@#\$\%^&*\(\)\{\}\[\]\<\>,/\-\h:;\+=\w]+$") { } |
|
|
0 |
0 |
elsif ($str =~ /,/ and not $str =~ /[\]\[]/) { } |
|
1994
|
0 |
0 |
if (ref $args ne "HASH") |
|
1997
|
0 |
0 |
if (scalar grep({$args->{$_};} "output.file", "show") == 0) |
|
2035
|
0 |
0 |
if (scalar @undef_args > 0) |
|
2039
|
0 |
0 |
unless (defined $args->{'plot.type'} or defined $args->{'plots'}) |
|
2045
|
0 |
0 |
if (ref $args->{'output.file'} ne "") |
|
2054
|
0 |
0 |
if (scalar @bad_args > 0) |
|
2061
|
0 |
0 |
if (defined $args->{'plot.type'} and defined $args->{'data'}) |
|
2064
|
0 |
0 |
if ($single_plot == 1 and not defined $args->{'plot.type'}) |
|
2069
|
0 |
0 |
if ($single_plot == 0 and not defined $args->{'plots'}) |
|
2073
|
0 |
0 |
if ($single_plot == 0 and ref $args->{'plots'} ne "ARRAY") |
|
2077
|
0 |
0 |
if ($single_plot == 0 and scalar @{$args->{'plots'};} == 0) |
|
2081
|
0 |
0 |
if ($single_plot == 1) |
|
2082
|
0 |
0 |
if defined $args->{$_} |
|
2089
|
0 |
0 |
if ($single_plot == 0 and $args->{'nrows'} * $args->{'ncols'} < scalar @{$args->{'plots'};}) |
|
2099
|
0 |
0 |
if ($single_plot == 0) |
|
2103
|
0 |
0 |
if (scalar @bad_args > 0) |
|
2111
|
0 |
0 |
if (scalar @output_file > 0) |
|
2117
|
0 |
0 |
if ($single_plot == 1 and ref $args->{'data'} eq "HASH" and scalar keys %{$$args{"data"};} == 0) |
|
2121
|
0 |
0 |
if defined $args->{$_} |
|
2122
|
0 |
0 |
if (scalar @bad_args > 0) |
|
2139
|
0 |
0 |
if (defined $args->{'shared.colorbar'} and $single_plot == 1) |
|
2143
|
0 |
0 |
if (defined $args->{'shared.colorbar'}) |
|
2145
|
0 |
0 |
if ($ref ne "ARRAY") |
|
2150
|
0 |
0 |
if ($max_subplot_idx > $args->{'nrows'} * $args->{'ncols'} - 1) |
|
2155
|
0 |
0 |
if (defined $args->{'add'}) |
|
2157
|
0 |
0 |
if ($ref ne "ARRAY") |
|
2161
|
0 |
0 |
if (defined $args->{'fh'}) { } |
|
2163
|
0 |
0 |
if ($ref ne "File::Temp") |
|
2174
|
0 |
0 |
if ($single_plot == 0) { } |
|
|
0 |
0 |
elsif ($single_plot == 1) { } |
|
2185
|
0 |
0 |
if (defined $args->{'plots'}) |
|
2189
|
0 |
0 |
if defined $plot->{'plot.type'} |
|
2193
|
0 |
0 |
if (scalar @undef_plot_types > 0) |
|
2209
|
0 |
0 |
if ($single_plot == 1) |
|
2212
|
0 |
0 |
unless defined $graph->{'plot.type'} |
|
2221
|
0 |
0 |
unless (defined $dispatch{$type}) |
|
2225
|
0 |
0 |
unless defined $dispatch{$type} |
|
2249
|
0 |
0 |
if (defined $args->{'shared.colorbar'} and grep {$_ == $ax;} @{$$args{"shared.colorbar"};}) |
|
2253
|
0 |
0 |
if ($ax == &max(@{$$args{'shared.colorbar'};})) { } |
|
2261
|
0 |
0 |
if (defined $plot->{'add'}) |
|
2263
|
0 |
0 |
if ($ref ne "ARRAY") |
|
2280
|
0 |
0 |
if (scalar @undef_keys > 0) |
|
2312
|
0 |
0 |
if ($ref eq '') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
2314
|
0 |
0 |
if ($type eq 'single quotes') { } |
|
|
0 |
0 |
elsif ($type eq 'no quotes') { } |
|
2315
|
0 |
0 |
if ($plt_method eq 'show') { } |
|
2326
|
0 |
0 |
if ($type eq 'single quotes') { } |
|
|
0 |
0 |
elsif ($type eq 'no quotes') { } |
|
2340
|
0 |
0 |
if ($ref eq '') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
2351
|
0 |
0 |
if (defined $args->{'scale'}) |
|
2355
|
0 |
0 |
if (defined $args->{'scalex'}) |
|
2358
|
0 |
0 |
if (defined $args->{'scaley'}) |
|
2370
|
0 |
0 |
if $args->{'execute'} == 0 |
|
2371
|
0 |
0 |
if ($args->{'execute'}) { } |
|
2375
|
0 |
0 |
if ($exit != 0) |
|
2396
|
0 |
0 |
if (defined $args->{'plot.type'} and $args->{'plot.type'} ne $sub_name) |
|
2399
|
0 |
0 |
if (defined $args->{'plots'}) |