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') |