| 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'} |