Branch Coverage

lib/CPANPLUS/YACSmoke/ReAssemble.pm

Criterion	Covered	Total	%
branch	51	796	6.4

line	true	false	branch
183	0	12	if (exists $args{"anchor_$anc"})
186	0	0	unless exists $args{$anchor}
192	0	4	if (exists $args{'anchor_string_absolute'})
195	0	0	unless exists $args{$anchor}
225	0	4	if defined $CPANPLUS::YACSmoke::ReAssemble::Current_Lexer
229	0	4	if ($self->_debug(8))
234	0	4	if exists $self->{'rs'}
235	0	4	if exists $self->{'file'}
242	0	0	if exists $self->{'_time_func'}
245	0	0	unless (defined $self->{'_use_time_hires'})
251	0	0	length $self->{'_use_time_hires'} > 0 ? :
343	0	0	if $debug
353	0	0	if ($record =~ /\G$matcher/cg) { }
	0	0	elsif ($record =~ /\G\\/cg) { }
	0	0	elsif ($record =~ /\G($class_matcher)($modifier)/cg) { }
	0	0	elsif ($record =~ /\G($paren_matcher)/cg) { }
355	0	0	if ($1 eq '\\E') { }
	0	0	elsif ($qm and $1 eq '\\L' || $1 eq '\\U') { }
356	0	0	if $debug
362	0	0	if $debug
366	0	0	defined $2 ? :
367	0	0	if $debug
368	0	0	if ($qm) { }
375	0	0	if ($unroll_plus and $qualifier =~ s/\A\+(\?)?\Z/*/) { }
376	0	0	if $1
377	0	0	if $debug
378	0	0	$case eq 'L' ? :
	0	0	if $case
382	0	0	if $debug
383	0	0	$case eq 'U' ? :
	0	0	$case eq 'L' ? :
393	0	0	if $debug
395	0	0	if ($record =~ /\G([sdwSDW])($modifier)/cg) { }
	0	0	elsif ($record =~ /\Gx([\da-fA-F]{2})($modifier)/cg) { }
	0	0	elsif ($record =~ /\GQ/cg) { }
	0	0	elsif ($record =~ /\G([LU])/cg) { }
	0	0	elsif ($record =~ /\GE/cg) { }
	0	0	elsif ($record =~ /\G([lu])(.)/cg) { }
	0	0	elsif (my(@arg) = grep({defined $_;} $record =~ /\G$misc_matcher/cg)) { }
	0	0	elsif ($record =~ /\G(.)/cg) { }
397	0	0	if $debug
398	0	0	defined $1 ? :
	0	0	$unroll_plus && $qualifier =~ s/\A\+(\?)?\Z/*/ ? :
403	0	0	if $debug
406	0	0	if $debug
408	0	0	if $debug
409	0	0	defined $1 ? :
	0	0	$unroll_plus && $qualifier =~ s/\A\+(\?)?\Z/*/ ? :
414	0	0	if $debug
419	0	0	if $debug
423	0	0	if $debug
428	0	0	if $debug
429	0	0	$1 eq 'l' ? :
432	0	0	if ($] < 5.007)
435	0	0	if $debug
439	0	0	if ($directive eq 'c') { }
440	0	0	if $debug
444	0	0	if $debug
446	0	0	$ascii < 32 ? :
457	0	0	if $debug
461	0	0	if $debug
469	0	0	defined $2 ? :
470	0	0	if $debug
471	0	0	if ($class =~ /\A\[\\?(.)]\Z/)
474	0	0	if $debug
476	0	0	if $debug
477	0	0	defined $1 ? :
	0	0	$unroll_plus && $qualifier =~ s/\A\+(\?)?\Z/*/ ? :
484	0	0	if $debug
502	0	0	defined $CPANPLUS::YACSmoke::ReAssemble::Current_Lexer ? :
	0	0	defined $self->{'lex'} ? :
505	0	0	if $debug
510	0	0	if $debug
511	0	0	if (pos($record) - $len > $token_len)
514	0	0	if $debug
519	0	0	if (substr($token, 0, 1) eq '\\') { }
520	0	0	if ($token =~ /^\\([ELQU])$/) { }
	0	0	elsif ($token =~ /^\\([lu])(.)$/) { }
	0	0	elsif ($token =~ /^\\x([\da-fA-F]{2})$/) { }
521	0	0	if ($1 eq 'E') { }
	0	0	elsif ($1 eq 'Q') { }
523	0	0	defined $CPANPLUS::YACSmoke::ReAssemble::Current_Lexer ? :
	0	0	defined $self->{'lex'} ? :
	0	0	if $qm
535	0	0	if $debug
539	0	0	if $debug
540	0	0	$1 eq 'l' ? :
545	0	0	if $debug
547	0	0	if $debug
551	0	0	if $debug
555	0	0	$case eq 'U' ? :
	0	0	if $case
556	0	0	if $qm
557	0	0	if $token eq '/'
560	0	0	if $qm
561	0	0	if $debug
565	0	0	if (defined $next_token)
566	0	0	if $debug
573	0	0	if ($len < length $record)
580	0	0	$case eq 'U' ? :
	0	0	if $case
581	0	0	if $debug
584	0	0	if $debug
593	4	0	if $self->{'chomp'}
594	0	4	if $self->{'pre_filter'} and not $self->{'pre_filter'}->($record)
595	0	4	if $debug
598	0	0	$self->{'lex'} ? :
	0	4	$record =~ /[+*?(\\\[{]/ ? :
601	0	4	if $self->{'filter'} and not $self->{'filter'}->(@$list)
664	0	0	if (ref $_[0] eq 'HASH') { }
672	0	0	ref $arg->{'file'} eq 'ARRAY' ? :
681	0	0	unless (open my $fh, '<', $file)
715	0	0	if $self->{'filter'} and not $self->{'filter'}->(@_)
724	4	0	if (not defined $self->{'stats_dup'} or $dup == $self->{'stats_dup'}) { }
	0	0	elsif ($self->{'dup_warn'}) { }
726	30	0	defined $_ ? :
729	0	0	if (ref $self->{'dup_warn'} eq 'CODE') { }
793	0	0	if (defined $pre_filter and ref $pre_filter ne 'CODE')
837	0	0	if (defined $filter and ref $filter ne 'CODE')
880	3	0	unless (defined $self->{'str'})
881	0	3	if ($self->{'track'}) { }
888	3	0	unless $self->{'mutable'} or not $self->{'reduce'}
891	0	3	if not exists $arg->{'indent'} and $self->{'indent'} > 0
892	0	3	if (exists $arg->{'indent'} and $arg->{'indent'} > 0) { }
	0	3	elsif ($self->{'lookahead'}) { }
903	0	3	if (not length $self->{'str'}) { }
911	0	3	$self->{'anchor_string_begin'} ? :
	0	3	$self->{'anchor_line_begin'} ? :
	0	3	$self->{'anchor_word_begin'} ? :
918	0	3	$self->{'anchor_string_end_absolute'} ? :
	0	3	$self->{'anchor_string_end'} ? :
	0	3	$self->{'anchor_line_end'} ? :
	0	3	$self->{'anchor_word_end'} ? :
923	3	0	unless $self->{'mutable'}
974	0	4	unless defined $self->{'re'}
980	5	3	if $self->{'re'}
988	0	3	if ($self->{'track'}) { }
991	0	0	length $self->{'flags'} ? :
998	0	3	length $self->{'flags'} ? :
1064	0	0	unless defined $self->{'re'}
1067	0	0	unless ($target =~ /$self->{'re'}/)
1072	0	0	if $] >= 5.009005
1077	0	0	if defined $-[$n] and defined $+[$n]
1080	0	0	if ($self->{'track'}) { }
1081	0	0	defined $self->{'m'} ? :
1113	0	0	unless $self->{'track'}
1114	0	0	if defined $_[0]
1115	0	0	unless defined $self->{'m'}
1129	0	0	exists $self->{'mbegin'} ? :
1141	0	0	exists $self->{'mend'} ? :
1159	0	0	unless exists $self->{'mvar'}
1160	0	0	defined $_[0] ? :
1179	0	0	if ($self->{'mvar'})
1204	0	0	defined $self->{'m'} ? :
1284	0	0	defined $self->{'str'} && $self->{'str'} ne $CPANPLUS::YACSmoke::ReAssemble::Always_Fail ? :
1314	0	0	defined $_[0] ? :
1365	0	0	defined $_[0] ? :
1383	0	0	defined $_[0] ? :
1421	0	0	defined $_[0] ? :
1438	0	0	defined $_[0] ? :
1474	0	0	defined $_[0] ? :
1491	0	0	defined $_[0] ? :
1512	0	0	defined $_[0] ? :
1531	0	0	defined $_[0] ? :
1551	0	0	defined $_[0] ? :
1623	0	0	defined $_[0] ? :
1624	0	0	if ($self->_debug(8))
1666	0	0	defined $_[0] ? :
1692	0	0	defined $_[0] ? :
1709	0	0	defined $_[0] ? :
1724	0	0	defined $_[0] ? :
1744	0	0	defined $_[0] ? :
1777	0	0	defined $_[0] ? :
1792	0	0	defined $_[0] ? :
1824	0	0	defined $_[0] ? :
1838	0	0	defined $_[0] ? :
1883	0	0	if ($_[0])
1884	0	0	if (my $refname = ref $_[0])
1890	0	0	defined $CPANPLUS::YACSmoke::ReAssemble::Current_Lexer ? :
1899	0	17	$self->{'debug'} & shift() ? :
1920	0	0	$CPANPLUS::YACSmoke::ReAssemble::have_Storable ? :
1927	0	0	if (ref $path->[$p] eq 'HASH') { }
	0	0	elsif (ref $path->[$p] eq 'ARRAY') { }
1944	0	0	defined $v ? :
1957	4	0	if (@$list == 0)
1958	0	4	if (@in == 0 or @in == 1 and !defined($in[0]) || $in[0] eq '') { }
1965	0	0	if $debug
1969	0	0	unless (@in)
1970	0	0	if (ref $list->[0] ne 'HASH') { }
1979	0	0	if (ref $token eq 'HASH')
1980	0	0	if $debug
1982	0	0	if $debug
1985	0	0	if (ref $path->[$offset] eq 'HASH')
1986	0	0	if $debug
1988	0	0	if (exists $node->{$token}) { }
1989	0	0	if ($offset < $#$path) { }
1998	0	0	if $debug
2005	0	0	if $debug
2006	0	0	if ($offset == $#$path) { }
2015	0	0	if $debug
2021	0	0	if ($debug)
2025	0	0	if $n
2027	0	0	ref $path->[$n] eq 'HASH' ? :
2030	0	0	$n == $offset ? :
2035	0	0	if ($offset >= @$path) { }
	0	0	elsif ($token ne $path->[$offset]) { }
	0	0	elsif (not @in) { }
2037	0	0	if $debug
2041	0	0	if $debug
2047	0	0	length $token ? :
2049	0	0	if $debug
2053	0	0	if $debug
2054	0	0	if (defined $$path[$offset + 1]) { }
2056	0	0	if (ref $path->[$offset] eq 'HASH') { }
2057	0	0	if $debug
2061	0	0	if $debug
2089	0	0	if $debug
2091	0	0	if (ref $path_end->[0] eq 'HASH') { }
2092	0	0	if (exists $path_end->[0]{$token_key}) { }
	0	0	elsif (not _node_eq($path_end->[0], $token)) { }
2093	0	0	if (@$path_end > 1) { }
2099	0	0	if $debug
2106	0	0	ref $token ? :
	0	0	if $debug
2111	0	0	if (@$new_path)
2114	0	0	if (@_) { }
2119	0	0	if $debug
2122	0	0	if $debug
2123	0	0	if (@$old_path) { }
2133	0	0	if $debug
2138	0	0	if (@$path_end > 1) { }
2144	0	0	if $debug
2148	0	0	if $debug
2155	0	0	if $debug
2160	0	0	if (@$path_end) { }
2161	0	0	if $debug
2163	0	0	if $debug
2165	0	0	if $debug
2173	0	0	if $debug
2179	0	0	if (@$path_end) { }
2184	0	0	if $debug
2186	0	0	if $debug
2189	0	0	if $debug
2203	0	3	if ($self->_debug(8))
2206	0	0	if (exists $self->{'_begin_time'}) { }
2216	0	3	if $context->{'debug'}
2217	3	0	if (not @$head) { }
2227	0	3	if ($self->_debug(8))
2229	0	0	if (exists $self->{'_begin_time'}) { }
2238	0	3	if $context->{'debug'}
2243	0	0	if (exists $_[0]{''})
2254	0	3	if $debug
2259	0	22	if (ref $p eq 'HASH') { }
2261	0	0	if $debug
2262	0	0	if scalar @$node_head
2263	0	0	ref $node_tail eq 'HASH' ? :
2266	0	22	if (@$head) { }
2267	0	0	if $debug
2271	0	22	if $debug
2277	0	0	ref $tail->[0] eq 'HASH' ? :
	0	3	if $debug
2279	0	3	if (@$tail > 1 and ref $tail->[0] eq 'HASH' and keys %{$$tail[0];} == 2)
2286	0	0	if $debug
2287	0	0	unless $path
2288	0	0	if (@$path == 1 and ref $path->[0] eq 'HASH') { }
2295	0	0	if (exists $tail->[0]{''})
2302	0	3	if $debug
2311	0	0	if $debug
2312	0	0	if ($optional and scalar keys %$node == 1)
2314	0	0	unless (grep {ref $_ eq 'HASH';} @$path)
2323	0	0	if $debug
2330	0	0	if $debug
2338	0	0	if (@$fail == 0 and keys %$reduce == 1 and not $optional)
2342	0	0	if $debug
2355	0	0	if $optional
2359	0	0	if (scalar @$path == 1) { }
2361	0	0	if $debug
2366	0	0	if $debug
2374	0	0	ref $tail eq 'HASH' ? :
2376	0	0	if $debug
2382	0	0	if $debug
2385	0	0	if $debug
2430	0	0	if (ref $end ne 'HASH') { }
2431	0	0	if $debug
2435	0	0	if $debug
2438	0	0	if (keys %$end == 2 and exists $end->{''})
2440	0	0	if $key eq ''
2442	0	0	if $debug
2447	0	0	if (@$head)
2451	0	0	if ($new_path) { }
2452	0	0	if $debug
2457	0	0	if (not @$common) { }
2458	0	0	if $debug
2463	0	0	if $debug
2465	0	0	if (ref $tail eq 'HASH' and keys %$tail == 2)
2468	0	0	if (exists $tail->{''})
2472	0	0	ref $tail eq 'HASH' ? :
2481	0	0	if $debug
2492	0	0	if $debug
2503	0	0	unless scalar grep({ref $_ eq 'HASH';} @$a) <=> scalar grep({ref $_ eq 'HASH';} @$b) or _node_offset($b) <=> _node_offset($a)
2514	0	0	scalar @$path > 1 ? :
2515	0	0	if $debug
2535	0	0	if $debug
2538	0	0	unless defined $slide_path
2539	0	0	if $debug
2541	0	0	if $debug
2547	0	0	if $debug
2552	0	0	if $debug
2562	0	0	unless (grep {ref $_;} @$path)
2563	0	0	if $debug
2565	0	0	if $debug
2568	0	0	if $debug
2570	0	0	ref $p eq 'ARRAY' ? :
	0	0	ref $p eq 'HASH' ? :
2576	0	0	if $debug
2585	0	0	if $debug
2587	0	0	if $optional
2593	0	0	if $debug
2599	0	0	if ref $node eq 'ARRAY'
2600	0	0	unless ref $node eq 'HASH'
2604	0	0	if $k eq ''
2605	0	0	if $key eq '' or $key gt $k
2624	0	0	if exists $set{'\\w'}
2625	0	0	if exists $set{'\\W'}
2630	0	0	if 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'}
2634	0	0	if (exists $set{$meta})
2638	0	0	if @delete
2641	0	0	if keys %set == 1
2643	0	0	if exists $set{"\\$meta"}
2645	0	0	exists $set{'-'} ? :
2646	0	0	exists $set{'^'} ? :
2648	0	0	if $class =~ s/0123456789/\\d/ and $class eq '\\d'
2665	0	0	/^$CPANPLUS::YACSmoke::ReAssemble::Single_Char$/ ? :
2666	0	0	if (@short == 1) { }
	0	0	elsif (@short > 1) { }
2687	0	0	/^$CPANPLUS::YACSmoke::ReAssemble::Single_Char$/ ? :
2688	0	0	if (@short == 1 and @long == 0) { }
	0	0	elsif (@short > 1 and @short == @_) { }
2695	0	0	@short > 1 ? :
2710	0	3	if ($self->{'unroll_plus'})
2716	0	0	if (ref $arr[$i] eq 'ARRAY') { }
	0	0	elsif (ref $arr[$i] eq 'HASH') { }
	0	0	elsif ($i < $#arr and $arr[$i + 1] =~ /\A$arr[$i]\*(\??)\Z/) { }
	0	0	elsif ($skip) { }
2724	0	0	exists $arr[$i]{''} ? :
2728	0	0	defined $1 ? :
2741	0	3	unless grep {length ref $_;} @_
2745	0	0	ref $_ eq 'HASH' ? :
	22	0	ref $_ eq '' ? :
2756	0	0	exists $_->{''} ? :
2767	0	0	unless defined $in->{$path}
2769	0	0	if (ref $in->{$path}[0] eq 'HASH') { }
	0	0	elsif (ref $in->{$path}[0] eq 'ARRAY') { }
2772	0	0	if (exists $in->{$path}[$next]{''})
2783	0	0	if (ref $subpath->[$sp] eq 'HASH') { }
2786	0	0	unless exists $subpath->[$sp]{''}
2808	0	0	if (ref $in->[$p] eq '') { }
	0	0	elsif (ref $in->[$p] eq 'ARRAY') { }
2824	0	0	if (exists $in->[$p]{''} and $p + 1 < @$in)
2827	0	0	if (ref $$in[$p + $next] eq 'HASH') { }
2841	0	0	if ($nr_one > 1 and $nr_one == $nr) { }
2843	0	0	if exists $in->[$p]{''}
2847	0	0	keys %$ahead > 1 ? :
2849	0	0	$nr > 1 ? :
2851	0	0	if (exists $in->[$p]{''}) { }
2852	0	0	$more ? :
2871	0	0	if (ref $in->[$n] eq '') { }
2875	0	0	if ($n < @$in - 1 and ref $$in[$n + 1] eq 'HASH' and exists $$in[$n + 1]{''} or $n == @$in - 1)
2882	0	0	$] < 5.009005 ? :
2896	0	0	if exists $in->[$n]{''}
2914	0	0	if (ref $in->[$p] eq '') { }
	0	0	elsif (ref $in->[$p] eq 'ARRAY') { }
2915	0	0	if $prev_was_paren
2930	0	0	/^$CPANPLUS::YACSmoke::ReAssemble::Single_Char$/ ? :
2931	0	0	if (@short == $nr) { }
2932	0	0	$nr == 1 ? :
2933	0	0	if exists $in->[$p]{''}
2936	0	0	if length $out
2937	0	0	if $p
2939	0	0	if (@short < 2) { }
2942	0	0	if $r++
2952	0	0	if (exists $in->[$p]{''}) { }
2967	0	0	unless defined $_[0] and defined $_[1]
2968	0	0	if ref $_[0] ne ref $_[1]
2972	0	0	if (ref $_[0] eq 'HASH') { }
	0	0	elsif (ref $_[0] eq 'ARRAY') { }
2976	0	0	if keys %{$_[0];} == keys %{$_[1];} and join('|', sort(keys %{$_[0];})) eq join('|', sort(keys %{$_[1];}))
2981	0	0	if scalar @{$_[0];} == scalar @{$_[1];}
2996	0	0	if ref $path eq 'HASH'
3001	0	0	if $nr++
3002	0	0	if (ref $d eq 'HASH') { }
	0	0	elsif (ref $d eq 'ARRAY') { }
	0	0	elsif (defined $d) { }
3011	0	0	$d =~ /^[\x00-\x1f]$/ ? :
	0	0	$d =~ /\s/ ? :
3030	0	0	if $nr++
3036	0	0	$n =~ /^[\x00-\x1f]$/ ? :
	0	0	$n eq '' ? :