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 |