| blib/lib/Siebel/Srvrmgr.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 10 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 52 | 2266 | 11045 | if ($ENV{'SIEBEL_SRVRMGR_DEBUG'}) { } |
| 54 | 2266 | 0 | if (-e $ENV{'SIEBEL_SRVRMGR_DEBUG'} and -f $ENV{'SIEBEL_SRVRMGR_DEBUG'}) { } |
| 58 | 0 | 2266 | unless open my $in, '<', $ENV{'SIEBEL_SRVRMGR_DEBUG'} |
| 95 | 0 | 116 | unless defined $package |
| 98 | 0 | 116 | unless 'Log::Log4perl'->init_once(\$cfg) |