| line |
true |
false |
branch |
|
926
|
5 |
5 |
unless exists $self->{'ESC2'}{$element = $self->{'REGX'}[-1]} |
|
|
0 |
1 |
if @_ > 1 |
|
|
0 |
1 |
if $self->{'CACH'} |
|
|
0 |
0 |
ref $_[2] eq 'CODE' ? : |
|
|
0 |
5 |
ref $_[1] eq 'REF' || ref $_[1] eq 'SCALAR' ? : |
|
|
5 |
0 |
if (ref $k eq 'Regexp') |
|
|
3 |
5 |
!ref($_[1]) ? : |
|
|
0 |
3 |
unless my $value = $_[0]->FETCH($k, 'sr') |
|
|
17 |
30 |
ref $_[1] eq 'REF' || ref $_[1] eq 'SCALAR' ? : |
|
|
0 |
2 |
$type eq 'sr' ? : |
|
|
0 |
18 |
$type eq 'sr' ? : |
|
|
2 |
18 |
exists $self->{'DYN2'}{$k} && !$esc ? : |
|
|
6 |
20 |
$type eq 'ex' ? : |
|
|
9 |
26 |
exists $self->{'ESC2'}{$k} ? : |
|
|
35 |
1 |
if exists $self->{'REGX2'}{$k} |
|
|
36 |
11 |
if (ref $k eq 'Regexp') |
|
|
76 |
47 |
!ref($_[1]) ? : |
|
|
0 |
87 |
unless ref($first_element2 = $self->{'REGX'}[0]) eq 'HASH' |
|
|
87 |
0 |
!$cach ? : |
|
|
54 |
87 |
if $_ ne $cach and $_ ne $first_element2 |
|
|
6 |
48 |
unless $k =~ /$_/ |
|
|
16 |
0 |
!$cach2 ? : |
|
|
0 |
0 |
!$cach2 ? : |
|
|
4 |
0 |
!$cach2 ? : |
|
|
0 |
4 |
$type eq 'sr' ? : |
|
|
2 |
0 |
!$cach2 ? : |
|
|
14 |
0 |
!$cach2 ? : |
|
|
2 |
14 |
$type eq 'sr' ? : |
|
|
4 |
16 |
exists $self->{'DYN2'}{$_} && !$esc ? : |
|
|
12 |
20 |
$type eq 'ex' ? : |
|
|
16 |
32 |
exists $self->{'ESC2'}{$_} ? : |
|
|
0 |
0 |
$type eq 'sr' ? : |
|
|
0 |
0 |
$type eq 'sr' ? : |
|
|
0 |
0 |
exists $self->{'DYN2'}{$_} && !$esc ? : |
|
|
0 |
0 |
$type eq 'ex' ? : |
|
|
0 |
0 |
exists $self->{'ESC2'}{$_} ? : |
|
|
48 |
0 |
if ($self->{'CHIT2'}) { } |
|
|
57 |
30 |
unless exists $_->{$k} |
|
|
9 |
0 |
!$cach2 ? : |
|
|
0 |
0 |
$_ eq $cach ? : |
|
|
0 |
0 |
!$cach2 ? : |
|
|
0 |
2 |
$_ eq $cach ? : |
|
|
2 |
0 |
!$cach2 ? : |
|
|
0 |
2 |
$type eq 'sr' ? : |
|
|
0 |
1 |
$_ eq $cach ? : |
|
|
1 |
0 |
!$cach2 ? : |
|
|
0 |
14 |
$_ eq $cach ? : |
|
|
14 |
0 |
!$cach2 ? : |
|
|
1 |
14 |
$type eq 'sr' ? : |
|
|
2 |
15 |
exists $self->{'DYN'}{$k} && !$esc ? : |
|
|
4 |
17 |
$type eq 'ex' ? : |
|
|
9 |
21 |
exists $self->{'ESC'}{$k} ? : |
|
|
0 |
0 |
$_ eq $cach ? : |
|
|
0 |
0 |
$_ eq $cach ? : |
|
|
0 |
0 |
$type eq 'sr' ? : |
|
|
0 |
0 |
$_ eq $cach ? : |
|
|
0 |
0 |
$_ eq $cach ? : |
|
|
0 |
0 |
$type eq 'sr' ? : |
|
|
0 |
0 |
exists $self->{'DYN'}{$k} && !$esc ? : |
|
|
0 |
0 |
$type eq 'ex' ? : |
|
|
0 |
0 |
exists $self->{'ESC'}{$k} ? : |
|
|
30 |
0 |
if ($self->{'CHIT2'}) { } |
|
|
54 |
87 |
if (ref $_ eq 'Regexp') { } |
|
|
3 |
6 |
if $self->{'CMIS2'} and $self->{'CMIS2'} < @{$self->{'REGX'};} |
|
|
3 |
0 |
unless $self->{'IS_NORMALIZED'} |
|
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
|
0 |
1 |
if $Global_options{'precompile'} |
|
|
0 |
1 |
if exists $Global_options{'stringref_bug_is_fixed'} |
|
|
2 |
2 |
if ref $_[0] |
|
|
0 |
0 |
unless $_[1] =~ /HASH/ |
|
|
0 |
0 |
if @_ == 3 |
|
|
0 |
2 |
if @_ - 2 * int(@_ / 2) |
|
|
0 |
2 |
if (ref $_[1]) { } |
|
|
0 |
2 |
if exists $Global_options{'autodelete_limit'} |
|
|
0 |
2 |
if exists $Global_options{'_offset2'} |
|
|
0 |
2 |
exists $Global_options{'remove_dups'} ? : |
|
|
0 |
0 |
ref $Global_options{'do_cache'} eq 'HASH' ? : |
|
|
0 |
2 |
if exists $Global_options{'do_cache'} |
|
|
0 |
2 |
exists $Global_options{'do_cache_miss'} ? : |
|
|
0 |
2 |
exists $Global_options{'do_cache_hit'} ? : |
|
|
0 |
3 |
unless $self->{'EACH'} |
|
|
0 |
3 |
wantarray ? : |
|
|
3 |
3 |
if $#{$$self{'EACH'}[1];} < $self->{'EACH'}[0] |
|
|
0 |
0 |
exists $self->{'DYN2'}{$element} || exists $self->{'ESC2'}{$element} ? : |
|
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
wantarray ? : |
|
|
0 |
3 |
wantarray ? : |
|
|
3 |
0 |
unless defined $k |
|
|
0 |
0 |
exists $self->{'DYN'}{$k} || exists $self->{'ESC'}{$k} ? : |
|
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
wantarray ? : |
|
|
0 |
3 |
if (ref $element eq 'Regexp') { } |
|
|
3 |
0 |
$rem_2 && !$self->SCALAR ? : |
|
|
0 |
3 |
$rem_2 == 2 ? : |
|
|
0 |
3 |
$rem_2 == 3 ? : |
|
|
5 |
2 |
unless ref $element2 eq 'HASH' |
|
|
0 |
0 |
ref $element eq 'HASH' ? : |
|
|
0 |
0 |
if $in_over |
|
|
0 |
0 |
if $element eq $element2 |
|
|
0 |
0 |
ref $element eq 'Regexp' ? : |
|
|
0 |
0 |
if ref $element eq 'Regexp' ? $k =~ /$element/ : $over_element2 |
|
|
0 |
0 |
if not defined $element2_k_is_2 and $esc_key and exists $element2->{$k} |
|
|
0 |
0 |
if $element2_k_is_2 |
|
|
0 |
0 |
if $in_over |
|
|
0 |
0 |
ref $element eq 'Regexp' ? : |
|
|
0 |
0 |
if ref $element eq 'Regexp' ? $k =~ /$element/ : $element eq $element2 |
|
|
0 |
0 |
if ($rem_all_2 or $rem_esc_2 and my $esc_key = $esc->{$k}) { } |
|
|
2 |
5 |
ref $_ eq 'HASH' ? : |
|
|
5 |
2 |
ref $_ ne 'HASH' ? : |
|
|
2 |
1 |
if @$regx > 1 |
|
|
0 |
3 |
if @_ > 1 |
|
|
3 |
0 |
if @{$self->{'REGX'};} == 1 and ref $self->{'REGX'}[0] eq 'HASH' and not %{$self->{'ESC'};} |
|
|
10 |
4 |
if ref $element2 eq 'Regexp' |
|
|
0 |
0 |
if exists $self->{'ESC'}{$k} |
|
|
0 |
0 |
if $element eq $element2 |
|
|
0 |
0 |
!exists $self->{'ESC2'}{$element} ? : |
|
|
0 |
0 |
$k =~ /$element/ ? : |
|
|
0 |
0 |
!exists $self->{'ESC'}{$k} ? : |
|
|
0 |
0 |
exists $element->{$k} ? : |
|
|
0 |
0 |
ref $element eq 'Regexp' ? : |
|
|
6 |
11 |
ref $_[2] eq 'CODE' ? : |
|
|
17 |
6 |
ref $_[1] eq 'REF' || ref $_[1] eq 'SCALAR' ? : |
|
|
4 |
12 |
$dyn ? : |
|
|
6 |
10 |
$esc ? : |
|
|
5 |
11 |
if (exists $self->{'REGX2'}{$k}) |
|
|
10 |
16 |
if ref $element eq 'Regexp' or $self->{'DELIM'} and $self->{'DELIM'} <= CORE::keys %$element |
|
|
0 |
16 |
if ($cach) |
|
|
6 |
10 |
$esc ? : |
|
|
16 |
7 |
if (ref $k eq 'Regexp') |
|
|
3 |
4 |
if @{$self->{'REGX'};} > 1 |
|
|
11 |
23 |
!ref($_[1]) ? : |
|
|
0 |
18 |
if $cach |
|
|
2 |
3 |
if $esc and @{$self->{'REGX'};} == 1 and ref $self->{'REGX'}[0] eq 'HASH' |
|
|
2 |
14 |
$dyn ? : |
|
|
3 |
13 |
$esc ? : |
|
|
0 |
16 |
if ref $_ eq 'Regexp' and $k =~ /$_/ |
|
|
3 |
13 |
$esc ? : |
|
|
16 |
0 |
if ref $_ eq 'HASH' |
|
|
0 |
0 |
$esc ? : |
|
|
0 |
0 |
$esc ? : |
|
927
|
0 |
14 |
if $@ |
|
929
|
14 |
0 |
if defined &$Tie::REHash::AUTOLOAD |