blib/lib/Autoload/AUTOCAN.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 16 | 22 | 72.7 |
line | true | false | branch |
---|---|---|---|
50 | 1 | 1 | unless defined $style |
54 | 1 | 1 | if ($style eq 'methods') { } |
1 | 0 | elsif ($style eq 'functions') { } | |
56 | 1 | 0 | unless $target->can('DESTROY') |
66 | 0 | 2 | unless (eval "package $target;\n$install_can\n$autoload_code\n1") |
2 | 5 | defined $autocan ? : | |
6 | 1 | unless defined $sub and do { local $@; eval { do { $sub = \&$sub } } } | |
16 | 8 | if defined $sub | |
0 | 5 | if $function eq 'AUTOCAN' | |
5 | 0 | defined $autocan ? : | |
72 | 0 | 2 | if $errored |