| line |
true |
false |
branch |
|
65
|
0 |
0 |
unless exists $self->{'CONFIG'}{$k}
|
|
69
|
1 |
0 |
if defined $file
|
|
96
|
9 |
1 |
if (ref $self eq 'ARRAY') { }
|
|
103
|
1 |
9 |
if ref $params->[0] eq "ARRAY"
|
|
106
|
0 |
10 |
if ($#{$args;} == 0 and ref $args->[0] eq 'HASH') { }
|
|
111
|
8 |
2 |
if ($#{$args;} & Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
|
|
114
|
0 |
6 |
if (ref $args->[$j] ne "")
|
|
119
|
6 |
8 |
if $p eq $args->[$j]
|
|
121
|
0 |
6 |
if (exists $$found{$args->[$j]})
|
|
129
|
6 |
4 |
if ($simple) { }
|
|
133
|
2 |
0 |
if (defined @{$params;}[$i]) { }
|
|
151
|
8 |
9 |
if (exists $arguments->{$param}) { }
|
|
162
|
10 |
0 |
if (wantarray) { }
|
|
174
|
1 |
0 |
if (ref $self eq 'ARRAY') { }
|
|
181
|
0 |
1 |
if ref $params->[0] eq "ARRAY"
|
|
188
|
0 |
1 |
unless (defined $result[$i])
|
|
193
|
1 |
0 |
if (wantarray) { }
|
|
205
|
0 |
380 |
unless defined $self->{'FH'}
|
|
206
|
0 |
380 |
if ($self->{'CONFIG'}{'use_ftell'}) { }
|
|
220
|
0 |
9 |
unless defined $self->{'FH'}
|
|
221
|
0 |
9 |
if ($self->{'CONFIG'}{'use_ftell'}) { }
|
|
234
|
0 |
1 |
unless -e $file
|
|
235
|
0 |
1 |
unless -r $file
|
|
237
|
0 |
1 |
if defined $self->{'FH'}
|
|
241
|
0 |
1 |
unless defined $self->{'FH'}
|
|
254
|
0 |
0 |
unless defined $self->{'FH'}
|
|
265
|
0 |
1 |
unless defined $fh
|
|
281
|
0 |
152 |
unless (/^(\d+)(.)(.*)\s*$/u)
|
|
290
|
2 |
150 |
unless (exists $self->{'INDEX'}{'STREAM'}{$str})
|
|
296
|
6 |
146 |
if ($cc ne "<" and $cc ne ">")
|
|
298
|
5 |
1 |
if ($cc eq '*') { }
|
|
|
1 |
0 |
elsif ($cc eq '|') { }
|
|
299
|
1 |
4 |
if ($rest =~ /^Lab::[\w\:]+::new\s/iu) { }
|
|
|
1 |
3 |
elsif ($rest =~ /^start\s+run\s*(\d+)\s*\\?\@\s*([\d\.]+)/iu) { }
|
|
|
2 |
1 |
elsif ($rest =~ /^event\s*(\d+)\s*run\s*(\d+)\s*\\?\@\s*([\d\.]+)/iu) { }
|
|
|
1 |
0 |
elsif ($rest =~ /^stop\s+run(\d+)\s.*\\?\@\s*([\d\.]+)/iu) { }
|
|
307
|
0 |
1 |
if exists $self->{'INDEX'}{'RUN'}{$run}
|
|
308
|
1 |
0 |
unless (defined $self->{'RUN'})
|
|
319
|
0 |
2 |
unless $run == $2 + 0
|
|
325
|
0 |
2 |
if exists $self->{'INDEX'}{'RUN'}{$run}{'EVENT'}{$event}
|
|
333
|
0 |
1 |
unless $run == $1 + 0
|
|
364
|
0 |
0 |
unless (defined $self->{'INDEX'})
|
|
371
|
0 |
0 |
if $str == 0
|
|
372
|
0 |
0 |
unless ($dirty)
|
|
382
|
0 |
0 |
if $j == 0
|
|
383
|
0 |
0 |
if $j < $len
|
|
397
|
0 |
0 |
if $d2
|
|
399
|
0 |
0 |
if $dirty
|
|
403
|
0 |
0 |
unless ($dirty)
|
|
411
|
0 |
0 |
if exists $self->{'INDEX'}{'RUN'}{$run}{'STOPTIME'}
|
|
412
|
0 |
0 |
unless (defined $t1)
|
|
420
|
0 |
0 |
if (defined $print_events and $print_events)
|
|
433
|
0 |
0 |
if $dirty
|
|
445
|
0 |
2 |
if (defined $stream)
|
|
446
|
0 |
0 |
if (ref $stream eq "")
|
|
454
|
0 |
0 |
unless exists $tail->{'no_global'} and not $tail->{'no_global'}
|
|
458
|
0 |
2 |
unless defined $fh
|
|
460
|
1 |
1 |
if (defined $inrun or defined $inevent)
|
|
463
|
0 |
1 |
unless defined $self->FindEvent("run", $inrun, "event", $inevent)
|
|
476
|
1 |
1 |
if (not defined $self->{'INDEX'}) { }
|
|
483
|
0 |
116 |
unless (/^(\d+)(.)(.*)\s*$/u)
|
|
492
|
4 |
112 |
if ($cc eq '*') { }
|
|
|
1 |
111 |
elsif ($cc eq '|') { }
|
|
|
111 |
0 |
elsif ($cc eq '<' or $cc eq '>') { }
|
|
493
|
1 |
3 |
if ($rest =~ /^Lab::[\w\:]+::new\s/iu) { }
|
|
|
1 |
2 |
elsif ($rest =~ /^start\s+run\s*(\d+)\s*\\?\@\s*([\d\.]+)/iu) { }
|
|
|
2 |
0 |
elsif ($rest =~ /^event\s*(\d+)\s*run\s*(\d+)\s*\\?\@\s*([\d\.]+)/iu) { }
|
|
|
0 |
0 |
elsif ($rest =~ /^stop\s+run(\d+)\s.*\\?\@\s*([\d\.]+)/iu) { }
|
|
498
|
0 |
1 |
if $inevent
|
|
502
|
1 |
1 |
if $inevent
|
|
509
|
1 |
0 |
if ($self->{'CONFIG'}{'clone_headers'})
|
|
511
|
0 |
1 |
if defined $self->{'FILEHEADER'}
|
|
513
|
0 |
1 |
if defined $self->{'RUNHEADER'}
|
|
517
|
0 |
0 |
if $inevent
|
|
524
|
0 |
0 |
if ($inevent and !defined($stream) || exists $streams->{$str})
|
|
533
|
0 |
0 |
unless exists $ev->{'STREAM'}{$str}
|
|
538
|
21 |
0 |
if ($inevent and !defined($stream) || exists $streams->{$str})
|
|
541
|
0 |
21 |
if $self->{'CONFIG'}{'combine_gpib'}
|
|
547
|
1 |
20 |
unless exists $ev->{'STREAM'}{$str}
|
|
557
|
0 |
1 |
unless $inevent
|
|
566
|
0 |
1 |
unless exists $self->{'INDEX'}{'RUN'}{$run}
|
|
568
|
0 |
1 |
unless exists $self->{'INDEX'}{'RUN'}{$run}{'EVENT'}{$event}
|
|
581
|
1 |
0 |
if ($self->{'CONFIG'}{'clone_headers'})
|
|
583
|
0 |
1 |
if defined $self->{'FILEHEADER'}
|
|
585
|
0 |
1 |
if defined $self->{'RUNHEADER'}
|
|
593
|
0 |
22 |
unless (/^(\d+)(.)(.*)\s*$/u)
|
|
601
|
1 |
21 |
if $cc eq "*"
|
|
602
|
0 |
0 |
unless not defined $stream or exists $streams->{$str}
|
|
608
|
1 |
20 |
unless exists $ev->{'STREAM'}{$str}
|
|
610
|
0 |
21 |
if ($cc eq '|') { }
|
|
|
21 |
0 |
elsif ($cc eq '>' or $cc eq '<') { }
|
|
616
|
0 |
21 |
if $self->{'CONFIG'}{'combine_gpib'}
|
|
634
|
0 |
1 |
unless defined $fh
|
|
637
|
0 |
1 |
if (defined $in and $in =~ /^\s*(Y|T|[1-9])/iu)
|
|
653
|
0 |
85 |
unless (/^(\d+)(.)(.*)\s*$/u)
|
|
667
|
2 |
83 |
unless exists $hdr->{'STREAM'}{$str}
|
|
669
|
2 |
83 |
if ($cc eq '*') { }
|
|
|
1 |
82 |
elsif ($cc eq '|') { }
|
|
|
82 |
0 |
elsif ($cc eq '<' or $cc eq '>') { }
|
|
670
|
1 |
1 |
if $rest =~ /^start\s+run/iu
|
|
671
|
0 |
1 |
if $rest =~ /^event/iu
|
|
672
|
0 |
1 |
if $rest =~ /^stop/iu
|
|
673
|
1 |
0 |
if ($rest =~ /^Lab::/iu) { }
|
|
691
|
0 |
1 |
if ($shift) { }
|
|
707
|
0 |
0 |
unless defined $fh
|
|
714
|
0 |
0 |
if (defined $self->{'INDEX'} and defined $selrun) { }
|
|
715
|
0 |
0 |
if (exists $self->{'INDEX'}{'RUN'}{$selrun}) { }
|
|
731
|
0 |
0 |
unless (/^(\d+)(.)(.*)\s*$/u)
|
|
739
|
0 |
0 |
if ($cc eq "*")
|
|
740
|
0 |
0 |
if ($rest =~ /^start\s+run\s*(\d+)\s*\\?\@\s*([\d\.]+)/iu)
|
|
742
|
0 |
0 |
if (not defined $selrun or $selrun == $run)
|
|
751
|
0 |
0 |
unless ($foundrun)
|
|
762
|
0 |
0 |
unless (/^(\d+)(.)(.*)\s*$/u)
|
|
774
|
0 |
0 |
unless exists $hdr->{'STREAM'}{$str}
|
|
776
|
0 |
0 |
if ($cc eq '*') { }
|
|
|
0 |
0 |
elsif ($cc eq '|') { }
|
|
|
0 |
0 |
elsif ($cc eq '>' or $cc eq '<') { }
|
|
777
|
0 |
0 |
if ($rest =~ /^start\s+run\s*(\d+)\s*\\?\@\s*([\d\.]+)/iu) { }
|
|
|
0 |
0 |
elsif ($rest =~ /^(event|stop|Lab::)/iu) { }
|
|
779
|
0 |
0 |
if $self->{'RUN'} != $run
|
|
815
|
0 |
1 |
if (not defined $run or $run <= 0)
|
|
818
|
0 |
1 |
if (not defined $run or $run <= 0)
|
|
823
|
1 |
0 |
if (exists $self->{'INDEX'}) { }
|
|
824
|
0 |
1 |
unless exists $self->{'INDEX'}{'RUN'}{$run}
|
|
827
|
0 |
1 |
unless (defined $event)
|
|
828
|
0 |
0 |
if (defined $self->{'EVENT'}) { }
|
|
835
|
0 |
1 |
if ($event == 0) { }
|
|
|
0 |
1 |
elsif ($event < 0) { }
|
|
842
|
0 |
1 |
unless exists $self->{'INDEX'}{'RUN'}{$run}{'EVENT'}{$event}
|
|
849
|
0 |
0 |
unless defined $fh
|
|
857
|
0 |
0 |
unless (defined $event)
|
|
858
|
0 |
0 |
if (defined $self->{'EVENT'}) { }
|
|
865
|
0 |
0 |
if $event < 0
|
|
870
|
0 |
0 |
if $pnext == $pstart
|
|
872
|
0 |
0 |
unless (/^(\d+)(.)(.*)\s*$/u)
|
|
880
|
0 |
0 |
if ($cc eq "*")
|
|
881
|
0 |
0 |
if ($rest =~ /^start\s+run\s*(\d+)\s*\\?\@\s*([\d\.]+)/iu) { }
|
|
|
0 |
0 |
elsif ($rest =~ /^event\s*(\d+)\s*run\s*(\d+)/iu) { }
|
|
|
0 |
0 |
elsif ($rest =~ /^stop\s+run\s*(\d+)/iu) { }
|
|
885
|
0 |
0 |
if ($foundrun and $gotrun != $run)
|
|
895
|
0 |
0 |
if ($foundrun and $gotrun != $run)
|
|
901
|
0 |
0 |
if ($foundrun)
|
|
902
|
0 |
0 |
if $event == 0 or $event == $gotev
|
|
904
|
0 |
0 |
if $foundevent
|
|
909
|
0 |
0 |
if ($foundrun)
|
|
918
|
0 |
0 |
if $wrapped
|
|
919
|
0 |
0 |
if $foundrun and $foundevent
|
|
924
|
0 |
0 |
unless ($foundrun and $foundevent)
|
|
941
|
0 |
0 |
if (defined $in)
|
|
943
|
0 |
0 |
if (ref $in eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $in eq '') { }
|
|
949
|
0 |
0 |
unless $k =~ /^_tail\d+$/u
|
|
958
|
0 |
0 |
unless defined $self->{'FILEHEADER'}
|
|
962
|
0 |
0 |
if $s == 0
|
|
963
|
0 |
0 |
if defined $stream and not exists $stream->{$s}
|
|
965
|
0 |
0 |
unless defined $aType
|
|
967
|
0 |
0 |
unless $dirty
|
|
971
|
0 |
0 |
if $dirty
|
|
979
|
1 |
0 |
unless defined $self->{'FILEHEADER'}
|
|
981
|
1 |
1 |
if $str == 0
|
|
982
|
1 |
0 |
if (not defined $instr or $instr == $str)
|
|
984
|
0 |
1 |
if (defined $inmod) { }
|
|
985
|
0 |
0 |
if (not $inmod =~ /::/u || -e "$inmod.pm" and defined $defmod and $defmod =~ /::$inmod$/u)
|
|
995
|
0 |
1 |
unless (defined $inmod)
|
|
999
|
1 |
0 |
unless (exists $Lab::Data::Analysis::_LOADED->{$inmod})
|
|
1001
|
0 |
1 |
if $@
|
|
1008
|
1 |
0 |
unless exists $self->{'FILEHEADER'}{'STREAM'}{$str}{'ANALYSIS'}
|
|
1012
|
0 |
1 |
unless defined $a
|
|
1024
|
0 |
2 |
if $str == 0
|
|
1025
|
0 |
2 |
unless defined $self->{'FILEHEADER'}
|
|
1026
|
0 |
2 |
unless exists $self->{'FILEHEADER'}{'STREAM'}{$str}
|
|
1032
|
0 |
2 |
unless $con =~ /$aMatch/u
|
|
1045
|
0 |
1 |
if (not defined $event or ref $event ne "HASH")
|
|
1049
|
0 |
1 |
unless exists $self->{'FILEHEADER'}
|
|
1050
|
0 |
1 |
unless exists $self->{'FILEHEADER'}{'STREAM'}
|
|
1051
|
1 |
0 |
unless defined $opts
|
|
1055
|
0 |
1 |
if (defined $str)
|
|
1056
|
0 |
0 |
if (ref $str eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $str eq '') { }
|
|
1065
|
0 |
0 |
unless $k =~ /^_tail\d+/iu
|
|
1066
|
0 |
0 |
unless $tail->{$k} =~ /^\d+$/u
|
|
1081
|
2 |
0 |
if (not defined $stream or exists $stream->{$s})
|
|
1083
|
1 |
1 |
unless exists $self->{'FILEHEADER'}{'STREAM'}{$s}{'ANALYSIS'}
|
|
1091
|
0 |
1 |
unless (defined $event)
|