| blib/lib/delay_use.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 5 | 0.0 |
| line | l | !l | condition |
|---|---|---|---|
| 27 | 0 | 0 | (caller)[0] || 'main' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 28 | 0 | 0 | 0 | $delay_use::INC{$pkg} ||= eval qq[\n\t\tsub {\n\t\t\tpackage $caller;\n\t\t\teval qq{require $pkg};\n\t\t\tif(\$\@){\n\t\t\t\t\$delay_use::ERROR\t= \$\@;\n\t\t\t\tdelete \$delay_use::INC{$pkg};\n\t\t\t\tprint STDERR \$delay_use::ERROR if \$delay_use::DEBUG;\n\t\t\t\texit(-1) if \$delay_use::ABORT;\n\t\t\t\treturn;\n\t\t\t}\n\t\t\t$pkg->import(\@_) if $pkg->can('import');\n\t\t\treturn "$pkg";\n\t\t}\n\t] |