| line |
true |
false |
branch |
|
24
|
208 |
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 |
273 |
if (ref $proto)
|
|
78
|
273 |
0 |
if (my $arg = shift @_) { }
|
|
79
|
215 |
58 |
if (&blessed($arg) and $arg->isa('Moose::Meta::TypeConstraint')) { }
|
|
|
58 |
0 |
elsif (&blessed($arg) and $arg->isa('MooseX::Types::UndefinedType')) { }
|
|
|
0 |
0 |
elsif (&blessed($arg)) { }
|
|
105
|
1033 |
0 |
if (&blessed($self)) { }
|
|
106
|
0 |
1033 |
if (defined(my $tc = shift @_))
|
|
125
|
74 |
96 |
&blessed($self) ? :
|
|
140
|
17 |
39 |
&blessed($self) ? :
|
|
193
|
741 |
10 |
if ($tc->can('is_subtype_of'))
|
|
196
|
16 |
741 |
if ($search_tc->isa('Moose::Meta::TypeConstraint::Class'))
|
|
201
|
725 |
16 |
unless $search_tc and $search_tc->is_subtype_of('Object')
|
|
206
|
3 |
748 |
if ($method eq 'new') { }
|
|
|
0 |
748 |
elsif ($class and not $tc->can($method)) { }
|
|
207
|
1 |
2 |
unless $class
|
|
209
|
1 |
1 |
unless $class->can('new')
|