| blib/lib/Sub/Quote.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 49 | 61 | 80.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 17 | 1 | 7 | 0 | &_HAVE_PERLSTRING() && "$]" == 5.01 |
| 18 | 1 | 0 | 7 | !$ENV{'SUB_QUOTE_NO_HEX_FLOAT'} && "$]" >= 5.022 |
| 119 | 1747 | 90 | 524 | !utf8::is_utf8($value) && length((my $dummy = '') & $value) && 0 + $value eq $value |
| 1829 | 5 | 3 | !length($value) && length((my $dummy2 = '') & $value) | |
| 178 | 40 | 3 | 16 | ref $_[-1] eq 'HASH' && ref $_[-2] eq 'HASH' |
| 183 | 40 | 5 | 14 | $captures and not keys %$captures |
| 223 | 2 | 1 | 1 | $name and not $options->{'no_install'} |
| 271 | 3 | 0 | 0 | ref $hintshash->{$_} && $hintshash->{$_} =~ /\A(?:\w+(?:::\w+)*=)?[A-Z]+\(0x[[0-9a-fA-F]+\)\z/ |
| 286 | 0 | 3 | 5 | $unquoted &&= $$unquoted |
| 287 | 2 | 2 | 4 | $deferred and $deferred eq $sub |
| 0 | 1 | 3 | $unquoted and $unquoted eq $sub | |
| 298 | 0 | 40 | 2 | $unquoted and $$unquoted |
| 375 | 1 | 2 | 2 | $_->{'unquoted'} && ${$_->{'unquoted'};} |
| line | l | !l | condition |
|---|---|---|---|
| 151 | 7 | 1 | $extra || '' |
| 250 | 1 | 0 | $line ||= 1 |
| 282 | 10 | 0 | $sub or '' |
| 331 | 2 | 0 | $name || '__ANON__' |
| 3 | 1 | $name || '__ANON__' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 155 | 1 | 2 | 2 | $local or $args ne '@_' |
| 203 | 2 | 1 | 0 | /\A\w+(?:\(.*\))?\z/s or croak("invalid attribute $_") |
| 246 | 6 | 41 | 0 | $info->{'context'} ||= do { my($package, $hints, $warning_bits, $hintshash, $file, $line) = @{$info;}{'package', 'hints', 'warning_bits', 'hintshash', 'file', 'line'}; $line ||= 1 if $file; my $line_mark = ''; if ($line) { $line_mark = '#line ' . ($line - 1); if ($file) { $line_mark .= qq[ "$file"]; } ; $line_mark .= "\n"; } ; $info->{'context'} = "# BEGIN quote_sub PRELUDE\n" . "package $package;\n" . "BEGIN {\n" . ' $^H = ' . quotify($hints) . ";\n" . ' ${^WARNING_BITS} = ' . quotify($warning_bits) . ";\n" . " %^H = (\n" . join('', map((' ' . quotify($_) . ' => ' . quotify($hintshash->{$_}) . ",\n"), grep((!(ref $hintshash->{$_} && $hintshash->{$_} =~ /\A(?:\w+(?:::\w+)*=)?[A-Z]+\(0x[[0-9a-fA-F]+\)\z/)), keys %$hintshash))) . " );\n" . "}\n" . $line_mark . "# END quote_sub PRELUDE\n" } |
| 287 | 4 | 3 | 1 | $deferred and $deferred eq $sub or $unquoted and $unquoted eq $sub |