| blib/lib/Scalar/Does.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 11 | 90.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 166 | 45 | 12 | 18 | &blessed($role) and $role->can('check') |
| 171 | 41 | 4 | 12 | &blessed($thing) and $thing->can('DOES') |
| 25 | 8 | 12 | UNIVERSAL::can($thing, 'can') and $thing->can('DOES') |
| line | l | !l | condition |
|---|---|---|---|
| 103 | 0 | 7 | $_[0]{'exporter'} ||= sub { my $into = $_[0]{'into'}; my($name, $sym) = @{$_[1];}; foreach $_ (grep ref($_), $into->can($name)) { _croak("Refusing to overwrite local sub '${name}' with export from $class") if B::svref_2object($_)->STASH->NAME eq $into; } ; 'namespace::clean'->import(-'cleanee', $_[0]{'into'}, $name); BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x15\x55\x55\x55\x15\x55\x55\x55\x55\x55\x55\x55\x55\x15"} no strict 'refs'; *{"${into}::$name";} = $sym; } |