| line |
true |
false |
branch |
|
18
|
163 |
36 |
if (ref $type) { }
|
|
20
|
155 |
8 |
if blessed $type
|
|
21
|
2 |
6 |
if reftype $type eq 'CODE'
|
|
23
|
6 |
0 |
if (ref $type eq 'HASH')
|
|
26
|
6 |
0 |
if (1 == keys %$type)
|
|
36
|
1 |
5 |
if ($function eq 'union')
|
|
41
|
6 |
0 |
if ($function)
|
|
55
|
36 |
0 |
if blessed $obj
|
|
65
|
22 |
36 |
if (ref $code) { }
|
|
67
|
22 |
0 |
if reftype $code eq 'CODE'
|
|
68
|
0 |
0 |
if $INC{'overload.pm'} and overload::Method($code, '&{}')
|
|
72
|
18 |
18 |
exists &Sub::Quote::quote_sub ? :
|
|
75
|
0 |
36 |
unless $sub and reftype $sub eq 'CODE'
|
|
87
|
0 |
39 |
if $self->has_message
|
|
100
|
12 |
24 |
if $self->can('plus_coercions')
|
|
103
|
6 |
18 |
if $self->has_coercion
|
|
107
|
24 |
0 |
if (@new_coercions)
|
|
109
|
0 |
24 |
$new->isa('Type::Tiny') ? :
|
|
112
|
0 |
24 |
unless eval "require $class"
|
|
113
|
24 |
0 |
unless $new->has_coercion
|
|
128
|
9 |
9 |
unless _reify($a)->equals($n)
|
|
133
|
9 |
0 |
$self->has_coercion ? :
|
|
136
|
9 |
0 |
if (@keep)
|
|
138
|
3 |
6 |
$new->isa('Type::Tiny') ? :
|
|
141
|
0 |
9 |
unless eval "require $class"
|
|
142
|
9 |
0 |
unless $new->has_coercion
|
|
151
|
3 |
6 |
if $self->can('no_coercions')
|
|
158
|
0 |
6 |
unless $self->can('parameterize')
|
|
166
|
1 |
4 |
if $self->can('where')
|
|
203
|
0 |
102 |
unless ref $sub eq 'CODE'
|
|
206
|
102 |
0 |
if exists &Internals::SvREADONLY
|
|
209
|
0 |
17 |
if @subs
|
|
219
|
17 |
0 |
unless defined $args{'magic'}
|
|
221
|
17 |
0 |
if ($file ne '-e' and $args{'magic'} and eval {
do {
require B::Hooks::Parser
}
})
|
|
231
|
0 |
0 |
if ($args{'magic'} and $args{'magic'} ne 'auto')
|