| line |
true |
false |
branch |
|
354
|
17 |
20 |
unless $args{-'declare'}
|
|
|
20 |
17 |
if (my(@orig_declare) = @{[] unless $args{-'declare'};})
|
|
360
|
1 |
56 |
if $type =~ /::/
|
|
380
|
0 |
168 |
if ref $as
|
|
384
|
56 |
112 |
if $subtype
|
|
423
|
21 |
230 |
if (defined(my $params = shift @_))
|
|
427
|
20 |
1 |
if (&reftype($params) eq 'ARRAY') { }
|
|
|
1 |
0 |
elsif (not defined $type_constraint) { }
|
|
438
|
198 |
52 |
defined $type_constraint ? :
|
|
447
|
3 |
247 |
if (@_) { }
|
|
514
|
0 |
10 |
unless my $tobj = find_type_constraint($full)
|
|
518
|
5 |
5 |
unless $tobj->check($return)
|
|
536
|
0 |
11 |
unless my $tobj = find_type_constraint($full)
|