blib/lib/Sub/Lexical.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 4 | 10 | 40.0 |
line | true | false | branch |
---|---|---|---|
17 | 0 | 2 | if $class ne 'Sub::Lexical' |
20 | 0 | 2 | if @_ % 2 != 0 |
24 | 2 | 0 | @_ % 2 == 0 ? : |
31 | 0 | 0 | unless defined $$self{'info'} |
73 | 0 | 2 | if not defined $self or $self eq 'Sub::Lexical' |