Branch Coverage
blib/lib/Text/Pipe/RandomCase.pm
Criterion
Covered
Total
%
branch
2
4
50.0
line
true
false
branch
15
0
6
int rand $prob ? :
16
0
1
if ($self->force_one and not $input =~ /[[:upper:]]/)