| line |
true |
false |
branch |
|
41
|
67 |
301 |
unless ($self->name) |
|
45
|
368 |
0 |
unless ($self->message) |
|
49
|
368 |
0 |
unless ($self->expects) |
|
71
|
0 |
631 |
unless ($name) |
|
74
|
627 |
4 |
if ($self->can($name)) { } |
|
85
|
0 |
7 |
@code ? : |
|
102
|
0 |
6 |
if @pairs % 2 |
|
105
|
0 |
8 |
ref $data ? : |
|
106
|
3 |
5 |
if $value->can($key) and $self->new->do($match, @args)->check($value->$key) |
|
109
|
3 |
3 |
@pairs / 2 == $check ? : |
|
128
|
0 |
91 |
@code ? : |
|
146
|
1 |
0 |
if $data |
|
163
|
0 |
13 |
@code ? : |
|
197
|
174 |
0 |
if ref $self |
|
221
|
1341 |
0 |
if ref $self |
|
240
|
0 |
1 |
@code ? : |
|
249
|
127 |
496 |
ref $data[$i] ? : |
|
260
|
26 |
0 |
if defined $_->value |
|
270
|
0 |
196 |
unless $data |
|
287
|
0 |
122 |
@code ? : |
|
295
|
0 |
4 |
unless ($name) |
|
298
|
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') { } |
|
299
|
0 |
0 |
@code ? : |
|
302
|
0 |
0 |
@code ? : |
|
305
|
0 |
0 |
@code ? : |
|
308
|
1 |
0 |
@code ? : |
|
311
|
0 |
0 |
@code ? : |
|
314
|
1 |
0 |
@code ? : |
|
317
|
1 |
0 |
@code ? : |
|
320
|
0 |
0 |
@code ? : |
|
323
|
0 |
0 |
@code ? : |
|
326
|
0 |
0 |
@code ? : |
|
329
|
0 |
0 |
@code ? : |
|
333
|
1 |
0 |
@code ? : |
|
|
1 |
1 |
UNIVERSAL::isa($_->value, $name) ? : |
|
343
|
0 |
2 |
@code ? : |
|
353
|
32 |
4 |
if defined $_->value and UNIVERSAL::isa($_->value, "HASH") |
|
357
|
0 |
21 |
if @pairs % 2 |
|
360
|
14 |
18 |
ref $data ? : |
|
361
|
25 |
7 |
if $self->new->do($match, @args)->check($value->{$key}) |
|
363
|
14 |
7 |
@pairs / 2 == $check ? : |
|
378
|
5 |
2 |
$_->value->isa($name) ? : |
|
386
|
1 |
1 |
$_->value->isa($name) ? : |
|
395
|
1 |
0 |
$_->value->does($name) ? : |
|
|
1 |
1 |
$_->value->can('does') ? : |
|
404
|
6 |
0 |
if $match |
|
413
|
1 |
141 |
@code ? : |
|
421
|
3 |
4 |
@code ? : |
|
456
|
9 |
22 |
unless (defined $data) |
|
463
|
13 |
9 |
unless ($blessed or ref $data) |
|
466
|
0 |
9 |
if ($blessed and ref $data eq "Regexp") |
|
469
|
0 |
9 |
if ($isvenus and $data->does("Venus::Role::Explainable")) |
|
472
|
0 |
9 |
if ($isvenus and $data->does("Venus::Role::Valuable")) |
|
475
|
0 |
9 |
if ($isvenus and $data->does("Venus::Role::Dumpable")) |
|
478
|
0 |
9 |
if ($blessed and overload::Method($data, "\"\"")) |
|
481
|
0 |
9 |
if ($blessed and $data->can("as_string")) |
|
484
|
0 |
9 |
if ($blessed and $data->can("to_string")) |
|
487
|
0 |
9 |
if ($blessed and $data->isa('Venus::Kind')) { } |
|
499
|
7 |
0 |
if defined $_->value |
|
500
|
0 |
1 |
@code ? : |
|
508
|
0 |
1 |
@code ? : |
|
524
|
1 |
1 |
@data == grep($value->can($_), @data) ? : |
|
533
|
0 |
2 |
@code ? : |
|
547
|
0 |
161 |
@code ? : |
|
557
|
6 |
4 |
if defined $_->value and ref $_->value eq "ARRAY" |
|
561
|
0 |
5 |
if @data != @$value |
|
563
|
5 |
10 |
ref $data[$i] ? : |
|
564
|
12 |
3 |
if $self->new->do($match, @args)->check($value->[$i]) |
|
566
|
2 |
3 |
@data == $check ? : |
|
575
|
0 |
7 |
@code ? : |
|
585
|
105 |
30 |
if $valid |
|
593
|
1 |
0 |
if $data |
|
602
|
9 |
0 |
if defined $_->value |
|
603
|
0 |
3 |
@code ? : |
|
611
|
0 |
6 |
unless ($type) |
|
617
|
3 |
3 |
if (lc $type eq 'hash' or lc $type eq 'hashref') { } |
|
|
3 |
0 |
elsif (lc $type eq 'array' or lc $type eq 'arrayref') { } |
|
620
|
20 |
8 |
if defined $_->value and UNIVERSAL::isa($_->value, "HASH") |
|
623
|
16 |
0 |
if UNIVERSAL::isa($value, "HASH") |
|
630
|
12 |
9 |
if defined $_->value and UNIVERSAL::isa($_->value, "ARRAY") |
|
633
|
9 |
0 |
if UNIVERSAL::isa($value, "ARRAY") |
|
641
|
1 |
3 |
ref $_ ? : |
|
|
4 |
2 |
if @next |
|
650
|
7 |
1 |
if defined $_->value |
|
651
|
0 |
1 |
@code ? : |
|
728
|
143 |
10 |
$either ? : |
|
|
330 |
153 |
wantarray && !$either ? : |
|
749
|
759 |
66 |
unless $expr =~ _type_regexp(_type_subexpr_type_2()) |
|
757
|
1 |
260 |
$_ =~ qr/^@{[_type_subexpr_type_2()];},.*$/u ? : |
|
766
|
61 |
5 |
@items > 1 ? : |
|
775
|
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()))) { } |
|
901
|
3 |
24 |
scalar _type_regexp_eval($_, _type_regexp(_type_subexpr_type_2(), _type_subexpr_type_2())) ? : |
|
926
|
33 |
44 |
if (ref $data eq "HASH") |
|
932
|
1 |
76 |
if (ref $data eq "ARRAY") |
|
933
|
2 |
0 |
/^\w+$/u ? : |