blib/lib/File/Random.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 32 | 37 | 86.4 |
line | l | !l | condition |
---|---|---|---|
77 | 1086 | 530 | rand $. < 1 and $line[0] = $_ |
129 | 0 | 254000 | /CODE/ and $_ = $name, (return &$check($name)) |
254000 | 21000 | /Regexp/ and return $name =~ /$check/ |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
63 | 73 | 203 | 68 | not defined $nr_of_lines and wantarray |
69 | 203 | 138 | 1 | defined $nr_of_lines and $nr_of_lines == 0 |
143 | 125649 | 57355 | 36 | exists $args{$_} and not $args{$_} |
line | l | !l | condition |
---|---|---|---|
64 | 67 | 1 | &howmany() || 1 |
72 | 138 | 204 | $nr_of_lines ||= 1 |
155 | 16034 | 12783 | $args{'-c'} || $args{'-check'} || sub { 'always O.K.'; } |
159 | 0 | 36584 | not defined $check or scalar ref($check) =~ /^(Regexp|CODE)$/ |
168 | 49036 | 3798 | shift() || '.' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
66 | 203 | 139 | 2 | not defined $nr_of_lines or $nr_of_lines =~ /^\d+$/ |
136 | 17012 | 0 | 19810 | $args{'-d'} || $args{'-dir'} || $args{'-directory'} |
156 | 4000 | 4250 | 24334 | $args{'-r'} || $args{'-rec'} || $args{'-recursive'} |
157 | 0 | 0 | 36584 | $args{'-f'} || $args{'-follow'} |