Condition Coverage

lib/CPANPLUS/YACSmoke/ReAssemble.pm
Criterion Covered Total %
condition 15 177 8.4


and 2 conditions

line l !l condition
2524 0 0 ref $_[0][$atom] eq 'HASH' and return $atom

and 3 conditions

line !l l&&!r l&&r condition
355 0 0 0 $qm and $1 eq '\\L' || $1 eq '\\U'
375 0 0 0 $unroll_plus and $qualifier =~ s/\A\+(\?)?\Z/*/
398 0 0 0 $unroll_plus && $qualifier =~ s/\A\+(\?)?\Z/*/
409 0 0 0 $unroll_plus && $qualifier =~ s/\A\+(\?)?\Z/*/
477 0 0 0 $unroll_plus && $qualifier =~ s/\A\+(\?)?\Z/*/
594 4 0 0 $self->{'pre_filter'} and not $self->{'pre_filter'}->($record)
601 4 0 0 $self->{'filter'} and not $self->{'filter'}->(@$list)
715 0 0 0 $self->{'filter'} and not $self->{'filter'}->(@_)
793 0 0 0 defined $pre_filter and ref $pre_filter ne 'CODE'
837 0 0 0 defined $filter and ref $filter ne 'CODE'
891 0 3 0 not exists $arg->{'indent'} and $self->{'indent'} > 0
892 3 0 0 exists $arg->{'indent'} and $arg->{'indent'} > 0
1077 0 0 0 defined $-[$n] and defined $+[$n]
1284 0 0 0 defined $self->{'str'} && $self->{'str'} ne $CPANPLUS::YACSmoke::ReAssemble::Always_Fail
1958 4 0 0 @in == 1 and !defined($in[0]) || $in[0] eq ''
2105 0 0 0 @$old_path and _node_eq($old_path->[0], $token)
2154 0 0 0 @$path_end and _node_eq($path_end->[0], $token)
2279 0 3 0 @$tail > 1 and ref $tail->[0] eq 'HASH'
3 0 0 @$tail > 1 and ref $tail->[0] eq 'HASH' and keys %{$$tail[0];} == 2
2288 0 0 0 @$path == 1 and ref $path->[0] eq 'HASH'
2312 0 0 0 $optional and scalar keys %$node == 1
2338 0 0 0 @$fail == 0 and keys %$reduce == 1
0 0 0 @$fail == 0 and keys %$reduce == 1 and not $optional
2438 0 0 0 keys %$end == 2 and exists $end->{''}
2465 0 0 0 ref $tail eq 'HASH' and keys %$tail == 2
2540 0 0 0 defined $path->[0] and $path->[0] eq $slide_path->[0]
2630 0 0 0 $self->{'fold_meta_pairs'} and exists $set{'\\d'} && exists $set{'\\D'} || exists $set{'\\s'} && exists $set{'\\S'} || exists $set{'\\w'} && exists $set{'\\W'}
2637 0 0 0 $_ =~ /^$re$/ and push @delete, $_
2648 0 0 0 $class =~ s/0123456789/\\d/ and $class eq '\\d'
2688 0 0 0 @short == 1 and @long == 0
0 0 0 @short > 1 and @short == @_
2716 0 0 0 $i < $#arr and $arr[$i + 1] =~ /\A$arr[$i]\*(\??)\Z/
2771 0 0 0 ref $in->{$path}[$next] eq 'HASH' and @{$in->{$path};} > $next + 1
2824 0 0 0 exists $in->[$p]{''} and $p + 1 < @$in
2841 0 0 0 $nr_one > 1 and $nr_one == $nr
2875 0 0 0 $n < @$in - 1 and ref $$in[$n + 1] eq 'HASH'
0 0 0 $n < @$in - 1 and ref $$in[$n + 1] eq 'HASH' and exists $$in[$n + 1]{''}
2967 0 0 0 defined $_[0] and defined $_[1]
2976 0 0 0 keys %{$_[0];} == keys %{$_[1];} and join('|', sort(keys %{$_[0];})) eq join('|', sort(keys %{$_[1];}))

or 2 conditions

line l !l condition
199 0 56 exists $args{$_} or $args{$_} = 0
216 0 12 exists $args{$_} or $args{$_} = 1
224 0 4 delete $args{'modifiers'} || ''
722 0 4 $self->{'stats_dup'} || 0
1223 0 0 $self->{'stats_add'} || 0
1238 0 0 $self->{'stats_dup'} || 0
1252 0 0 $self->{'stats_raw'} || 0
1269 0 0 $self->{'stats_cooked'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
224 0 0 4 $args{'flags'} ||= delete $args{'modifiers'} || ''
355 0 0 0 $1 eq '\\L' || $1 eq '\\U'
669 0 0 0 $arg->{'rs'} || $arg->{'input_record_separator'} || $self->{'input_record_separator'} || $/
675 0 0 0 $self->{'input_record_separator'} || $/
724 4 0 0 not defined $self->{'stats_dup'} or $dup == $self->{'stats_dup'}
888 0 0 3 $self->{'mutable'} or not $self->{'reduce'}
1958 0 0 0 !defined($in[0]) || $in[0] eq ''
0 0 4 @in == 0 or @in == 1 and !defined($in[0]) || $in[0] eq ''
2503 0 0 0 scalar grep({ref $_ eq 'HASH';} @$a) <=> scalar grep({ref $_ eq 'HASH';} @$b) or _node_offset($b) <=> _node_offset($a)
2605 0 0 0 $key eq '' or $key gt $k
2630 0 0 0 exists $set{'\\d'} && exists $set{'\\D'} || exists $set{'\\s'} && exists $set{'\\S'} || exists $set{'\\w'} && exists $set{'\\W'}
0 0 0 exists $set{'.'} or $self->{'fold_meta_pairs'} and exists $set{'\\d'} && exists $set{'\\D'} || exists $set{'\\s'} && exists $set{'\\S'} || exists $set{'\\w'} && exists $set{'\\W'}
2653 0 0 0 length $b <=> length $a || $a cmp $b
2875 0 0 0 $n < @$in - 1 and ref $$in[$n + 1] eq 'HASH' and exists $$in[$n + 1]{''} or $n == @$in - 1