| blib/lib/Build/Hopen/Util/NameSet.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| branch | 18 | 24 | 75.0 | 
| line | true | false | branch | 
|---|---|---|---|
| 32 | 0 | 36 | unless my $class = shift() | 
| 34 | 18 | 18 | if @_ | 
| 50 | 0 | 27 | unless my $self = shift() | 
| 51 | 0 | 27 | unless @_ | 
| 55 | 22 | 27 | if (not ref $arg) { } | 
| 21 | 6 | elsif (ref $arg eq 'Regexp') { } | |
| 4 | 2 | elsif (ref $arg eq 'ARRAY') { } | |
| 2 | 0 | elsif (ref $arg eq 'HASH') { } | |
| 78 | 0 | 90 | unless my $self = shift() | 
| 79 | 5 | 85 | unless $self->{'_RE'} | 
| 142 | 0 | 5 | unless my $self = shift() | 
| 152 | 3 | 2 | $str ? : |