| line |
true |
false |
branch |
|
15
|
7 |
1 |
defined &utf8::is_utf8 ? :
|
|
16
|
7 |
1 |
defined &B::perlstring ? :
|
|
17
|
0 |
8 |
&_HAVE_PERLSTRING() && "$]" == 5.01 ? :
|
|
18
|
7 |
1 |
!$ENV{'SUB_QUOTE_NO_HEX_FLOAT'} && "$]" >= 5.022 ? :
|
|
24
|
0 |
0 |
$nvsize == 256 ? :
|
|
|
0 |
0 |
$nvsize == 128 ? :
|
|
|
0 |
0 |
$nvsize == 80 ? :
|
|
|
8 |
0 |
$nvsize == 64 ? :
|
|
|
0 |
8 |
$nvsize == 32 ? :
|
|
|
0 |
8 |
$nvsize == 16 ? :
|
|
89
|
33 |
129 |
$max_factor > 0 ? :
|
|
94
|
294 |
21 |
if $ex == 0
|
|
96
|
156 |
159 |
if ($formatted == $num)
|
|
97
|
3 |
153 |
if ($ex)
|
|
98
|
3 |
0 |
$ex_sign == 1 ? :
|
|
|
0 |
3 |
$ex > 53 ? :
|
|
119
|
11 |
2 |
$value eq sin(9**9**9) ? :
|
|
|
4 |
12 |
sprintf('%g', $value) eq '-0' ? :
|
|
|
197 |
132 |
$value > 0 ? :
|
|
|
329 |
162 |
!($value =~ /[e.]/i) ? :
|
|
|
12 |
491 |
$value == 0 ? :
|
|
|
6 |
503 |
$value == -9**9**9 ? :
|
|
|
6 |
509 |
$value == 9**9**9 ? :
|
|
|
9 |
515 |
$value != $value ? :
|
|
|
3 |
1834 |
!length($value) && length((my $dummy2 = '') & $value) ? :
|
|
|
524 |
1837 |
!utf8::is_utf8($value) && length((my $dummy = '') & $value) && 0 + $value eq $value ? :
|
|
|
3 |
2361 |
!defined($value) ? :
|
|
140
|
2 |
86 |
unless /^([\@\%\$])/
|
|
149
|
1 |
7 |
unless defined $args
|
|
152
|
1 |
7 |
if ($code =~ s/^(\s*package\s+([a-zA-Z0-9:]+);)//)
|
|
155
|
3 |
5 |
if ($code =~ s/
\A((?:\#\ BEGIN\ quote_sub\ PRELUDE\n.*?\#\ END\ quote_sub\ PRELUDE\n)?\s*)
(^\s*) my \s* \(([^)]+)\) \s* = \s* \@_;
//msx) { }
|
|
|
3 |
2 |
elsif ($local or $args ne '@_') { }
|
|
161
|
1 |
2 |
if ($code_args ne $args)
|
|
166
|
1 |
2 |
$local ? :
|
|
178
|
16 |
43 |
ref $_[-1] eq 'HASH' && ref $_[-2] eq 'HASH' ? :
|
|
182
|
19 |
40 |
ref $_[-1] eq 'HASH' ? :
|
|
183
|
14 |
45 |
if $captures and not keys %$captures
|
|
186
|
21 |
38 |
if ($name)
|
|
188
|
20 |
1 |
$subname =~ s/(.*)::// ? :
|
|
190
|
2 |
19 |
if length $package > 252
|
|
192
|
2 |
17 |
unless $package =~ /^[^\d\W]\w*(?:::\w+)*$/
|
|
194
|
1 |
16 |
if length $subname > 252
|
|
196
|
2 |
14 |
unless $subname =~ /^[^\d\W]\w*$/
|
|
201
|
3 |
49 |
if ($attributes)
|
|
212
|
2 |
49 |
exists $options->{'package'} ? :
|
|
|
3 |
48 |
exists $options->{'hints'} ? :
|
|
|
1 |
50 |
exists $options->{'warning_bits'} ? :
|
|
|
3 |
48 |
exists $options->{'hintshash'} ? :
|
|
|
2 |
49 |
$attributes ? :
|
|
|
1 |
50 |
$file ? :
|
|
|
2 |
49 |
$line ? :
|
|
219
|
4 |
47 |
if ($options->{'no_defer'}) { }
|
|
223
|
1 |
3 |
if $name and not $options->{'no_install'}
|
|
235
|
1 |
46 |
$options->{'no_install'} ? :
|
|
|
1 |
46 |
$attributes ? :
|
|
|
12 |
35 |
$name ? :
|
|
250
|
1 |
40 |
if $file
|
|
254
|
2 |
39 |
if ($line)
|
|
256
|
1 |
1 |
if ($file)
|
|
282
|
2 |
8 |
unless my $quoted_info = $QUOTED{$sub or ''}
|
|
287
|
7 |
1 |
if ($deferred and $deferred eq $sub or $unquoted and $unquoted eq $sub)
|
|
296
|
1 |
42 |
unless my $quoted_info = $QUOTED{$sub}
|
|
298
|
40 |
2 |
unless ($unquoted and $$unquoted)
|
|
302
|
13 |
27 |
if $name
|
|
305
|
5 |
35 |
$captures ? :
|
|
309
|
13 |
26 |
$name ? :
|
|
|
2 |
37 |
$attributes ? :
|
|
|
13 |
26 |
$name ? :
|
|
328
|
12 |
27 |
if (my $debug = $ENV{'SUB_QUOTE_DEBUG'})
|
|
329
|
9 |
3 |
if ($debug =~ /^([^\W\d]\w*(?:::\w+)*(?:::)?)$/) { }
|
|
|
2 |
1 |
elsif ($debug =~ m[\A/(.*)/\z]s) { }
|
|
331
|
2 |
4 |
$filter =~ /::/ ? :
|
|
|
3 |
6 |
$filter =~ /::$/ ? :
|
|
335
|
5 |
4 |
if $match eq $filter
|
|
340
|
1 |
1 |
if $code =~ /$filter/
|
|
349
|
13 |
26 |
if $name
|
|
356
|
2 |
37 |
unless ($success)
|
|
375
|
2 |
3 |
$_->{'unquoted'} && ${$_->{'unquoted'};} ? :
|
|
|
4 |
1 |
$_->{'deferred'} ? :
|
|
|
5 |
3 |
defined $_ ? :
|