| blib/lib/App/Info/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 45 | 56 | 80.3 |
| line | true | false | branch |
|---|---|---|---|
| 97 | 10 | 4 | if -d $_ |
| 138 | 0 | 1 | unless $path_dem |
| 156 | 6 | 3 | if -f $_ |
| 173 | 1 | 2 | if -f $_ and -x $_ |
| 225 | 7 | 1 | ref $_[0] ? : |
| 229 | 8 | 37 | if -e $path |
| 252 | 19 | 1 | ref $_[0] ? : |
| 256 | 15 | 361 | if -e $path |
| 277 | 38 | 1 | ref $_[0] ? : |
| 281 | 34 | 208 | if -f $path and -x $path |
| 337 | 0 | 7 | unless $file and $regex |
| 338 | 0 | 7 | unless open F, "<$file" |
| 342 | 3 | 167 | if @ret = /$regex/ |
| 347 | 4 | 3 | unless @ret |
| 348 | 2 | 0 | $#ret <= 0 ? : |
| 1 | 2 | wantarray ? : | |
| 370 | 0 | 4 | unless $dir |
| 372 | 0 | 4 | unless opendir DIR, $dir |
| 374 | 3 | 1 | $code ? : |
| 377 | 2 | 2 | wantarray ? : |
| 451 | 0 | 11 | unless $file and @regexen |
| 453 | 0 | 11 | unless open F, "<$file" |
| 459 | 46 | 92 | if (my(@ret) = $line =~ /$each[$i]/) |
| 462 | 1 | 45 | $#ret > 0 ? : |
| 472 | 2 | 39 | unless @each |
| 475 | 0 | 11 | unless %ret |
| 476 | 11 | 0 | wantarray ? : |
| 493 | 80 | 0 | if defined $_ |