blib/lib/Scalar/Util/Reftype.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 21 | 24 | 87.5 |
line | true | false | branch |
---|---|---|---|
61 | 20 | 26 | if ($sym =~ / \A TYPE_ (.+?) \z /msx) |
84 | 0 | 0 | $val{$name} ? : |
109 | 15 | 113 | $self->_object($thing, $type) ? : |
14 | 128 | $ref eq $type ? : | |
113 | 29 | 113 | if ($id) |
114 | 24 | 5 | unless $self->[22] |
116 | 0 | 29 | if $id eq 'TYPE_IO_OBJECT' |
117 | 15 | 14 | if $self->[21] |
133 | 8 | 65 | if $rt and $blessed and $rt eq 'REGEXP' and $blessed eq 'Regexp' |
136 | 4 | 61 | if ($rt eq 'IO') |
143 | 1 | 60 | if (&re::is_regexp($object)) |
149 | 50 | 10 | if $rt ne $type |