blib/lib/Build/Hopen/Util/NameSet.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 18 | 24 | 75.0 |
line | true | false | branch |
---|---|---|---|
32 | 0 | 40 | unless my $class = shift() |
34 | 18 | 22 | 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 ? : |