| line |
true |
false |
branch |
|
108
|
0 |
853 |
if (@_ == 1 and ref $_[0]) { } |
|
|
0 |
853 |
elsif (@_ == 2 and ref $_[1]) { } |
|
|
850 |
3 |
elsif (@_ % 2) { } |
|
122
|
7 |
846 |
unless (defined $name) |
|
129
|
3 |
850 |
if ($is_subtype and not $parent) |
|
134
|
838 |
15 |
if (defined $parent) |
|
138
|
842 |
10 |
if (defined $name) |
|
141
|
842 |
0 |
unless ($this) |
|
143
|
79 |
763 |
unless ($this =~ /\A Mouse \b/msx) |
|
148
|
10 |
832 |
if (defined $TYPE{$name}) |
|
150
|
3 |
7 |
if ($this ne $that) |
|
152
|
1 |
2 |
if ($that eq 'Mouse::Util::TypeConstraints') |
|
155
|
1 |
0 |
scalar grep({$name eq $_;} list_all_builtin_type_constraints()) ? : |
|
165
|
55 |
794 |
if exists $args{'where'} |
|
166
|
776 |
73 |
if exists $args{'optimized_as'} |
|
170
|
839 |
10 |
if (defined $name) { } |
|
188
|
1 |
30 |
unless my $type = find_type_constraint($type_name) |
|
230
|
4 |
2 |
if (ref $_[0] ne 'ARRAY') |
|
234
|
4 |
2 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? : |
|
254
|
5 |
2 |
unless (@_ == 1 and ref $_[0] eq 'ARRAY') |
|
259
|
3 |
4 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? : |
|
273
|
115 |
13 |
if exists $TYPE{$spec} |
|
277
|
13 |
0 |
unless (defined $meta) |
|
278
|
3 |
10 |
$create ? : |
|
281
|
0 |
0 |
if (Mouse::Util::is_a_metarole($meta)) { } |
|
298
|
0 |
22 |
if grep {not defined $_;} @_ |
|
300
|
2 |
46 |
$_->{'type_constraints'} ? : |
|
317
|
44 |
84 |
if ($c->{'spec'} =~ s/^\[//) |
|
320
|
44 |
0 |
if ($c->{'spec'} =~ s/^\]//) |
|
333
|
128 |
0 |
if ($c->{'spec'} =~ s/\A ([\w.:]+) //msx) |
|
346
|
118 |
10 |
if (defined $type) { } |
|
|
0 |
10 |
elsif (defined $param) { } |
|
347
|
44 |
74 |
if (defined $param) { } |
|
367
|
58 |
49 |
if ($c->{'spec'}) |
|
372
|
16 |
42 |
if (@types) |
|
382
|
1 |
971 |
if Mouse::Util::is_a_type_constraint($spec) or not defined $spec |
|
390
|
0 |
2 |
unless Mouse::Util::is_a_type_constraint($constraint) |
|
397
|
18 |
1233 |
if Mouse::Util::is_a_type_constraint($spec) or not defined $spec |
|
402
|
1169 |
64 |
if (defined $tc) |
|
412
|
0 |
63 |
if ($context{'spec'}) |
|
422
|
5 |
0 |
defined $tc ? : |
|
428
|
1186 |
9 |
defined $tc ? : |