| blib/lib/WebDyne/Constant.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 26 | 57.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 655 | 57 | 0 | 4 | -f $local_constant_fn and not $WebDyne::Constant::Constant{'WEBDYNE_CONF_HR'}{$local_constant_fn}++ |
| 872 | 65 | 0 | 138 | $WebDyne::Constant::Package{'caller'}{$caller}{$constant_hr}++ and defined *{"${caller}::$var_test";} |
| 891 | 1524 | 3902 | 47 | defined $constant_hr->{$k} and $constant_hr ne $class_constant_hr |
| line | l | !l | condition |
|---|---|---|---|
| 775 | 1 | 50 | $local_constant_fn ||= "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 576 | 0 | 0 | 0 | $ENV{'WEBDYNE_HOME'} || $ENV{'WEBDYNE'} || $ENV{'WINDIR'} |
| 577 | 0 | 0 | 0 | $ENV{'WEBDYNE_CONF'} || 'File::Spec'->catfile($dn, $local_constant_fn) |
| 581 | 31 | 20 | 0 | $ENV{'WEBDYNE_CONF'} || 'File::Spec'->catfile('File::Spec'->rootdir, 'etc', $local_constant_fn) |
| 659 | 4 | 0 | 0 | do 'File::Spec'->rel2abs($local_constant_fn) || warn("unable to read local constant file, $!") |
| 795 | 11 | 4 | 57 | $WebDyne::Constant::Package{'import'}{$fn} ||= do { '???'; &local_constant_load($class, $fn) } |