| blib/lib/Symbol/Get.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 20 | 45.0 |
| line | true | false | branch |
|---|---|---|---|
| 90 | 0 | 10 | unless length $var |
| 94 | 0 | 10 | if $sigil =~ tr/A-Z_a-z// |
| 96 | 0 | 10 | unless my $type = $_sigil_to_type{$sigil} |
| 109 | 0 | 5 | if ('SCALAR' eq ref $ref) { } |
| 0 | 5 | elsif ('ARRAY' eq ref $ref) { } | |
| 119 | 4 | 1 | if (@value > 1) |
| 135 | 0 | 0 | if ('SCALAR' ne ref $ref and 'ARRAY' ne ref $ref) |
| 138 | 0 | 0 | unless (_perl_supports_getting_list_constant_ref()) |
| 157 | 0 | 1 | unless $table_hr |
| 202 | 0 | 15 | unless ($name =~ /\A (?: (.+) ::)? ([^:]+ (?: ::)?) \z/x) |