| blib/lib/Data/Hopen/Util/NameSet.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 26 | 26 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 1 | 52 | unless my $class = shift() |
| 35 | 27 | 25 | if @_ |
| 51 | 1 | 39 | unless my $self = shift() |
| 52 | 1 | 38 | unless @_ |
| 56 | 24 | 37 | if (not ref $arg) { } |
| 29 | 8 | elsif (ref $arg eq 'Regexp') { } | |
| 4 | 4 | elsif (ref $arg eq 'ARRAY') { } | |
| 3 | 1 | elsif (ref $arg eq 'HASH') { } | |
| 79 | 1 | 94 | unless my $self = shift() |
| 80 | 7 | 87 | unless $self->{'_RE'} |
| 143 | 1 | 7 | unless my $self = shift() |
| 146 | 3 | 4 | if (@{$self->{'_strings'};}) |
| 157 | 5 | 2 | $pattern ? : |