| line |
true |
false |
branch |
|
21
|
317 |
0 |
eval {
|
|
44
|
2 |
36 |
unless @_ > 1
|
|
51
|
0 |
36 |
ref $_[0] ? :
|
|
78
|
3 |
141 |
unless $INC{'Type/Tiny.pm'}
|
|
101
|
1 |
1107 |
unless $self->has_type(@_)
|
|
117
|
1 |
0 |
unless $self->has_coercion(@_)
|
|
145
|
217 |
0 |
if (ref $package)
|
|
147
|
0 |
217 |
unless defined $package
|
|
153
|
39 |
214 |
if defined &{$fqmeth;}
|
|
159
|
357 |
176 |
if ($Type::Tiny::AvoidCallbacks)
|
|
167
|
149 |
290 |
if defined $cache{'StringLike'}
|
|
173
|
43 |
14 |
unless defined $_ and not ref $_
|
|
191
|
57 |
348 |
$Type::Tiny::AvoidCallbacks || !$xsubname ? :
|
|
204
|
83 |
144 |
if defined $cache{'HashLike'} and not @_
|
|
210
|
62 |
9 |
unless ref $_ eq "HASH"
|
|
222
|
2 |
0 |
defined $paramname ? :
|
|
225
|
2 |
0 |
if $xsub
|
|
230
|
0 |
0 |
unless &$check($hash{$key})
|
|
237
|
0 |
2 |
unless $param->can_be_inlined
|
|
242
|
2 |
0 |
defined $paramname ? :
|
|
248
|
13 |
10 |
if $xsubname and not $Type::Tiny::AvoidCallbacks
|
|
259
|
0 |
1 |
unless $param->has_coercion
|
|
264
|
4 |
0 |
@_ ? :
|
|
268
|
2 |
6 |
unless &$coercible($orig{$k})
|
|
287
|
71 |
207 |
$Type::Tiny::AvoidCallbacks || !$xsubname ? :
|
|
298
|
2 |
142 |
@_ ? :
|
|
302
|
84 |
148 |
if defined $cache{'ArrayLike'} and not @_
|
|
308
|
58 |
9 |
unless ref $_ eq "ARRAY"
|
|
320
|
2 |
0 |
defined $paramname ? :
|
|
323
|
2 |
0 |
if $xsub
|
|
328
|
0 |
0 |
unless &$check($val)
|
|
335
|
0 |
2 |
unless $param->can_be_inlined
|
|
340
|
2 |
0 |
defined $paramname ? :
|
|
346
|
13 |
10 |
if $xsubname and not $Type::Tiny::AvoidCallbacks
|
|
357
|
0 |
1 |
unless $param->has_coercion
|
|
362
|
4 |
0 |
@_ ? :
|
|
366
|
2 |
8 |
unless &$coercible($v)
|
|
385
|
67 |
207 |
$Type::Tiny::AvoidCallbacks || !$xsubname ? :
|
|
396
|
2 |
146 |
@_ ? :
|
|
404
|
85 |
149 |
if $cache{'CodeLike'}
|
|
409
|
56 |
2 |
unless ref $_ eq "CODE"
|
|
428
|
58 |
208 |
$Type::Tiny::AvoidCallbacks || !$xsubname ? :
|
|
441
|
81 |
141 |
if $cache{'BoolLike'}
|
|
449
|
1 |
1 |
unless $n == 0
|
|
|
44 |
2 |
unless not defined $_ or not ref $_ and $_ eq '' || $_ eq '0' || $_ eq '1' or &blessed($_) and _check_overload($_, "bool")
|
|
466
|
127369 |
293 |
if defined $cache{'TypeTiny'}
|
|
470
|
31 |
41 |
if &blessed($_)
|
|
486
|
114 |
141 |
if defined $cache{'_ForeignTypeConstraint'}
|
|
501
|
272 |
0 |
@_ ? :
|
|
502
|
21 |
251 |
if ref $t eq "CODE"
|
|
503
|
137 |
114 |
if (my $class = &blessed($t))
|
|
504
|
30 |
107 |
if $class->isa("Type::Tiny")
|
|
505
|
10 |
97 |
if $class->isa("Moose::Meta::TypeConstraint")
|
|
506
|
1 |
96 |
if $class->isa("MooseX::Types::TypeDecorator")
|
|
507
|
0 |
96 |
if $class->isa("Validation::Class::Simple")
|
|
508
|
0 |
96 |
if $class->isa("Validation::Class")
|
|
509
|
11 |
85 |
if $t->can("check")
|
|
515
|
147414 |
0 |
@_ ? :
|
|
517
|
1147 |
146267 |
unless my $ref = ref $t
|
|
518
|
105969 |
40298 |
if $ref =~ /^Type::Tiny\b/
|
|
520
|
29 |
40269 |
if $ttt_cache{&refaddr($t)}
|
|
523
|
224 |
40045 |
if (my $class = &blessed($t))
|
|
524
|
0 |
224 |
if $class->isa("Type::Tiny")
|
|
525
|
16 |
208 |
if $class eq "MooseX::Types::TypeDecorator"
|
|
526
|
119 |
89 |
if $class->isa("Moose::Meta::TypeConstraint")
|
|
527
|
0 |
89 |
if $class->isa("MooseX::Types::TypeDecorator")
|
|
528
|
37 |
52 |
if $class->isa("Mouse::Meta::TypeConstraint")
|
|
529
|
0 |
52 |
if $class->isa("Validation::Class::Simple")
|
|
530
|
0 |
52 |
if $class->isa("Validation::Class")
|
|
531
|
6 |
46 |
if $t->can("DOES") and $t->DOES("Type::Library::Compiler::TypeConstraint") and $t->can("to_TypeTiny")
|
|
532
|
3 |
43 |
if $t->can("check")
|
|
536
|
40022 |
66 |
if $ref eq "CODE"
|
|
544
|
31 |
111 |
if (ref $t->{'Types::TypeTiny::to_TypeTiny'})
|
|
548
|
111 |
0 |
if ($t->name ne "__ANON__")
|
|
551
|
59 |
52 |
if $ts->{'_is_core'}
|
|
555
|
1 |
43 |
$t->isa('Moose::Meta::TypeConstraint::DuckType') ? :
|
|
|
2 |
44 |
$t->isa('Moose::Meta::TypeConstraint::Union') ? :
|
|
|
1 |
46 |
$t->isa('Moose::Meta::TypeConstraint::Role') ? :
|
|
|
1 |
47 |
$t->isa('Moose::Meta::TypeConstraint::Class') ? :
|
|
|
1 |
48 |
$t->isa('Moose::Meta::TypeConstraint::Enum') ? :
|
|
|
3 |
49 |
$t->can('parameterize') ? :
|
|
570
|
14 |
38 |
if $t->has_message
|
|
576
|
5 |
47 |
if $t->has_coercion
|
|
590
|
45 |
1 |
if $t->has_parent
|
|
593
|
41 |
5 |
if $t->can("can_be_inlined") and $t->can_be_inlined
|
|
596
|
41 |
5 |
if ($opts{'inlined'})
|
|
597
|
0 |
41 |
unless $t->inline_environment
|
|
598
|
0 |
41 |
if keys %env
|
|
642
|
3 |
0 |
is_TypeTiny($_) ? :
|
|
659
|
0 |
0 |
if ($t->VERSION >= '7.900048') { }
|
|
674
|
0 |
0 |
eval {
|
|
693
|
0 |
0 |
eval {
|
|
703
|
0 |
0 |
unless $t->get_fields($k)
|
|
720
|
30 |
0 |
@_ ? :
|
|
723
|
2 |
0 |
@_ ? :
|
|
724
|
3 |
0 |
if $t->can("get_message")
|
|
726
|
0 |
3 |
if $t->can("name")
|
|
728
|
1 |
0 |
@_ ? :
|
|
729
|
1 |
0 |
if $t->can("has_coercion") and $t->has_coercion and $t->can("coerce")
|
|
733
|
0 |
0 |
if ($t->can("can_be_inlined") and $t->can_be_inlined and $t->can("inline_check"))
|
|
751
|
172 |
0 |
@_ ? :
|
|
752
|
1 |
0 |
@_ ? :
|
|
755
|
38 |
0 |
if $t->can("name")
|
|
757
|
1 |
0 |
@_ ? :
|
|
758
|
1 |
37 |
if $t->can("has_coercion") and $t->has_coercion and $t->can("coerce")
|
|
762
|
6 |
32 |
if ($t->{'constraint_generator'})
|
|
766
|
1 |
0 |
is_TypeTiny($_) ? :
|
|
789
|
2 |
0 |
if $@
|
|
|
2 |
1 |
unless (eval {
|
|
794
|
4 |
40018 |
if ($QFS ||= "Sub::Quote"->can("quoted_from_sub"))
|
|
795
|
2 |
2 |
unless &$QFS($t)
|
|
796
|
2 |
2 |
if ($perlstring)
|
|
800
|
0 |
17 |
$var eq '$_' ? :
|
|
807
|
2 |
0 |
if $perlstring and not $captures
|