| line |
true |
false |
branch |
|
21
|
7 |
1 |
defined &utf8::is_utf8 ? : |
|
22
|
7 |
1 |
defined &B::perlstring ? : |
|
23
|
0 |
8 |
defined &builtin::is_bool ? : |
|
24
|
0 |
8 |
defined &builtin::created_as_number ? : |
|
25
|
0 |
8 |
&_HAVE_PERLSTRING() && "$]" == 5.01 ? : |
|
26
|
7 |
1 |
!$ENV{'SUB_QUOTE_NO_HEX_FLOAT'} && "$]" >= 5.022 ? : |
|
32
|
0 |
0 |
$nvsize == 256 ? : |
|
|
0 |
0 |
$nvsize == 128 ? : |
|
|
0 |
0 |
$nvsize == 80 ? : |
|
|
8 |
0 |
$nvsize == 64 ? : |
|
|
0 |
8 |
$nvsize == 32 ? : |
|
|
0 |
8 |
$nvsize == 16 ? : |
|
106
|
33 |
234 |
$max_factor > 0 ? : |
|
111
|
399 |
21 |
if $ex == 0 |
|
113
|
261 |
159 |
if ($formatted == $num) |
|
114
|
3 |
258 |
if ($ex) |
|
115
|
3 |
0 |
$ex_sign == 1 ? : |
|
|
0 |
3 |
$ex > 53 ? : |
|
136
|
8 |
2 |
$value eq sin(9**9**9) ? : |
|
|
1 |
12 |
sprintf('%g', $value) eq '-0' ? : |
|
|
197 |
132 |
$value > 0 ? : |
|
|
329 |
267 |
!($value =~ /[e.]/i) ? : |
|
|
9 |
596 |
$value == 0 ? : |
|
|
6 |
605 |
$value == -9**9**9 ? : |
|
|
6 |
611 |
$value == 9**9**9 ? : |
|
|
6 |
617 |
$value != $value ? : |
|
|
3 |
1834 |
!length($value) && length((my $dummy2 = '') & $value) ? : |
|
|
623 |
1837 |
!utf8::is_utf8($value) && length((my $dummy = '') & $value) && 0 + $value eq $value ? : |
|
|
3 |
2460 |
!defined($value) ? : |
|
157
|
2 |
86 |
unless /^([\@\%\$])/ |
|
166
|
1 |
7 |
unless defined $args |
|
169
|
1 |
7 |
if ($code =~ s/^(\s*package\s+([a-zA-Z0-9:]+);)//) |
|
172
|
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 '@_') { } |
|
178
|
1 |
2 |
if ($code_args ne $args) |
|
183
|
1 |
2 |
$local ? : |
|
195
|
16 |
43 |
ref $_[-1] eq 'HASH' && ref $_[-2] eq 'HASH' ? : |
|
199
|
19 |
40 |
ref $_[-1] eq 'HASH' ? : |
|
200
|
14 |
45 |
if $captures and not keys %$captures |
|
203
|
21 |
38 |
if ($name) |
|
205
|
20 |
1 |
$subname =~ s/(.*)::// ? : |
|
207
|
2 |
19 |
if length $package > 252 |
|
209
|
2 |
17 |
unless $package =~ /^[^\d\W]\w*(?:::\w+)*$/ |
|
211
|
1 |
16 |
if length $subname > 252 |
|
213
|
2 |
14 |
unless $subname =~ /^[^\d\W]\w*$/ |
|
218
|
3 |
49 |
if ($attributes) |
|
229
|
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 ? : |
|
236
|
4 |
47 |
if ($options->{'no_defer'}) { } |
|
240
|
1 |
3 |
if $name and not $options->{'no_install'} |
|
252
|
1 |
46 |
$options->{'no_install'} ? : |
|
|
1 |
46 |
$attributes ? : |
|
|
12 |
35 |
$name ? : |
|
267
|
1 |
40 |
if $file |
|
271
|
2 |
39 |
if ($line) |
|
273
|
1 |
1 |
if ($file) |
|
299
|
2 |
8 |
unless my $quoted_info = $QUOTED{$sub or ""} |
|
304
|
7 |
1 |
if ($deferred and $deferred eq $sub or $unquoted and $unquoted eq $sub) |
|
313
|
1 |
42 |
unless my $quoted_info = $QUOTED{$sub} |
|
315
|
40 |
2 |
unless ($unquoted and $$unquoted) |
|
319
|
13 |
27 |
if $name |
|
322
|
5 |
35 |
$captures ? : |
|
326
|
13 |
26 |
$name ? : |
|
|
2 |
37 |
$attributes ? : |
|
|
13 |
26 |
$name ? : |
|
345
|
12 |
27 |
if (my $debug = $ENV{'SUB_QUOTE_DEBUG'}) |
|
346
|
9 |
3 |
if ($debug =~ /^([^\W\d]\w*(?:::\w+)*(?:::)?)$/) { } |
|
|
2 |
1 |
elsif ($debug =~ m[\A/(.*)/\z]s) { } |
|
348
|
2 |
4 |
$filter =~ /::/ ? : |
|
|
3 |
6 |
$filter =~ /::$/ ? : |
|
352
|
5 |
4 |
if $match eq $filter |
|
357
|
1 |
1 |
if $code =~ /$filter/ |
|
366
|
13 |
26 |
if $name |
|
373
|
2 |
37 |
unless ($success) |
|
392
|
2 |
3 |
$_->{'unquoted'} && ${$_->{'unquoted'};} ? : |
|
|
4 |
1 |
$_->{'deferred'} ? : |
|
|
5 |
3 |
defined $_ ? : |