blib/lib/Sub/HandlesVia/HandlerLibrary/Enum.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 13 | 20 | 65.0 |
line | true | false | branch |
---|---|---|---|
34 | 1 | 1 | if (my $values = delete $spec->{'enum'}) |
46 | 0 | 1 | unless my $type = $spec->{'isa'} |
47 | 0 | 1 | unless $type->can("values") |
51 | 1 | 0 | if (1 & $shortcut) |
54 | 0 | 1 | if (2 & $shortcut) |
57 | 0 | 1 | if (4 & $shortcut) |
60 | 1 | 0 | if (8 & $shortcut) |
74 | 8 | 6 | if $handler_name =~ /^(is|assign|set)$/ |
75 | 6 | 0 | if is_Str($handler_name) and $handler_name =~ /^(is|assign|set)_(.+)$/ |
82 | 14 | 6 | unless $handler_name =~ /^(is|assign|set)_(.+)$/ |