| line |
true |
false |
branch |
|
44
|
67 |
301 |
unless $self->name |
|
45
|
368 |
0 |
unless $self->message |
|
46
|
368 |
0 |
unless $self->expects |
|
65
|
0 |
631 |
unless ($name) |
|
68
|
627 |
4 |
if ($self->can($name)) { } |
|
79
|
0 |
7 |
@code ? : |
|
96
|
0 |
6 |
if @pairs % 2 |
|
99
|
0 |
8 |
ref $data ? : |
|
100
|
3 |
5 |
if $value->can($key) and $self->new->do($match, @args)->check($value->$key) |
|
103
|
3 |
3 |
@pairs / 2 == $check ? : |
|
122
|
0 |
91 |
@code ? : |
|
140
|
1 |
0 |
if $data |
|
157
|
0 |
13 |
@code ? : |
|
191
|
174 |
0 |
if ref $self |
|
215
|
1341 |
0 |
if ref $self |
|
234
|
0 |
1 |
@code ? : |
|
243
|
127 |
496 |
ref $data[$i] ? : |
|
254
|
26 |
0 |
if defined $_->value |
|
264
|
0 |
196 |
unless $data |
|
281
|
0 |
122 |
@code ? : |
|
289
|
0 |
4 |
unless ($name) |
|
292
|
0 |
4 |
if (lc $name eq 'array') { } |
|
|
0 |
4 |
elsif (lc $name eq 'boolean') { } |
|
|
0 |
4 |
elsif (lc $name eq 'code') { } |
|
|
1 |
3 |
elsif (lc $name eq 'float') { } |
|
|
0 |
3 |
elsif (lc $name eq 'hash') { } |
|
|
1 |
2 |
elsif (lc $name eq 'number') { } |
|
|
1 |
1 |
elsif (lc $name eq 'object') { } |
|
|
0 |
1 |
elsif (lc $name eq 'regexp') { } |
|
|
0 |
1 |
elsif (lc $name eq 'scalar') { } |
|
|
0 |
1 |
elsif (lc $name eq 'string') { } |
|
|
0 |
1 |
elsif (lc $name eq 'undef') { } |
|
293
|
0 |
0 |
@code ? : |
|
296
|
0 |
0 |
@code ? : |
|
299
|
0 |
0 |
@code ? : |
|
302
|
1 |
0 |
@code ? : |
|
305
|
0 |
0 |
@code ? : |
|
308
|
1 |
0 |
@code ? : |
|
311
|
1 |
0 |
@code ? : |
|
314
|
0 |
0 |
@code ? : |
|
317
|
0 |
0 |
@code ? : |
|
320
|
0 |
0 |
@code ? : |
|
323
|
0 |
0 |
@code ? : |
|
327
|
1 |
0 |
@code ? : |
|
|
1 |
1 |
UNIVERSAL::isa($_->value, $name) ? : |
|
337
|
0 |
2 |
@code ? : |
|
347
|
32 |
4 |
if defined $_->value and UNIVERSAL::isa($_->value, "HASH") |
|
351
|
0 |
21 |
if @pairs % 2 |
|
354
|
14 |
18 |
ref $data ? : |
|
355
|
25 |
7 |
if $self->new->do($match, @args)->check($value->{$key}) |
|
357
|
14 |
7 |
@pairs / 2 == $check ? : |
|
372
|
5 |
2 |
$_->value->isa($name) ? : |
|
380
|
1 |
1 |
$_->value->isa($name) ? : |
|
389
|
1 |
0 |
$_->value->does($name) ? : |
|
|
1 |
1 |
$_->value->can('does') ? : |
|
398
|
6 |
0 |
if $match |
|
407
|
1 |
141 |
@code ? : |
|
415
|
3 |
4 |
@code ? : |
|
450
|
9 |
22 |
unless (defined $data) |
|
457
|
13 |
9 |
unless ($blessed or ref $data) |
|
460
|
0 |
9 |
if ($blessed and ref $data eq "Regexp") |
|
463
|
0 |
9 |
if ($isvenus and $data->does("Venus::Role::Explainable")) |
|
466
|
0 |
9 |
if ($isvenus and $data->does("Venus::Role::Valuable")) |
|
469
|
0 |
9 |
if ($isvenus and $data->does("Venus::Role::Dumpable")) |
|
472
|
0 |
9 |
if ($blessed and overload::Method($data, "\"\"")) |
|
475
|
0 |
9 |
if ($blessed and $data->can("as_string")) |
|
478
|
0 |
9 |
if ($blessed and $data->can("to_string")) |
|
481
|
0 |
9 |
if ($blessed and $data->isa('Venus::Kind')) { } |
|
493
|
7 |
0 |
if defined $_->value |
|
494
|
0 |
1 |
@code ? : |
|
502
|
0 |
1 |
@code ? : |
|
518
|
1 |
1 |
@data == grep($value->can($_), @data) ? : |
|
527
|
0 |
2 |
@code ? : |
|
541
|
0 |
161 |
@code ? : |
|
551
|
6 |
4 |
if defined $_->value and ref $_->value eq "ARRAY" |
|
555
|
0 |
5 |
if @data != @$value |
|
557
|
5 |
10 |
ref $data[$i] ? : |
|
558
|
12 |
3 |
if $self->new->do($match, @args)->check($value->[$i]) |
|
560
|
2 |
3 |
@data == $check ? : |
|
569
|
0 |
7 |
@code ? : |
|
579
|
105 |
30 |
if $valid |
|
595
|
1 |
0 |
if $data |
|
604
|
9 |
0 |
if defined $_->value |
|
605
|
0 |
3 |
@code ? : |
|
613
|
0 |
6 |
unless ($type) |
|
619
|
3 |
3 |
if (lc $type eq 'hash' or lc $type eq 'hashref') { } |
|
|
3 |
0 |
elsif (lc $type eq 'array' or lc $type eq 'arrayref') { } |
|
622
|
20 |
8 |
if defined $_->value and UNIVERSAL::isa($_->value, "HASH") |
|
625
|
16 |
0 |
if UNIVERSAL::isa($value, "HASH") |
|
632
|
12 |
9 |
if defined $_->value and UNIVERSAL::isa($_->value, "ARRAY") |
|
635
|
9 |
0 |
if UNIVERSAL::isa($value, "ARRAY") |
|
643
|
1 |
3 |
ref $_ ? : |
|
|
4 |
2 |
if @next |
|
652
|
7 |
1 |
if defined $_->value |
|
653
|
0 |
1 |
@code ? : |
|
715
|
143 |
10 |
$either ? : |
|
|
330 |
153 |
wantarray && !$either ? : |
|
736
|
759 |
66 |
unless $expr =~ _type_regexp(_type_subexpr_type_2()) |
|
744
|
1 |
260 |
$_ =~ qr/^@{[_type_subexpr_type_2()];},.*$/u ? : |
|
753
|
61 |
5 |
@items > 1 ? : |
|
762
|
3 |
815 |
if (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_2(), _type_subexpr_type_2()))) { } |
|
|
4 |
811 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_1(), _type_subexpr_type_2()))) { } |
|
|
3 |
808 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_2(), _type_subexpr_type_1()))) { } |
|
|
49 |
759 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_2()))) { } |
|
|
4 |
755 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_3(), _type_subexpr_type_2()))) { } |
|
|
3 |
752 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_2(), _type_subexpr_type_3()))) { } |
|
|
325 |
427 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_4(), _type_subexpr_type_3()))) { } |
|
|
0 |
427 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_3(), _type_subexpr_type_4()))) { } |
|
|
0 |
427 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_1(), _type_subexpr_type_3()))) { } |
|
|
0 |
427 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_3(), _type_subexpr_type_1()))) { } |
|
|
0 |
427 |
elsif (_type_regexp_eval($expr, _type_regexp(_type_subexpr_type_3(), _type_subexpr_type_3()))) { } |
|
888
|
3 |
24 |
scalar _type_regexp_eval($_, _type_regexp(_type_subexpr_type_2(), _type_subexpr_type_2())) ? : |
|
913
|
33 |
44 |
if (ref $data eq "HASH") |
|
919
|
1 |
76 |
if (ref $data eq "ARRAY") |
|
920
|
2 |
0 |
/^\w+$/u ? : |