| line |
true |
false |
branch |
|
24
|
187 |
0 |
if (&blessed($self)) { }
|
|
39
|
30 |
4 |
&blessed($_) ? :
|
|
44
|
0 |
16 |
unless scalar @tc == scalar @args
|
|
48
|
0 |
16 |
unless scalar @tc >= 2
|
|
74
|
3 |
250 |
if (ref $proto)
|
|
78
|
250 |
0 |
if (my $arg = shift @_) { }
|
|
79
|
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)) { }
|
|
105
|
934 |
0 |
if (&blessed($self)) { }
|
|
106
|
0 |
934 |
if (defined(my $tc = shift @_))
|
|
125
|
76 |
91 |
&blessed($self) ? :
|
|
140
|
2 |
37 |
&blessed($self) ? :
|
|
193
|
661 |
10 |
if ($tc->can('is_subtype_of'))
|
|
196
|
15 |
661 |
if ($search_tc->isa('Moose::Meta::TypeConstraint::Class'))
|
|
201
|
646 |
15 |
unless $search_tc and $search_tc->is_subtype_of('Object')
|
|
206
|
3 |
668 |
if ($method eq 'new') { }
|
|
|
0 |
668 |
elsif ($class and not $tc->can($method)) { }
|
|
207
|
1 |
2 |
unless $class
|
|
209
|
1 |
1 |
unless $class->can('new')
|