| line |
true |
false |
branch |
|
74
|
3 |
182 |
if $disable
|
|
75
|
140 |
42 |
unless $options
|
|
83
|
0 |
8 |
if $disable
|
|
84
|
8 |
0 |
unless $options
|
|
93
|
0 |
5 |
if $disable
|
|
94
|
5 |
0 |
unless $options
|
|
102
|
0 |
4 |
if $disable
|
|
103
|
4 |
0 |
unless $options
|
|
111
|
0 |
6 |
if $disable
|
|
112
|
6 |
0 |
unless $options
|
|
120
|
0 |
3 |
if $disable
|
|
121
|
3 |
0 |
unless $options
|
|
130
|
0 |
211 |
if ($id)
|
|
131
|
0 |
211 |
if ($id)
|
|
134
|
0 |
211 |
if ($id)
|
|
135
|
0 |
211 |
if ($flag =~ /\S+::\S+/) { }
|
|
136
|
0 |
0 |
if ($id)
|
|
137
|
0 |
0 |
if (not defined $flag) { }
|
|
138
|
0 |
0 |
if ($id)
|
|
144
|
0 |
211 |
if (not defined $$h{$flag}) { }
|
|
|
12 |
199 |
elsif (not defined ${$$h{$flag};}) { }
|
|
145
|
0 |
0 |
if ($id)
|
|
148
|
0 |
12 |
if ($id)
|
|
155
|
0 |
211 |
unless (defined $D)
|
|
156
|
0 |
0 |
if ($id)
|
|
160
|
0 |
211 |
if ($id)
|
|
163
|
0 |
211 |
if ($D < 0) { }
|
|
164
|
0 |
0 |
unless ($id)
|
|
168
|
0 |
211 |
if ($id)
|
|
172
|
192 |
19 |
if ($D >= $level) { }
|
|
175
|
0 |
19 |
if ($id)
|
|
183
|
0 |
208 |
if ($id)
|
|
184
|
0 |
208 |
if ($id)
|
|
187
|
0 |
208 |
if ($id)
|
|
192
|
0 |
208 |
if ($id)
|
|
194
|
40 |
45 |
if ($o =~ /([0-9])/) { }
|
|
|
20 |
25 |
elsif ($o =~ /[bcenqrstxz]/) { }
|
|
|
8 |
17 |
elsif ($o =~ /[BCENQRSTXZ]/) { }
|
|
|
17 |
0 |
elsif ($o eq '*') { }
|
|
206
|
0 |
208 |
if ($id)
|
|
207
|
0 |
208 |
if ($id)
|
|
209
|
19 |
189 |
unless checkLevel($h, $opt{'level'})
|
|
211
|
1 |
188 |
unless ($globalPrintCounter)
|
|
213
|
0 |
1 |
$^O =~ /Win/ ? :
|
|
215
|
0 |
1 |
if ($windows) { }
|
|
227
|
0 |
189 |
if ($id)
|
|
231
|
0 |
189 |
unless (defined $vars)
|
|
237
|
0 |
189 |
if ($id)
|
|
241
|
0 |
189 |
if ($id)
|
|
245
|
12 |
177 |
if ($vars =~ s/^([^\$\@\%]+)(.*)/$2/)
|
|
248
|
182 |
7 |
if ($vars =~ s/(.*[\$\@\%][^\s\\]+)(.*)$/$1/)
|
|
251
|
0 |
189 |
if ($id)
|
|
252
|
0 |
189 |
if ($id)
|
|
253
|
0 |
189 |
if ($id)
|
|
258
|
0 |
189 |
if ($id)
|
|
259
|
0 |
189 |
if ($id)
|
|
267
|
0 |
189 |
if ($id)
|
|
268
|
0 |
189 |
if ($id)
|
|
272
|
0 |
189 |
if ($id)
|
|
273
|
181 |
8 |
if (@vars and not $opt{'text'}) { }
|
|
274
|
0 |
181 |
if ($id)
|
|
277
|
181 |
12 |
$i == 0 ? :
|
|
278
|
0 |
193 |
if ($id)
|
|
279
|
181 |
12 |
$i == $#vars ? :
|
|
280
|
0 |
193 |
if ($id)
|
|
282
|
0 |
193 |
if ($id)
|
|
284
|
0 |
193 |
if ($id and defined $dump)
|
|
285
|
178 |
15 |
if defined $dump
|
|
288
|
0 |
8 |
if ($id)
|
|
291
|
0 |
8 |
if ($prefix =~ /^(SCALAR|ARRAY|HASH|REF|CODE|GLOB)\(0x/)
|
|
304
|
0 |
193 |
if ($id)
|
|
307
|
0 |
193 |
if ($id)
|
|
309
|
0 |
193 |
if ($id)
|
|
317
|
0 |
193 |
if ($id)
|
|
325
|
0 |
2 |
if ($id)
|
|
327
|
0 |
2 |
if ($id)
|
|
329
|
0 |
2 |
if ($id)
|
|
334
|
0 |
2 |
if ($id)
|
|
336
|
0 |
2 |
if ($id)
|
|
340
|
31 |
162 |
if ($var =~ /^(\$)([^\[\{\]\}]+)([\[\{])(\S+)([\]\}])$/) { }
|
|
343
|
0 |
31 |
if ($id)
|
|
345
|
0 |
31 |
if ($id)
|
|
347
|
14 |
17 |
if ($opened eq '[' and $closed eq ']') { }
|
|
|
17 |
0 |
elsif ($opened eq '{' and $closed eq '}') { }
|
|
348
|
0 |
14 |
if ($id)
|
|
353
|
1 |
13 |
if ($element =~ /:/) { }
|
|
|
1 |
12 |
elsif ($element =~ /[^-\d\[\]]/) { }
|
|
363
|
0 |
17 |
if ($id)
|
|
374
|
0 |
29 |
if ($id)
|
|
377
|
13 |
16 |
if ($varbase =~ s/->//) { }
|
|
381
|
0 |
13 |
if ($id)
|
|
395
|
0 |
29 |
if ($id)
|
|
400
|
4 |
158 |
if ($var =~ /^(\$_|\@_|\$[1-9]\d*|\$\&)$/) { }
|
|
|
9 |
149 |
elsif ($var =~ /^(\$0|\$\$|\$\?|\$\.|\@ARGV|\$LIST_SEPARATOR|\$PROCESS_ID|\$PID|\$PROGRAM_NAME|\$REAL_GROUP_ID|\$GID|\$EFFECTIVE_GROUP_ID|\$EGID\|\$REAL_USER_ID|\$UID|\$EFFECTIVE_USER_ID|\$EID|\$SUBSCRIPT_SEPARATOR|\$SUBSEP|\%ENV|\@INC|\$INPLACE_EDIT|\$OSNAME|\%SIG|\$BASETIME|\$PERL_VERSION|\$EXECUTABLE_NAME|\$MATCH|\$PREMATCH|\$POSTMATCH|\$ARGV|\@ARGV|\$OUTPUT_FIELD_SEPARATOR|\$INPUT_LINE_NUMBER|\$NR|\$INPUT_RECORD_SEPARATOR|\$RS|\$OUTPUT_RECORD_SEPARATOR|\$ORS|\$OUTPUT_AUTOFLUSH)$/ or $var =~ /^[\$\@\%]{?[a-zA-Z_][\w:{}\[\]]*$/ and $var =~ /::/) { }
|
|
|
1 |
148 |
elsif ($var =~ /^(\@)([^\[\{\]\}]+)([\[\{])(\S*:\S*)([\]\}])$/) { }
|
|
|
147 |
1 |
elsif ($var =~ /^[\$\@\%]{?[a-zA-Z_][\w{}\[\]]*$/) { }
|
|
|
1 |
0 |
elsif ($var =~ /^\$#/) { }
|
|
|
0 |
0 |
elsif ($var =~ /^[\$\@\%]/) { }
|
|
438
|
0 |
0 |
if ($id)
|
|
444
|
7 |
169 |
unless (defined $reference)
|
|
450
|
0 |
169 |
if ($id)
|
|
454
|
0 |
169 |
if ($id)
|
|
456
|
52 |
117 |
if ($$opt{'compress'})
|
|
457
|
32 |
20 |
if (not $ref =~ /^SCALAR/ or $newsigil ne '$')
|
|
461
|
0 |
169 |
if ($id)
|
|
468
|
0 |
9 |
if ($id)
|
|
469
|
9 |
0 |
if ($var =~ /^([\$\@\%])/) { }
|
|
474
|
5 |
4 |
if ($sigil eq '$') { }
|
|
|
2 |
2 |
elsif ($sigil eq '@') { }
|
|
|
2 |
0 |
elsif ($sigil eq '%') { }
|
|
484
|
0 |
0 |
if $id
|
|
487
|
0 |
0 |
if $id
|
|
495
|
0 |
178 |
if ($id)
|
|
499
|
53 |
125 |
if ($$opt{'compress'}) { }
|
|
506
|
2 |
176 |
if ($$opt{'Sort'} and $ref eq 'ARRAY') { }
|
|
511
|
0 |
178 |
if ($id)
|
|
515
|
4 |
174 |
if ($$opt{'Elements'})
|
|
517
|
2 |
2 |
if ($ref eq 'ARRAY') { }
|
|
|
2 |
0 |
elsif ($ref eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { }
|
|
530
|
1 |
177 |
if ($$opt{'tRuncate'})
|
|
532
|
1 |
0 |
if ($dump =~ s/\A($severalLines).*$/$1/s)
|
|
542
|
0 |
188 |
if ($id)
|
|
554
|
6 |
182 |
if $level >= 2
|
|
555
|
0 |
188 |
if ($id)
|
|
560
|
186 |
2 |
if ($printdebug)
|
|
562
|
186 |
0 |
if ($printdebugsub =~ s/([:-=>])$//)
|
|
566
|
0 |
186 |
if ($id)
|
|
568
|
0 |
188 |
if ($id)
|
|
571
|
183 |
5 |
if ($$opt{'printSub'})
|
|
573
|
183 |
0 |
if ($printcaller ne '')
|
|
578
|
0 |
183 |
if ($id)
|
|
579
|
182 |
1 |
if $printdebug and $printcaller ne ''
|
|
581
|
0 |
183 |
if ($id)
|
|
585
|
2 |
186 |
if $$opt{'Chomp'}
|
|
589
|
1 |
187 |
if $$opt{'Timestamp'}
|
|
593
|
2 |
186 |
if ($$opt{'LineNumber'})
|
|
599
|
187 |
1 |
if $printdebug or $$opt{'printSub'}
|
|
600
|
0 |
188 |
if ($id)
|
|
602
|
180 |
8 |
if ($var) { }
|
|
609
|
1 |
187 |
if $$opt{'die'}
|
|
619
|
0 |
3 |
if $disable
|
|
620
|
3 |
0 |
unless $level
|
|
621
|
0 |
3 |
if ($id)
|
|
623
|
0 |
3 |
unless checkLevel($h, $level)
|
|
624
|
0 |
3 |
$^O =~ /Win/ ? :
|
|
627
|
0 |
3 |
if ($windows) { }
|
|
632
|
0 |
3 |
if ($id)
|
|
634
|
1 |
2 |
if (-d $file or -f $file) { }
|
|
|
0 |
2 |
elsif (-f $file) { }
|
|
641
|
1 |
1 |
if ($file =~ /^\$/)
|
|
647
|
0 |
2 |
if ($id)
|
|
681
|
0 |
378 |
if ($id)
|
|
688
|
0 |
31 |
if ($id)
|