Branch Coverage

blib/lib/String/PerlIdentifier.pm
Criterion Covered Total %
branch 33 34 97.0


line true false branch
24 75 28 if (defined $_[0] and ref $_[0] eq 'HASH') { }
26 10 65 if (defined $$argsref{'underscores'} and $$argsref{'underscores'} == 0)
30 14 61 if (defined $$argsref{'min'})
31 1 13 unless $$argsref{'min'} =~ /^\d+$/
33 1 12 unless $$argsref{'min'} >= 2
37 34 39 if (defined $$argsref{'max'})
38 1 33 unless $$argsref{'max'} =~ /^\d+$/
40 1 32 unless $$argsref{'max'} >= 3
44 24 47 if (defined $$argsref{'default'})
45 1 23 unless $$argsref{'default'} =~ /^\d+$/
49 4 66 if (defined $$argsref{'min'} and defined $$argsref{'max'})
51 2 2 if $$argsref{'min'} >= $$argsref{'max'}
57 78 18 unless defined $length
58 3 93 if $length < $MIN
59 10 86 if $length > $MAX
60 86 10 $scoresflag ? :
67 0 96 if $forbidden{$varname}