| line |
true |
false |
branch |
|
22
|
187 |
0 |
if (&blessed($self)) { }
|
|
36
|
30 |
4 |
&blessed($_) ? :
|
|
42
|
0 |
16 |
unless scalar @tc == scalar @args
|
|
46
|
0 |
16 |
unless scalar @tc >= 2
|
|
72
|
3 |
250 |
if (ref $proto)
|
|
76
|
250 |
0 |
if (my $arg = shift @_) { }
|
|
77
|
198 |
52 |
if (&blessed($arg) and $arg->isa('Moose::Meta::TypeConstraint')) { }
|
|
|
52 |
0 |
elsif (&blessed($arg) and $arg->isa('MooseX::Types::UndefinedType')) { }
|
|
|
0 |
0 |
elsif (&blessed($arg)) { }
|
|
103
|
931 |
0 |
if (&blessed($self)) { }
|
|
104
|
0 |
931 |
if (defined(my $tc = shift @_))
|
|
123
|
75 |
91 |
&blessed($self) ? :
|
|
138
|
2 |
37 |
&blessed($self) ? :
|
|
191
|
659 |
10 |
if ($tc->can('is_subtype_of'))
|
|
194
|
13 |
659 |
if ($search_tc->isa('Moose::Meta::TypeConstraint::Class'))
|
|
199
|
646 |
13 |
unless $search_tc and $search_tc->is_subtype_of('Object')
|
|
204
|
3 |
666 |
if ($method eq 'new') { }
|
|
|
0 |
666 |
elsif ($class and not $tc->can($method)) { }
|
|
205
|
1 |
2 |
unless $class
|
|
207
|
1 |
1 |
unless $class->can('new')
|