| blib/lib/Scalar/Util/Reftype.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 20 | 24 | if ($sym =~ / \A TYPE_ (.+?) \z /msx) |
| 58 | 0 | 1 | if (not defined &re::is_regexp) |
| 86 | 15 | 108 | $self->_object($thing, $type) ? : |
| 14 | 123 | $ref eq $type ? : | |
| 90 | 29 | 108 | if ($id) |
| 91 | 24 | 5 | unless $self->[22] |
| 93 | 0 | 29 | if $id eq 'TYPE_IO_OBJECT' |
| 94 | 15 | 14 | if $self->[21] |
| 110 | 4 | 59 | if ($rt eq 'IO') |
| 117 | 1 | 58 | if (&re::is_regexp($object)) |
| 123 | 48 | 10 | if $rt ne $type |