| line |
true |
false |
branch |
|
2219
|
21 |
1 |
if (UNIVERSAL::isa('PDL::Graphics::Gnuplot', $_[0])) { } |
|
2235
|
0 |
22 |
if $check_syntax |
|
2240
|
0 |
22 |
if $this->{'options'}{'tee'} |
|
2340
|
0 |
23 |
if (0 + @_ and ref $_[$#_] eq "HASH") |
|
2344
|
0 |
23 |
if ($poh) |
|
2353
|
4 |
19 |
unless (@_ and @_ % 2) |
|
2356
|
4 |
0 |
if ($show =~ s/^\s*terminal type is ((\w+)(.*[^\s])?)\s*$/$1/) { } |
|
2363
|
23 |
0 |
if (@_) |
|
2366
|
4 |
19 |
if $terminal eq "unknown" |
|
2369
|
0 |
23 |
unless (exists $this->{'valid_terms'}{$terminal}) |
|
2373
|
0 |
0 |
if (exists $this->{'unknown_terms'}{$terminal}) { } |
|
|
0 |
0 |
elsif (exists $PDL::Graphics::Gnuplot::termTab->{$terminal}) { } |
|
2388
|
0 |
0 |
if (exists $PDL::Graphics::Gnuplot::termTabSource->{$terminal}) { } |
|
2400
|
1 |
22 |
unless ($PDL::Graphics::Gnuplot::termTab->{$terminal}{'opt'}[1]) |
|
2408
|
23 |
0 |
if ($PDL::Graphics::Gnuplot::termTab->{$terminal} and $PDL::Graphics::Gnuplot::termTab->{$terminal}{'opt'}) { } |
|
2421
|
0 |
23 |
if (exists $PDL::Graphics::Gnuplot::termTab->{$terminal}{'opt'}[0]{'persist'} and not defined $termOptions->{'persist'}) |
|
2427
|
0 |
23 |
if (exists $PDL::Graphics::Gnuplot::termTab->{$terminal}{'opt'}[0]{'dashed'} and not defined $termOptions->{'dashed'}) |
|
2435
|
1 |
22 |
if defined $termOptions->{'wait'} |
|
2438
|
0 |
23 |
if (defined $termOptions->{'aa'}) { } |
|
2445
|
23 |
0 |
unless (defined $termOptions->{'font'}) |
|
2446
|
0 |
23 |
if ($PDL::Graphics::Gnuplot::termTab->{$terminal}{'opt'}[0]{'font'}) |
|
2452
|
0 |
23 |
if (defined $PDL::Graphics::Gnuplot::termTab->{$terminal}{'image_format'}) { } |
|
2511
|
0 |
0 |
if (defined $this->{'aa'} and $this->{'aa'} and $this->{'aa'} != 1 and $this->{'aa_ready'}) |
|
2513
|
0 |
0 |
unless (rpiccan($this->{'image_format'}) and wpiccan($this->{'image_format'})) |
|
2518
|
0 |
0 |
if ($im->ndims == 3) |
|
2526
|
0 |
0 |
if ($im->ndims == 3) |
|
2567
|
0 |
23 |
$dumpswitch ? : |
|
2573
|
0 |
23 |
if $check_syntax |
|
2610
|
0 |
4 |
if ($check_syntax) |
|
2657
|
2 |
0 |
if $me->{'last_plot'} and $me->{'last_plot'}{'options'} |
|
2680
|
0 |
1 |
unless @_ |
|
2682
|
4 |
0 |
ref $_ eq 'ARRAY' ? : |
|
2759
|
34 |
18 |
unless $@ |
|
2761
|
0 |
18 |
if $@ |
|
2766
|
8 |
94 |
if @dwim_plot_options |
|
2772
|
3 |
99 |
if ($this->{'replotting'}) { } |
|
2780
|
37 |
65 |
if (ref($_[0]) =~ /^(HASH|ARRAY)/) |
|
2783
|
12 |
25 |
if ($@ =~ /^No /) { } |
|
|
0 |
25 |
elsif ($@) { } |
|
2797
|
21 |
81 |
if (@_ >= 2 and ref($_[-1]) =~ /^(HASH)/) |
|
2800
|
0 |
21 |
if ($@ =~ /^No /) { } |
|
|
0 |
21 |
elsif ($@) { } |
|
2823
|
2 |
1 |
!$_[0]->$PDL::Graphics::Gnuplot::_isa('PDL') ? : |
|
|
3 |
99 |
if $this->{'replotting'} |
|
2836
|
0 |
82 |
$this->{'early_gnuplot'} || $MS_io_braindamage ? : |
|
2849
|
102 |
0 |
unless ($this->{'ephemeral'}) |
|
2853
|
82 |
20 |
if $this->{'binary_flag_defaulted'} |
|
2857
|
0 |
85 |
if (scalar @$chunks == 0) |
|
2887
|
92 |
0 |
if ($axis_str =~ /x([12])y([12])/i) { } |
|
2889
|
92 |
0 |
$x == 1 ? : |
|
|
92 |
0 |
$y == 1 ? : |
|
2897
|
75 |
17 |
unless $chunks->[$i]{'imgFlag'} |
|
2901
|
17 |
0 |
unless (defined $this->{'options'}{'cbrange'}) |
|
2904
|
3 |
14 |
if $with eq "rgbimage" |
|
2905
|
2 |
15 |
if $with eq "rgbalpha" |
|
2908
|
17 |
0 |
if ($PDL::Bad::Status) |
|
2918
|
17 |
0 |
if not defined $cbmin or $cmin < $cbmin |
|
2919
|
17 |
0 |
if not defined $cbmax or $cmax < $cbmax |
|
2929
|
5 |
12 |
if ($chunks->[$i]{'ArrayRec'} eq 'array') { } |
|
2937
|
17 |
0 |
if not defined $im_ranges->{$xax}[0] or $z->[0] < $im_ranges->{$xax}[0] |
|
2938
|
17 |
0 |
if not defined $im_ranges->{$xax}[1] or $z->[1] > $im_ranges->{$xax}[1] |
|
2939
|
5 |
12 |
if ($chunks->[$i]{'ArrayRec'} eq 'array') { } |
|
2947
|
17 |
0 |
if not defined $im_ranges->{$yax}[0] or $z->[0] < $im_ranges->{$yax}[0] |
|
2948
|
17 |
0 |
if not defined $im_ranges->{$yax}[1] or $z->[1] > $im_ranges->{$yax}[1] |
|
2959
|
17 |
68 |
if (0 + keys(%$im_ranges)) |
|
2963
|
1 |
0 |
if ($chunks->[$i]{'ArrayRec'} eq 'array') { } |
|
2965
|
0 |
1 |
if ($chunks->[$i]{'cdims'} == 2) { } |
|
|
1 |
0 |
elsif ($chunks->[$i]{'cdims'} == 1) { } |
|
2981
|
1 |
0 |
if not defined $ranges->{$xax}[0] or $cxr->[0] < $ranges->{$xax}[0] |
|
2982
|
1 |
0 |
if not defined $ranges->{$xax}[1] or $cxr->[1] > $ranges->{$xax}[1] |
|
2984
|
1 |
0 |
if not defined $ranges->{$yax}[0] or $cyr->[0] < $ranges->{$yax}[0] |
|
2985
|
1 |
0 |
if not defined $ranges->{$yax}[1] or $cyr->[1] > $ranges->{$yax}[1] |
|
2993
|
0 |
2 |
if defined $im_ranges->{$ax}[0] and defined $ranges->{$ax}[0] and $ranges->{$ax}[0] < $im_ranges->{$ax}[0] |
|
2996
|
1 |
1 |
if defined $im_ranges->{$ax}[1] and defined $ranges->{$ax}[1] and $ranges->{$ax}[1] > $im_ranges->{$ax}[1] |
|
3001
|
17 |
68 |
if (defined $cbmin or defined $cbmax) |
|
3002
|
0 |
17 |
if defined $cbmin and "$cbmin" =~ /nan/i |
|
3003
|
0 |
17 |
if defined $cbmax and "$cbmax" =~ /nan/i |
|
3004
|
0 |
17 |
if ($cbmin == $cbmax) |
|
3022
|
0 |
34 |
if (defined $chunks->[0]{'options'}{$rkey}) |
|
3024
|
0 |
0 |
if not defined $po_range->[0] or defined $z->[0] and $z->[0] < $po_range->[0] |
|
3025
|
0 |
0 |
if not defined $po_range->[1] or defined $z->[1] and $z->[1] > $po_range->[1] |
|
3039
|
3 |
82 |
if not defined $this->{'options'}{'timefmt'} and grep((($this->{'options'}{$_ . 'data'} // "") =~ /^time/i), ("x", "x2", "y", "y2", "z", "cb")) |
|
3048
|
0 |
170 |
if ($active_axes->{$ax2}) |
|
3050
|
0 |
0 |
unless (exists $this->{'options'}{$ax2tics}) |
|
3066
|
85 |
0 |
if (my $t_o = $this->{'tmp_options'}) |
|
3073
|
4 |
81 |
if ($this->{'options'}{'multiplot'}) { } |
|
3089
|
4 |
0 |
if $gp_numversion >= "5.002" |
|
3104
|
13 |
72 |
$this->{'options'}{'3d'} ? : |
|
3109
|
0 |
85 |
if @plotcmds != @$chunks + 1 |
|
3119
|
0 |
85 |
$check_syntax ? : |
|
3122
|
17 |
75 |
if ($chunks->[$i]{'cdims'} == 2) { } |
|
3133
|
0 |
17 |
$check_syntax ? : |
|
3135
|
0 |
17 |
if $check_syntax |
|
3140
|
53 |
22 |
if ($chunks->[$i]{'binaryCurveFlag'}) { } |
|
3152
|
5 |
48 |
ref $first eq 'ARRAY' ? : |
|
|
0 |
53 |
$check_syntax ? : |
|
3155
|
0 |
53 |
if $check_syntax |
|
3159
|
0 |
22 |
if $check_syntax |
|
3160
|
0 |
22 |
if $check_syntax |
|
3164
|
0 |
92 |
if $check_syntax |
|
3168
|
0 |
85 |
if ($check_syntax) |
|
3181
|
0 |
0 |
if (defined $checkpointMessage and not $checkpointMessage =~ /^$postTestplotCheckpoint/m) |
|
3193
|
0 |
85 |
if $PDL::Graphics::Gnuplot::DEBUG |
|
3201
|
92 |
0 |
if ($PDL::Bad::Status) |
|
3204
|
16 |
125 |
if ref $dp eq "ARRAY" |
|
3205
|
0 |
125 |
if ($dp->badflag) |
|
3211
|
17 |
75 |
if ($chunk->{'cdims'} == 2) { } |
|
|
53 |
22 |
elsif ($chunk->{'binaryCurveFlag'}) { } |
|
3223
|
20 |
2 |
if ($chunk->{'data'}[0]->$PDL::Graphics::Gnuplot::_isa('PDL')) { } |
|
3229
|
10139 |
1 |
$_->isfinite->all ? : |
|
3239
|
0 |
13 |
if ($elem =~ /[\s\"]/) |
|
3259
|
0 |
1 |
ref $bc ne 'ARRAY' ? : |
|
|
84 |
1 |
!defined($bc) ? : |
|
3263
|
0 |
85 |
if ($check_syntax) |
|
3267
|
0 |
0 |
if $checkpointMessage |
|
3273
|
0 |
85 |
if $this->{'aa'} and $this->{'aa'} != 1 |
|
3280
|
0 |
101 |
unless @_ |
|
3288
|
0 |
82 |
if $optionsWarnings =~ /^\s+$/s |
|
3289
|
0 |
82 |
if ($optionsWarnings) |
|
3290
|
0 |
0 |
if ($MS_io_braindamage) { } |
|
3302
|
171 |
0 |
if (ref $data_chunk eq 'ARRAY') { } |
|
3310
|
0 |
0 |
if $byte eq \4 or $byte eq \0 or $byte eq ">" |
|
3315
|
0 |
82 |
if ($plotWarnings) |
|
3316
|
0 |
0 |
unless $MS_io_braindamage |
|
3323
|
0 |
82 |
if (my $checkpointMessage = _checkpoint($this, "main", {"printwarnings", 1})) |
|
3324
|
0 |
0 |
unless $MS_io_braindamage |
|
3340
|
22 |
0 |
unless $MS_io_braindamage |
|
3343
|
0 |
0 |
$pipe_stuff ? : |
|
3392
|
0 |
179 |
if $nextDataIdx > $#args |
|
3393
|
59 |
120 |
unless ref $args[$nextDataIdx] |
|
3394
|
105 |
15 |
if ref $args[$nextDataIdx] ne "HASH" |
|
3397
|
0 |
105 |
unless defined $nextDataIdx |
|
3399
|
0 |
105 |
if $lastOptions->{'with'} |
|
3410
|
103 |
0 |
unless defined $chunk{'options'}{'dashtype'} |
|
3419
|
52 |
51 |
ref($chunk{'options'}{'with'}) =~ /ARRAY/ ? : |
|
3420
|
1 |
102 |
if ($with =~ /^label/) |
|
3424
|
2 |
103 |
if ($@) |
|
3425
|
2 |
0 |
unless (@chunks) |
|
3438
|
100 |
3 |
unless defined $nextOptionIdx |
|
3446
|
103 |
0 |
if @$with == 1 |
|
3447
|
0 |
103 |
if (@$with > 1) |
|
3452
|
0 |
0 |
unless $ENV{'PGG_DEP'} |
|
3456
|
3 |
100 |
unless (exists $$plotStyleProps{$with->[0]}) |
|
3458
|
2 |
1 |
if (not $with->[0] =~ /s$/i and exists $$plotStyleProps{lc $with->[0] . 's'}) { } |
|
3471
|
6 |
96 |
if ($psProps->[4]) |
|
3481
|
13 |
88 |
if (not $ENV{'PGG_SUPPRESS_BINARY_MISMATCH_WARNING'} and defined $chunk{'binaryWith'}) |
|
3485
|
12 |
1 |
$chunk{'binaryWith'} ? : |
|
3486
|
13 |
0 |
$this->{'options'}{'binary'} ? : |
|
3487
|
0 |
13 |
if ($got ne $asked and not $this->{'binary_flag_defaulted'}) |
|
3499
|
0 |
101 |
unless (ref $tupleSizes) |
|
3509
|
600 |
6 |
unless defined $v |
|
3510
|
0 |
6 |
ref $v eq 'ARRAY' ? : |
|
3511
|
6 |
0 |
if $s =~ /palette|variable/ |
|
3513
|
3 |
98 |
if $chunk{'options'}{'palette'} |
|
3518
|
0 |
101 |
if ($chunk{'options'}{'tuplesize'} and $NdataPiddles != $chunk{'options'}{'tuplesize'}) |
|
3522
|
93 |
8 |
if (@tuplematch) { } |
|
3526
|
42 |
51 |
$tuplematch[0] < 0 ? : |
|
3529
|
8 |
0 |
unless ($chunk{'options'}{'tuplesize'}) |
|
3530
|
0 |
8 |
$NdataPiddles == 1 ? : |
|
3532
|
0 |
8 |
unless @$tupleSizes |
|
3534
|
0 |
8 |
if (@$tupleSizes == 1) { } |
|
3539
|
3 |
5 |
if ($ExtraColumns) { } |
|
3540
|
1 |
2 |
$ExtraColumns == 1 ? : |
|
3553
|
17 |
76 |
$chunk{'options'}{'cdims'} || ($imgFlag || $is3d && $dataPiddles[0]->$PDL::Graphics::Gnuplot::_isa('PDL') && $dataPiddles[0]->ndims >= 2) ? : |
|
3554
|
0 |
93 |
if $cdims == 1 and $imgFlag |
|
3562
|
17 |
76 |
if ($cdims == 2) |
|
3563
|
12 |
5 |
if ($with->[0] eq "image") |
|
3565
|
5 |
7 |
if ($dp->ndims == 3 and $dp->dim(1) >= 5) |
|
3581
|
90 |
0 |
unless (exists $chunk{'options'}{'using'}) |
|
3582
|
9 |
81 |
if (defined $this->{'options'}{'binary'} and not $this->{'options'}{'binary'} and not $imgFlag and $chunk{'ArrayRec'} eq 'array') { } |
|
3588
|
2 |
7 |
if ($is3d) { } |
|
3605
|
0 |
90 |
if $imgFlag and $dataPiddles[0]->dims < 2 |
|
3610
|
17 |
73 |
if ($cdims == 2) { } |
|
|
66 |
7 |
elsif ($dataPiddles[0]->$PDL::Graphics::Gnuplot::_isa('PDL')) { } |
|
3612
|
17 |
0 |
unless exists $chunk{'options'}{'legend'} |
|
3616
|
5 |
12 |
if ($p->dims == 2) { } |
|
3621
|
0 |
17 |
if ($p->dims > 3) |
|
3638
|
0 |
66 |
if ($ncurves >= 100 and not $bigthreads) |
|
3649
|
2 |
2 |
if ($chunk{'options'}{'legend'} and @{$chunk{'options'}{'legend'};} and @{$chunk{'options'}{'legend'};} != $ncurves) |
|
3653
|
1 |
1 |
0 + @{$chunk{'options'}{'legend'};} == 1 ? : |
|
3654
|
1 |
1 |
$ncurves == 1 ? : |
|
3658
|
62 |
2 |
unless exists $chunk{'options'}{'legend'} |
|
3659
|
2 |
62 |
if $chunk{'options'}{'legend'} |
|
3661
|
63 |
1 |
if ($ncurves == 1) { } |
|
3670
|
5 |
0 |
if (exists $chk->{'options'}{'legend'}) |
|
3683
|
7 |
0 |
unless exists $chunk{'options'}{'legend'} |
|
3694
|
2 |
0 |
$dp->dim(0) == 4 || $dp->dim(2) == 4 ? : |
|
|
3 |
2 |
$dp->dim(0) == 3 || $dp->dim(2) == 3 ? : |
|
3697
|
1 |
4 |
if ($dp->dim(0) == 3 and $dp->dim(2) >= 5) { } |
|
|
2 |
2 |
elsif ($dp->dim(2) == 3 and $dp->dim(0) >= 5) { } |
|
|
1 |
1 |
elsif ($dp->dim(0) == 4 and $dp->dim(2) >= 5) { } |
|
|
1 |
0 |
elsif ($dp->dim(2) == 4 and $dp->dim(0) >= 5) { } |
|
3716
|
17 |
164 |
unless $_->$PDL::Graphics::Gnuplot::_isa("PDL") |
|
3718
|
83 |
10 |
unless ($nonPDLCount) |
|
3730
|
102 |
111 |
if (not defined $data_dims[$i] or $data_dims[$i] <= 1) { } |
|
|
0 |
111 |
elsif ($ddims[$i] > 1 and $ddims[$i] != $data_dims[$i]) { } |
|
3746
|
1 |
213 |
if (not defined $ddims[$id] && $ddims[$id]) { } |
|
|
213 |
0 |
elsif ($data_dims[$id] == $ddims[$id]) { } |
|
|
0 |
0 |
elsif ($ddims[$id] == 1) { } |
|
3761
|
1 |
158 |
if ($slice_needed) |
|
3775
|
2 |
18 |
if $_->$PDL::Graphics::Gnuplot::_isa("PDL") and $_->ndims > 1 |
|
3777
|
15 |
3 |
if (ref $_ eq 'ARRAY') { } |
|
|
3 |
0 |
elsif ($_->$PDL::Graphics::Gnuplot::_isa('PDL')) { } |
|
3778
|
1 |
14 |
if defined $nelem and @$_ != $nelem |
|
3782
|
0 |
64 |
if ref $_ |
|
3787
|
0 |
3 |
if defined $nelem and $_->nelem != $nelem |
|
3830
|
3 |
0 |
if ($this->{'replottable'}) { } |
|
3855
|
0 |
0 |
if ($this->{'replottable'}) { } |
|
4114
|
0 |
4 |
if ($this->{'options'}{'multiplot'}) |
|
4126
|
0 |
4 |
if ($check_syntax) |
|
4132
|
0 |
0 |
if ($checkpointMessage) |
|
4133
|
0 |
0 |
if ($MS_io_braindamage) { } |
|
4150
|
0 |
3 |
if ($checkpointMessage) |
|
4151
|
0 |
0 |
if ($MS_io_braindamage) { } |
|
4161
|
0 |
2 |
if $gp_version < "4.7" |
|
4165
|
0 |
2 |
unless $this->{'options'}{'multiplot'} |
|
4167
|
0 |
2 |
if ($check_syntax) |
|
4170
|
0 |
0 |
if $checkpointMessage |
|
4177
|
0 |
1 |
if $gp_version < "4.7" |
|
4181
|
0 |
1 |
unless $this->{'options'}{'multiplot'} |
|
4185
|
0 |
1 |
if ($checkpointMessage) |
|
4186
|
0 |
0 |
if ($MS_io_braindamage) { } |
|
4197
|
0 |
3 |
unless $this->{'options'}{'multiplot'} |
|
4198
|
0 |
3 |
if ($check_syntax) |
|
4201
|
0 |
0 |
if $checkpointMessage |
|
4211
|
0 |
2 |
unless $this->{'options'}{'multiplot'} |
|
4215
|
0 |
2 |
if ($checkpointMessage) |
|
4216
|
0 |
0 |
if ($MS_io_braindamage) { } |
|
4222
|
2 |
0 |
if not $$termTab{$this->{'terminal'}}{'disp'} |
|
4258
|
0 |
0 |
unless ($this->{'mouse'}) |
|
4262
|
0 |
0 |
if $PDL::Graphics::Gnuplot::termTab->{$k}{'mouse'} |
|
4264
|
0 |
0 |
if (@terms == 0) { } |
|
|
0 |
0 |
elsif (@terms == 1) { } |
|
4276
|
0 |
0 |
unless $this->{'replottable'} |
|
4286
|
0 |
0 |
if ($gp_version < 4.7) { } |
|
|
0 |
0 |
elsif ($gp_version >= 4.7) { } |
|
4294
|
0 |
0 |
unless $string =~ /Key: (\-?\d+)( +at xy:([^\s\,]+)\,([^\s\,]+)? button:(\d+)? shift:(\d+) alt:(\d+) ctrl:(\d+))?\s*$/ |
|
4314
|
0 |
0 |
unless $string =~ /Key:\s*(\-?\d+)( +at xy:\s*([^\s\,]+)\s*\,\s*([^\s\,]+) shift:\s*(\d+) alt:\s*(\d+) ctrl:\s*(\d+))?/ |
|
4319
|
0 |
0 |
if ($ch == 1063) { } |
|
|
0 |
0 |
elsif ($ch == 2) { } |
|
|
0 |
0 |
elsif ($ch == 65406) { } |
|
4331
|
0 |
0 |
$sft ? : |
|
|
0 |
0 |
$alt ? : |
|
|
0 |
0 |
$ctl ? : |
|
4332
|
0 |
0 |
$ch >= 32 ? : |
|
|
0 |
0 |
$ch > 32 && $ch != 127 ? : |
|
|
0 |
0 |
$ch < 0 ? : |
|
|
0 |
0 |
wantarray ? : |
|
4445
|
0 |
0 |
unless $this->{'mouse'} |
|
4485
|
0 |
0 |
$opt->{'closed'} ? : |
|
4494
|
0 |
0 |
if ($s =~ /\%k/) |
|
4496
|
0 |
0 |
unless length $a <=> length $b |
|
4497
|
0 |
0 |
if (ref $a->{$k} eq "ARRAY") |
|
4513
|
0 |
0 |
$h->{'b'} ? : |
|
4515
|
0 |
0 |
if (ref $a->{$key}) { } |
|
4516
|
0 |
0 |
ref $a->{$key} eq 'CODE' ? : |
|
4523
|
0 |
0 |
if ($opt->{'markup'}) |
|
4524
|
0 |
0 |
if ($poly->dim(1) > 0) |
|
4533
|
0 |
0 |
if ($opt->{'closed'}) |
|
4535
|
0 |
0 |
if ($opt->{'markup'}) |
|
4536
|
0 |
0 |
if ($poly->dim(1) > 0) |
|
4545
|
0 |
0 |
unless $$p->$PDL::Graphics::Gnuplot::_isa("PDL") and $$p->dim(1) > 0 |
|
4578
|
0 |
0 |
unless $this->{'mouse'} |
|
4611
|
828 |
3100 |
if (exists $hash->{$s}) { } |
|
4613
|
827 |
1 |
unless $hash->{$s}[0] eq $s |
|
4631
|
33 |
247 |
unless (exists $abbrevs->{$sl}) |
|
4632
|
5 |
28 |
if ($sl =~ s/(\d+)\s*$//) |
|
4637
|
32 |
248 |
unless exists $abbrevs->{$sl} |
|
4639
|
0 |
248 |
if @{$abbrevs->{$sl};} > 1 |
|
4640
|
244 |
4 |
wantarray ? : |
|
5510
|
62 |
146 |
if (ref $k eq 'HASH') { } |
|
|
11 |
135 |
elsif (ref $k eq 'ARRAY') { } |
|
5518
|
2 |
206 |
unless defined $k |
|
5532
|
1 |
191 |
if (defined $knum) |
|
5533
|
1 |
0 |
if ($OptTable->{$kk}[0] eq 'N') { } |
|
5534
|
1 |
0 |
if (ref $v eq 'ARRAY') { } |
|
5543
|
0 |
0 |
unless ($AbbrevTable->{$kk}) |
|
5553
|
38 |
154 |
ref $parser ? : |
|
5555
|
0 |
154 |
unless (ref $p eq "CODE") |
|
5591
|
0 |
192 |
unless (ref $parser eq "CODE") |
|
5791
|
1036 |
780 |
defined $table->{$a}[3] ? : |
|
|
960 |
856 |
defined $table->{$b}[3] ? : |
|
|
0 |
1205 |
unless (defined $table->{$a}[3] ? $table->{$a}[3] : 999) <=> (defined $table->{$b}[3] ? $table->{$b}[3] : 999) |
|
5803
|
0 |
1102 |
unless (defined $tableEntry) |
|
5811
|
24 |
1078 |
if ($tableEntry->[2]) |
|
5814
|
2 |
127 |
if ($h{$keys[$i]}) |
|
5823
|
490 |
610 |
ref $emitter ? : |
|
5825
|
0 |
610 |
unless (ref $o eq "CODE") |
|
5849
|
0 |
0 |
do {
ref $v eq 'ARRAY'
} ? : |
|
|
0 |
0 |
ref $v ? : |
|
5854
|
0 |
0 |
if (@$v > 1) { } |
|
5866
|
0 |
0 |
if lc $words[0] eq "rgb" |
|
5868
|
0 |
0 |
if ($words[0] =~ s/\"?(\#[0-9a-fA-F]{6})\"?/"$1"/) |
|
5869
|
0 |
0 |
unless $s =~ /rgb/ |
|
5873
|
0 |
0 |
if ($$PDL::Graphics::Gnuplot::colornames{lc $words[0]}) |
|
5874
|
0 |
0 |
unless $s =~ /rgb/ |
|
5880
|
0 |
0 |
if $words[0] =~ /(^[0-9]+$)|(variable)|(palette)/ |
|
6929
|
0 |
0 |
if ($PDL::Graphics::Gnuplot::termTabSource->{$terminal}) |
|
6930
|
0 |
0 |
if (ref $PDL::Graphics::Gnuplot::termTabSource->{$terminal}) { } |
|
6931
|
0 |
0 |
$PDL::Graphics::Gnuplot::termTabSource->{$terminal}{'mouse'} ? : |
|
6937
|
0 |
0 |
if (defined $info[0] and defined $info[1]) |
|
6944
|
0 |
0 |
if ($this->{'unknown_terms'}{$terminal}) { } |
|
6951
|
0 |
0 |
unless $dont_print |
|
6955
|
0 |
0 |
if ($terminal and $this->{'unknown_terms'}{$terminal}) |
|
6958
|
0 |
0 |
unless $dont_print |
|
6962
|
0 |
0 |
if ($terminal and $terminal ne "all") |
|
6967
|
0 |
0 |
if (not $terminal or $terminal eq "all") |
|
6969
|
0 |
0 |
unless ($terminal or $brief_form or $dont_print) |
|
6977
|
0 |
0 |
unless $this->{'valid_terms'}{$k} |
|
6978
|
0 |
0 |
unless $PDL::Graphics::Gnuplot::termTab->{$k}{'int'} or $PDL::Graphics::Gnuplot::termTab->{$k}{'mouse'} |
|
6979
|
0 |
0 |
$PDL::Graphics::Gnuplot::termTab->{$k}{'mouse'} ? : |
|
6984
|
0 |
0 |
unless $this->{'valid_terms'}{$k} |
|
6985
|
0 |
0 |
if $PDL::Graphics::Gnuplot::termTab->{$k}{'int'} or $PDL::Graphics::Gnuplot::termTab->{$k}{'mouse'} |
|
6989
|
0 |
0 |
if ($terminal eq 'all') { } |
|
6995
|
0 |
0 |
if $this->{'valid_terms'}{$k} |
|
7009
|
0 |
0 |
$this == $globalPlot ? : |
|
7011
|
0 |
0 |
unless $dont_print |
|
7074
|
36 |
42 |
if (exists $PDL::Graphics::Gnuplot::termTab->{$_}) { } |
|
7101
|
0 |
45 |
if ($$this{"pid-$suffix"}) |
|
7107
|
0 |
45 |
if ($this->{'options'}{'dump'}) { } |
|
7119
|
45 |
0 |
$gnuplotFeatures{'persist'} ? : |
|
7126
|
0 |
45 |
if (exists $ENV{'DISPLAY'} and not $XDG_RUNTIME_DIR_global) |
|
7132
|
0 |
45 |
unless ($pid) |
|
7151
|
45 |
0 |
if (not $this->{'dumping'}) { } |
|
7156
|
16380 |
0 |
if ($errSelector->can_read(1) or $MS_io_braindamage) { } |
|
7159
|
0 |
16380 |
if (length $byte == 0) { } |
|
7182
|
45 |
0 |
if ($s =~ /Version ((\d+)\.(\d+)(\.(\d+))?) (patchlevel (\w+))?/i) { } |
|
7192
|
0 |
0 |
unless ($MS_io_braindamage) |
|
7195
|
0 |
0 |
if ($wp == $pid) { } |
|
|
0 |
0 |
elsif ($wp < 0) { } |
|
7196
|
0 |
0 |
if (($? + 0 & 255) == 11) { } |
|
|
0 |
0 |
elsif (($? + 0 & 255) == 7) { } |
|
7218
|
0 |
45 |
if ($gp_pl =~ /[a-z]+/) { } |
|
7219
|
0 |
0 |
unless ($PDL::Graphics::Gnuplot::non_numeric_patch_warned or $ENV{'PGG_RC_OK'}) |
|
7225
|
0 |
45 |
if ($gp_version ne $Alien::Gnuplot::version or $gp_pl ne $Alien::Gnuplot::pl) |
|
7232
|
0 |
0 |
if ($gp_version ne $Alien::Gnuplot::version or $gp_pl ne $Alien::Gnuplot::pl) |
|
7242
|
0 |
45 |
if ($gp_numversion <= "4.006" and $gp_pl <= 5) |
|
7247
|
0 |
45 |
if ($gp_numversion < $gnuplot_dep_v and not $PDL::Graphics::Gnuplot::deprecated_this_session) |
|
7249
|
0 |
0 |
unless ($ENV{'GNUPLOT_DEPRECATED'}) |
|
7292
|
44 |
44 |
unless (defined $suffix) |
|
7294
|
821 |
44 |
unless $k =~ /^pid\-(.*)$/ |
|
7300
|
44 |
0 |
if (defined $$this{"pid-$suffix"}) |
|
7306
|
0 |
44 |
if ($kill_it_dead) { } |
|
7312
|
1 |
43 |
if $this->{'options'}{'multiplot'} |
|
7313
|
0 |
44 |
if ($this->{'terminal'} // "") eq "qt" |
|
7329
|
0 |
0 |
if ($countdown <= 2) |
|
7332
|
0 |
0 |
if ($countdown > 0) { } |
|
7335
|
0 |
0 |
unless $countdown > 0 or $countdown < -4 |
|
7345
|
0 |
44 |
unless ($z == $goner) |
|
7357
|
176 |
0 |
if exists $this->{$_} |
|
7378
|
0 |
703 |
unless (defined $$this{"in-$suffix"}) |
|
7386
|
614 |
89 |
unless defined $flags |
|
7390
|
0 |
703 |
if ($this->{'options'}{'dump'} and not $this->{'dumping'} or $this->{'dumping'} and not $this->{'options'}{'dump'}) |
|
7395
|
0 |
0 |
if ($this->{'dumping'}) { } |
|
7404
|
703 |
0 |
unless ($this->{'dumping'}) |
|
7416
|
0 |
703 |
if ($MS_io_braindamage) { } |
|
7419
|
0 |
0 |
if (length $string) |
|
7423
|
0 |
0 |
if (not defined $len or $len == 0) |
|
7424
|
0 |
0 |
defined $len ? : |
|
7432
|
0 |
0 |
if ($int_flag) |
|
7436
|
0 |
0 |
if $check_syntax |
|
7438
|
0 |
0 |
if (ref $s eq "CODE") |
|
7447
|
0 |
703 |
if ($int_flag) |
|
7450
|
0 |
0 |
if $check_syntax |
|
7452
|
0 |
0 |
if (ref $s eq "CODE") |
|
7462
|
0 |
703 |
if ($debug_echo) |
|
7464
|
0 |
0 |
unless defined $this->{$k} |
|
7466
|
0 |
0 |
unless $flags->{'data'} |
|
7471
|
0 |
703 |
if ($this->{'dumping'} or $this->{'options'}{'tee'}) |
|
7474
|
0 |
0 |
if ($flags->{'binary'} and $this->{'options'}{'tee'} && $this->{'options'}{'tee'} eq 'nobinary' || $this->{'dumping'} && $this->{'dumping'} eq 'nobinary') { } |
|
7488
|
0 |
0 |
if ($this->{'dumping'}) |
|
7492
|
0 |
0 |
if ($this->{'options'}{'tee'}) |
|
7536
|
0 |
307 |
unless defined $pipeerr |
|
7538
|
0 |
307 |
if $this->{'dumping'} |
|
7544
|
307 |
0 |
unless ($MS_io_braindamage) |
|
7548
|
0 |
0 |
if (ref $int eq "CODE") |
|
7555
|
0 |
307 |
if $this->{'options'}{'tee'} |
|
7561
|
0 |
307 |
if ($$this{"echobuffer-$suffix"}) |
|
7584
|
0 |
325 |
$notimeout ? : |
|
|
324 |
1 |
if ($MS_io_braindamage or $$this{"errSelector-$suffix"}->can_read($notimeout ? undef : $delay)) { } |
|
7589
|
0 |
324 |
$MS_io_braindamage ? : |
|
7591
|
0 |
324 |
if ($byte eq \4 or $byte eq \0 or not length $byte) |
|
7597
|
0 |
1 |
if $this->{'options'}{'tee'} |
|
7609
|
0 |
306 |
if ($MS_io_braindamage) |
|
7614
|
0 |
306 |
if ($subproc_gone) |
|
7619
|
0 |
306 |
if $this->{'options'}{'tee'} |
|
7626
|
0 |
306 |
if ($MS_io_braindamage) |
|
7645
|
0 |
1 |
if ($2) { } |
|
7647
|
0 |
0 |
unless $fromerr =~ s/^((gnu|multi)plot\>.*\n\s*\^\s*\n\s*(line \d+\:\s*)?[wW]arning\:.*(\n|$))//m |
|
7650
|
0 |
0 |
if $printwarnings |
|
7653
|
0 |
1 |
unless $fromerr =~ s/^(\s*(line \d+\:\s*)?[wW](arning\:.*(\n|$)))//m |
|
7654
|
1 |
0 |
if $printwarnings |
|
7661
|
0 |
306 |
if ($MS_io_braindamage) { } |
|
7672
|
0 |
305 |
if (not $ignore_errors and $fromerr =~ /^\s+\^\s*$/ms || $fromerr =~ /^\s*line/ms || $fromerr =~ /(fail(ed|s)?)|(error)|(expected \w+ driver)/io) |
|
7678
|
0 |
1 |
if ($this->{'early_gnuplot'}) { } |
|
7710
|
0 |
3 |
if $@ |
|
7729
|
0 |
3 |
if $@ |
|
7732
|
0 |
3 |
unless $out or $err |
|
7744
|
0 |
0 |
unless $this->{'options'}{'tee'} |
|
7758
|
193 |
5 |
if ($arglist->[0]->$PDL::Graphics::Gnuplot::_isa('PDL::Graphics::Gnuplot')) { } |
|
7762
|
1 |
4 |
unless ($globalPlot->$PDL::Graphics::Gnuplot::_isa("PDL::Graphics::Gnuplot")) |
|
7807
|
0 |
6 |
if $@ |
|
7808
|
0 |
6 |
if @data != 1 |
|
7810
|
0 |
1 |
unless $data->ndims == 2 or $data->ndims == 3 and $data->dim(2) == 4 || $data->dim(2) == 3 || $data->dim(2) == 1 |
|
7813
|
0 |
5 |
unless $h and ref $h eq "HASH" and not grep((!$h->{$_}), ("NAXIS", "NAXIS1", "NAXIS2")) |
|
7814
|
2 |
3 |
if (my $resample = $chunk->{'options'}{'resample'}) |
|
7816
|
2 |
0 |
unless $this->{'options'}{'xrange'} |
|
7817
|
2 |
0 |
unless $this->{'options'}{'yrange'} |
|
7818
|
0 |
0 |
unless (defined $xmin and defined $xmax and defined $ymin and defined $ymax) |
|
7826
|
0 |
2 |
if $xmin > $xmax |
|
7827
|
0 |
2 |
if $ymin > $ymax |
|
7829
|
0 |
2 |
unless $d1->gethdr |
|
7839
|
0 |
15 |
if defined $this->{'options'}{$label} |
|
7842
|
11 |
4 |
$h->{$unit} ? : |