Branch Coverage

blib/lib/HTML/Merge/Compile.pm

Criterion	Covered	Total	%
branch	0	410	0.0

line	true	false	branch
53	0	0	if (-f $_)
67	0	0	if $HTML::Merge::Compile::printers{$tag}
85	0	0	if ($token eq 'U') { }
	0	0	elsif ($token eq 'L') { }
	0	0	elsif ($token eq 'Q') { }
	0	0	elsif ($token eq 'E') { }
	0	0	elsif ($token eq 'D') { }
163	0	0	if ($candidate and not $inv)
168	0	0	$inv ? :
170	0	0	if $code
172	0	0	if ($macro)
176	0	0	if $proto
192	0	0	if ($code)
196	0	0	unless $proto =~ /^\$*$/
200	0	0	unless ($code)
216	0	0	if $@
221	0	0	!$inv ? :
226	0	0	if ($code)
231	0	0	unless $proto =~ /^\$*$/
238	0	0	if ($api eq 'OAPI')
242	0	0	if ($api eq 'CAPI')
249	0	0	if (not $desc) { }
256	0	0	if ($api eq 'CAPI') { }
288	0	0	if $@
311	0	0	if ($in)
319	0	0	if $@
352	0	0	if ($@)
365	0	0	if $force
376	0	0	unless $name
387	0	0	if ($error < 0)
392	0	0	if $HTML::Merge::Compile::DEBUG or $ENV{'MERGE_DEBUG'}
403	0	0	if (@{$$self{'scopes'};})
412	0	0	if ($$self{'source'} =~ s(^(.*?)\<(/?)$HTML::Merge::Compile::open(\[.+?\]\.)?(\w+))[]is)
415	0	0	if $engine =~ /\<$HTML::Merge::Compile::open/
419	0	0	if $close || $HTML::Merge::Compile::enders{$tag} and $param && !ref($param) || ref $param && $#$param >= 0
421	0	0	if ($HTML::Merge::Compile::printers{$tag}) { }
429	0	0	if ($HTML::Merge::Compile::printers{$tag})
445	0	0	if $lennow <= $length
447	0	0	if $$self{'source'} =~ /^\s{$left}/
449	0	0	unless $self->EatOne
452	0	0	if $remainder < 0
465	0	0	if $string
476	0	0	if $string =~ /\n$/
488	0	0	if ($$self{'source'} =~ s/^(.)//s) { }
493	0	0	if ($ch eq "\000")
494	0	0	unless ($$self{'source'} =~ s/^(.*?)\0//)
500	0	0	if ($ch eq q['] and $state ne '"')
502	0	0	$state eq q['] ? :
505	0	0	if ($ch eq '"' and $state ne q['])
507	0	0	$state eq '"' ? :
510	0	0	if ($ch eq '\\')
516	0	0	if ($ch eq '>' and not $state)
518	0	0	unless $tokens
519	0	0	unless @tokens
521	0	0	if $pre
525	0	0	if ($ch eq '.' and not $state and $tokens)
530	0	0	if ($ch eq '<') { }
531	0	0	unless ($$self{'source'} =~ s/^$HTML::Merge::Compile::open//)
533	0	0	if $in eq 'EM'
540	0	0	if $engine =~ /\<$HTML::Merge::Compile::open/
542	0	0	if ($in ne 'EM')
545	0	0	$in eq 'EM' ? :
546	0	0	if ($in ne 'EM')
561	0	0	$2 eq '<' ? :
562	0	0	unless $count
572	0	0	@topt ? :
573	0	0	unless $current
575	0	0	unless $teng eq $engine
577	0	0	if $_ eq $scope
590	0	0	if ($param =~ s/^\\\.LIMIT\\=((?:\\['"])?)(.+)\1$//s)
593	0	0	if $param
595	0	0	if (not $limit) { }
623	0	0	unless ($param =~ /^\\\.LIMIT\\=((?:\\['"])?)(.+)\1$/s)
642	0	0	if $param
649	0	0	if $param
661	0	0	if $param
671	0	0	unless ($param =~ s/^\\\.(.+)$//s)
679	0	0	unless ($param =~ s/^\\\.(.+?)\\=\\(['"])(.*?)\\\2$//s)
687	0	0	unless ($param =~ s/^\\\.(.+)$//s)
700	0	0	unless ($param =~ s/^\\\.(.+?)\\=\\(['"])(.*)\\\2$//s)
714	0	0	unless ($param =~ s/^\\\.(.+)$//s)
733	0	0	unless ($param =~ s/^\\\.(.+)$//s)
745	0	0	unless ($param =~ s/^\\[\.=]\\(['"])(.*)\\\1$//s)
763	0	0	unless ($param =~ s/^\\[\.=]\\(['"])(.*)\\\1$//s)
786	0	0	unless ($param =~ s/^\\[\.=]\\(['"])(.*)\\\1$//s)
810	0	0	if $param
818	0	0	unless ($param =~ s/^\\[\.=]\\(['"])(.*)\\\1$//s)
841	0	0	unless ($param =~ s/^\\[=\.]\\(['"])(.*)\\\1$//s)
849	0	0	unless ($param =~ s/^\\[\.=]\\(['"])(.*)\\\1$//s)
857	0	0	unless ($param =~ s/^\\[\.=]\\(['"])(.*)\\\1$//s)
866	0	0	if ($param =~ s/^\\\.([ABC])$//i)
869	0	0	if $param
872	0	0	if ($type eq 'B' or $type eq 'C') { }
878	0	0	if ($tag =~ m[^/$HTML::Merge::Compile::openPERL>$])
884	0	0	if ($tag =~ s/^\[(.+?)\]\.//)
886	0	0	if $engine =~ /\<$HTML::Merge::Compile::open/
893	0	0	unless $flag
896	0	0	unless ($$self{'source'} =~ s[^(.*?)\][]is)
908	0	0	if ($type eq 'A' or $type eq 'C')
927	0	0	unless ($param =~ s/^\\\.(.+?)\\=\\(['"])(.*?)\\\2$//s)
939	0	0	unless ($param =~ s/^\\\.(.+?)\\=\\(['"])(.*?)\\\2$//s)
950	0	0	if $param
956	0	0	unless ($param =~ s/^\\\.(.+?)\\=\\(['"])(.*?)\\\2$//s)
964	0	0	unless ($param =~ s/^\\\.(.+)$//s)
975	0	0	unless ($param =~ s/^\\\.(.+)$//s)
983	0	0	unless ($param =~ s/^\\\.(.+)$//s)
995	0	0	unless ($param =~ s/^\\\.\\(['"])(.*)\\\1$//s)
1005	0	0	unless ($param =~ s/^\\\.\\(['"])(.*)\\\1$//s)
1021	0	0	unless ($param =~ s/^\\\.\\(['"])(.*)\\\1$//s)
1080	0	0	unless ($param =~ s/^\\\.\\(['"])(.*)\\\1$//s)
1107	0	0	if $param
1115	0	0	if $param
1123	0	0	unless $param =~ /^\\\.(.+?)\\\=(.+)$/s
1140	0	0	unless $param =~ /^\\\.(.+?)\\\=(.+)$/s
1156	0	0	unless $param =~ /^\\\.(.+?)\\\=(.+)$/s
1171	0	0	unless ($param =~ /^\\\.([DF])\\\.(.+?)\\=\\(['"])(.*)\\\3$/is)
1176	0	0	$how eq 'D' ? :
1193	0	0	unless ($param =~ /^\\\.(.+?)\\=\\(['"])(.*)\\\2$/is)
1215	0	0	unless $param =~ /^\\\.(.+?)\\\=(.*?)\\\:(.*?)(\\,.*)?$/s
1239	0	0	unless ($param =~ s/^\\\.([CFRNADX])(.*)$//is)
1250	0	0	unless ($param =~ /^(\\?.)\\(['"])(.*?)\\\2$/s)
1267	0	0	if ($param =~ s/^\\\.//)
1271	0	0	unless ($param =~ s/^\\,//)
1275	0	0	unless $flag
1276	0	0	unless ($param =~ s/^\\(["'])(.*?)\\\1$//s)
1300	0	0	if ($param =~ s/^\\\.//)
1304	0	0	unless ($param =~ s/^\\,//)
1308	0	0	unless $flag
1309	0	0	unless ($param =~ s/^\\(["'])(.*?)\\\1$//s)
1331	0	0	unless ($param =~ s/^\\\((.*?)\\\)//s)
1335	0	0	unless ($param =~ s/^\\\.\\(["'])(.*?)\\\1$//s)
1357	0	0	if $opts{$_} and $count++
1361	0	0	unless ($param =~ s/^\\\((.*?)\\\)//s)
1365	0	0	unless ($param =~ s/^\\\.\\(["'])(.*?)\\\1$//s)
1385	0	0	unless ($param =~ s/^\\\((.*?)\\\)//s)
1389	0	0	unless ($param =~ s/^\\\.\\(["'])(.*?)\\\1$//s)
1405	0	0	unless ($param =~ s/^\\\((.*?)\\\)//s)
1409	0	0	unless ($param =~ s/^\\\.\\(["'])(.*?)\\\1$//s)
1421	0	0	unless ($param =~ /^\\\.(.*?)(\\[+-]\d+)?$/s)
1424	0	0	defined $2 ? :
1434	0	0	if $param
1440	0	0	if $param
1446	0	0	unless ($param =~ /^\\\.\\(['"])(.*?)\\\1\\([\.,])\\(['"])(.*?)\\\4(.*)$/s)
1451	0	0	if ($rem)
1452	0	0	unless ($rem =~ /^\\$del\\(['"])(.*?)\\\1$/s)
1497	0	0	unless ($param =~ /^\\[\.=]\\(['"])(.*?)\\\1$/s)
1505	0	0	unless ($dsn1)
1512	0	0	if (/^SYSTEM$/)
1514	0	0	if ($HTML::Merge::Ini::SESSION_DB) { }
1529	0	0	if (/^DEFAULT$/) { }
1542	0	0	unless $db
1554	0	0	if $param
1560	0	0	if $param
1566	0	0	unless ($param =~ /^\\[\.=]\\(['"])(.*?)\\\1\\\,\\(['"])(.*?)\\\3$/s)
1575	0	0	unless ($param =~ /^\\[\.=]\\(['"])(.*?)\\\1$/s)
1583	0	0	unless ($param =~ /^\\\.\\(['"])(.*?)\\\1$/s)
1591	0	0	unless ($param =~ /^\\[\.=]\\(['"])(.*?)\\\1\\\,\\(['"])(.*?)\\\3$/s)
1600	0	0	unless ($param =~ /^\\[=\.]\\(['"])(.*?)\\\1$/s)
1609	0	0	unless ($param =~ /^\\[=\.]\\(['"])(.*?)\\\1\\\,\\(['"])(.*?)\\\3$/s)
1618	0	0	unless ($param =~ /^\\[=\.]\\(['"])(.*?)\\\1\\\,\\(['"])(.*?)\\\3$/s)
1627	0	0	unless ($param =~ /^\\[=\.]([UG])\\\.\\(['"])(.*?)\\\2\\\,\\(['"])(.*?)\\\4$/is)
1631	0	0	if ($how eq 'U')
1634	0	0	if ($how eq 'G')
1643	0	0	unless ($param =~ /^\\[=\.]([UG])\\\.\\(['"])(.*?)\\\2\\\,\\(['"])(.*?)\\\4$/is)
1647	0	0	if ($how eq 'U')
1650	0	0	if ($how eq 'G')
1657	0	0	unless ($param =~ /^\\[=\.]\\(['"])(.*?)\\\1\\\,\\(['"])(.*?)\\\3$/s)
1666	0	0	unless ($param =~ /^\\[=\.]\\(['"])(.*?)\\\1\\\,\\(['"])(.*?)\\\3$/s)
1678	0	0	unless ($param =~ /^\\[=\.]\\(['"])(.*?)\\\1\\\,\\(['"])(.*?)\\\3$/s)
1687	0	0	if $param
1693	0	0	if $param
1699	0	0	if $param
1705	0	0	if $param
1711	0	0	if $param
1718	0	0	unless ($param =~ s/^\\\.(.+)$//s)
1727	0	0	if ($param =~ s/^\\\.\\(["'])(.*)\\\1$//s)
1730	0	0	if $param
1746	0	0	unless ($param =~ /^\\\.\\(['"])(.*?)\\\1\\\?\\(['"])(.*?)\\\3\\\:\\(['"])(.*?)\\\5$/s)
1761	0	0	if ($param =~ s/^\\[,\.]((?:\\-)?\d+)$//s)
1764	0	0	if $param
1775	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1783	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1791	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1799	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1807	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1816	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1824	0	0	unless ($param =~ /^\\\.([HSMD])\\\.(\\['"])?(.*)\2\\,(\\['"])?(.*)\4$/s)
1840	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1852	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/)
1853	0	0	if $param
1865	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1881	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1\\\,\\(['"])(.*)\\\3\\,\\(['"])(.*)\\\5\\,\\(['"])(.*)\\\7$/s)
1900	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1920	0	0	if $param
1931	0	0	unless ($param =~ /^\\\.\\(['"])(.*)\\\1$/s)
1945	0	0	unless ($param =~ s/^\\\.(.*)$//s)
1955	0	0	unless ($param =~ s/^\\\.(.*?)\\=\\(['"])(.*?)\\\2((?:\\,.*)?)$//s)
1965	0	0	if ($param =~ s/^\\\.\\(['"])(.*)\\\1$//s)
1968	0	0	if $param
1996	0	0	unless open I, $file
2000	0	0	unless open O, ">$out"
2003	0	0	unless ($sub)
2070	0	0	unless ($sub)
2081	0	0	if $code
2103	0	0	if $sub =~ s/^(.*)::Do// and UNIVERSAL::isa($self, $1)