| blib/lib/Data/ShortNameProvider.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 8 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 1 | 12 | unless eval { do { $class->does('Data::ShortNameProvider::Role::Style') } } |
| 53 | 5 | 10 | if exists $$args{'style'} and not $$args{'style'} =~ /::/ |
| 75 | 2 | 10 | if ($self->max_name_length and length $short_name > $self->max_name_length) |
| 89 | 4 | 4 | unless $hash |