Condition Coverage

blib/lib/Tie/REHash.pm
Criterion Covered Total %
condition 47 102 46.0


and 2 conditions

line l !l condition
926 3 0 $cach and $self->{'ESC'}{$k} = 1
3 0 $cach and $self->{'ESC'}{$k} = 1 and $cach->{$k} = undef
17 2 ref $_ eq 'Regexp' and not exists $self->{'ESC2'}{$_} and return 1
11 5 $k eq $regx->[$_] and splice @$regx, $_, 1
6 10 $_ =~ /$k/ and delete $element->{$_}

and 3 conditions

line !l l&&!r l&&r condition
926 15 3 2 exists $self->{'DYN2'}{$k} && !$esc
0 87 54 $_ ne $cach and $_ ne $first_element2
15 1 4 exists $self->{'DYN2'}{$_} && !$esc
0 0 0 exists $self->{'DYN2'}{$_} && !$esc
13 2 2 exists $self->{'DYN'}{$k} && !$esc
0 0 0 exists $self->{'DYN'}{$k} && !$esc
0 6 3 $self->{'CMIS2'} and $self->{'CMIS2'} < @{$self->{'REGX'};}
0 0 3 $rem_2 && !$self->SCALAR
0 0 0 $rem_esc_2 and my $esc_key = $esc->{$k}
0 0 0 !defined($element2_k_is_2) && $over_element2 && exists $element2->{$k} && $k =~ /$element/ && ($element2_k_is_2 = $esc_key ? exists $esc2->{$element} ? 1 : 0 : $element2->{$k} eq $regx2->{$element})
0 0 0 not defined $element2_k_is_2 and $esc_key
0 0 0 not defined $element2_k_is_2 and $esc_key and exists $element2->{$k}
0 0 0 ref $element eq 'HASH' && delete $element->{$k}
8 0 3 @{$self->{'REGX'};} == 1 and ref $self->{'REGX'}[0] eq 'HASH'
8 0 3 @{$self->{'REGX'};} == 1 and ref $self->{'REGX'}[0] eq 'HASH' and not %{$self->{'ESC'};}
6 11 2 ref $_ eq 'Regexp' and not exists $self->{'ESC2'}{$_}
16 0 0 $self->{'DELIM'} and $self->{'DELIM'} <= CORE::keys %$element
0 0 0 $_ =~ /$k/ and delete $cach->{$_}
13 3 2 $esc and @{$self->{'REGX'};} == 1
16 0 2 $esc and @{$self->{'REGX'};} == 1 and ref $self->{'REGX'}[0] eq 'HASH'
16 0 0 ref $_ eq 'Regexp' and $k =~ /$_/

or 2 conditions

line l !l condition
924 0 14 $AD{$Tie::REHash::AUTOLOAD} || scalar($Tie::REHash::AUTOLOAD =~ /::(\w+)$/, $AD{$1})

or 3 conditions

line l !l&&r !l&&!r condition
926 0 0 5 ref $_[1] eq 'REF' || ref $_[1] eq 'SCALAR'
6 11 30 ref $_[1] eq 'REF' || ref $_[1] eq 'SCALAR'
0 0 0 exists $self->{'DYN2'}{$element} || exists $self->{'ESC2'}{$element}
0 0 0 exists $self->{'DYN'}{$k} || exists $self->{'ESC'}{$k}
0 0 0 $rem_all_2 or $rem_esc_2 and my $esc_key = $esc->{$k}
0 0 6 $cach || ()
0 0 0 $cach || ()
10 7 6 ref $_[1] eq 'REF' || ref $_[1] eq 'SCALAR'
10 0 16 ref $element eq 'Regexp' or $self->{'DELIM'} and $self->{'DELIM'} <= CORE::keys %$element