Branch Coverage

blib/lib/App/Randf.pm

Criterion	Covered	Total	%
branch	4	6	66.6

line	true	false	branch
22	44	56	if not $config->{'per'} or $config->{'per'} * 100 > rand 10000
39	0	1	unless &GetOptionsFromArray(\@argv, 'p|per=i', \$config->{'per'}, 'h|help', sub { _show_usage(1); } , 'v|version', sub { print "$0 $VERSION\n"; exit 1; } )
41	1	0	if scalar @argv > 0 and not $config->{'per'}