Branch Coverage

blib/lib/Perl/Critic/Policy/Tics/ProhibitLongLines.pm

Criterion	Covered	Total	%
branch	11	16	68.7

line	true	false	branch
50	0	9	unless $merge{'base_max'} =~ /\A\d+\z/ and $merge{'base_max'} >= 1
52	9	0	unless exists $merge{'hard_max'}
55	0	9	unless do {
58	0	9	unless $merge{'pct_allowed'} =~ /\A\d+\z/ and $merge{'pct_allowed'} >= 0
81	9	0	$top->can('filename') ? :
86	531	15	unless $length > $base
88	2	13	if ($length > $limit) { }
116	4	5	if ($viols > $allowed) { }