| blib/lib/RPSL/Parser.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 22 | 72.7 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 0 | 1 | unless (UNIVERSAL::isa($self, 'RPSL::Parser')) |
| 43 | 6 | 33 | wantarray ? : |
| 56 | 0 | 1 | if (UNIVERSAL::isa($input[0], 'GLOB') or UNIVERSAL::isa($input[0], 'IO::Handle')) { } |
| 71 | 0 | 13 | unless $value |
| 103 | 3 | 9 | if (exists $self->object->{$key}) { } |
| 104 | 1 | 2 | unless (UNIVERSAL::isa($self->object->{$key}, 'ARRAY')) |
| 117 | 0 | 12 | unless defined $value |
| 118 | 1 | 11 | if ($value =~ s/#(.*)//) |
| 134 | 12 | 0 | if (defined $value) |
| 136 | 1 | 11 | if (@parts > 1) |
| 155 | 0 | 1 | if UNIVERSAL::isa($primary_key, 'ARRAY') |