Branch Coverage

blib/lib/Perl/Lint/Policy/BuiltinFunctions/ProhibitUselessTopic.pm
Criterion Covered Total %
branch 23 26 88.4


line true false branch
95 7 173 if ($token_type == 89 and {-A => 1, -B => 1, -C => 1, -M => 1, -O => 1, -R => 1, -S => 1, -T => 1, -W => 1, -X => 1, -b => 1, -c => 1, -d => 1, -e => 1, -f => 1, -g => 1, -k => 1, -l => 1, -o => 1, -p => 1, -r => 1, -s => 1, -u => 1, -w => 1, -x => 1, -z => 1}->{$token_data}) { }
18 310 elsif ($token_type == 70 and {abs => 1, alarm => 1, chomp => 1, chop => 1, chr => 1, chroot => 1, cos => 1, defined => 1, eval => 1, exp => 1, glob => 1, hex => 1, int => 1, lc => 1, lcfirst => 1, length => 1, log => 1, lstat => 1, mkdir => 1, oct => 1, ord => 1, pos => 1, print => 1, quotemeta => 1, readlink => 1, readpipe => 1, ref => 1, require => 1, reverse => 1, rmdir => 1, sin => 1, split => 1, sqrt => 1, stat => 1, study => 1, uc => 1, ucfirst => 1, unlink => 1, unpack => 1}->{$token_data}) { }
97 7 0 if ($$token{'type'} == 137 and $$token{'data'} eq '$_')
110 3 15 if ($function_name eq 'reverse')
112 2 1 if ($$tokens[$i - 1]{'type'} == 65 and $two_before_token_type == 168 || $two_before_token_type == 192 || $two_before_token_type == 195)
124 4 12 $function_name eq 'split' ? :
129 7 9 if ($$token{'type'} == 107) { }
133 0 26 if ($token_type == 107) { }
7 19 elsif ($token_type == 108) { }
137 7 0 if (--$left_paren_num <= 0)
139 5 1 if ($$tokens[$i - 2]{'kind'} != 1 and $$previous_token{'type'} == 137 and $$previous_token{'data'} eq '$_')
160 9 21 if ($token_type == 106)
162 6 2 if ($$tokens[$i - 2]{'kind'} != 1 and $$previous_token{'type'} == 137 and $$previous_token{'data'} eq '$_')