| lib/Uplug/Config.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 28 | 14.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 442 | 0 | 0 | 0 | defined $ENV{'UPLUGHOME'} and -f "$ENV{'UPLUGHOME'}/$file" |
| 0 | 0 | 0 | defined $ENV{'UPLUGHOME'} and -f "$ENV{'UPLUGHOME'}/systems/$file" | |
| 0 | 0 | 0 | defined $ENV{'UPLUGHOME'} and -f "$ENV{'UPLUGHOME'}/ini/$file" | |
| 665 | 5 | 0 | 0 | @_ == 1 and $_[0] =~ /\S\s\S/ |
| 691 | 0 | 0 | 0 | @_ and not $_[0] =~ /^\-/ |
| 744 | 0 | 5 | 0 | defined $ENV{'UPLUGHOME'} and -f $ENV{'UPLUGHOME'} . '/' . $file |
| 0 | 5 | 0 | defined $ENV{'UPLUGHOME'} and -f $ENV{'UPLUGHOME'} . '/ini/' . $file |
| line | l | !l | condition |
|---|---|---|---|
| 490 | 5 | 0 | "<$file" || die("# Uplug::Config: cannot open file '${file}'!\n") |
| 518 | 0 | 0 | ">$file" || die("# Config: cannot open '${file}'!\n") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 780 | 0 | 0 | 0 | shift() || $SHARED_SYS |