| blib/lib/AutoRole.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 34 | 50.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 87 | 47 | 2 | 0 | defined ${"${pkg}::AUTOROLE";} and exists $${"${pkg}::AUTOROLE";}{$dest} |
| 107 | 11 | 12 | 0 | $star && wantarray |
| line | l | !l | condition |
|---|---|---|---|
| 22 | 57 | 0 | shift @args || (next) |
| 23 | 0 | 0 | shift @args || die("Missing class name at $file line $line\n") |
| 24 | 0 | 0 | shift @args || die("Missing how type at $file line $line\n") |
| 49 | 12 | 14 | $how ||= 'autorequire' |
| 67 | 0 | 2 | ${"${pkg}::AUTOROLE";} ||= {} |
| 70 | 2 | 0 | $AutoRole::AUTOLOAD || ${"${pkg}::AUTOLOAD";} || '' |
| 73 | 1 | 0 | $module->can($dest) || die("No such method as ${module}::$dest - $file line $line\n") |
| 101 | 0 | 0 | $module->can($src) || die("No such method as ${module}::$src - $file line $line\n") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 33 | 2 | 1 | 2 | ref $v || $v =~ /^[^\W\d]\w+$/x |
| 46 | 2 | 1 | 0 | not $how or $how eq 'compile' |
| 56 | 1 | 33 | 0 | $list{$k} ||= $k |
| 76 | 0 | 0 | 0 | $code ||= $pkg->SUPER::can('AUTOLOAD') |