| line |
true |
false |
branch |
|
14
|
17 |
64 |
if (&any(sub {
$s->[0] eq $_;
}
, 'use', 'no') and scalar @$s > 2 and &any(sub {
$s->[1] eq $_;
}
, 'aliased', 'base', 'mixin::with', 'Mojo::Base', 'ok', 'parent', 'superclass', 'Test::Class::Most')) |
|
20
|
0 |
17 |
$version ? : |
|
22
|
17 |
0 |
if (scalar @$s > $voffset) |
|
23
|
1 |
16 |
if $s->[$voffset] eq ';' |
|
28
|
3 |
13 |
if &any(sub {
$s->[1] eq $_;
}
, 'parent', 'superclass') |
|
29
|
3 |
13 |
if $s->[1] eq 'Mojo::Base' |
|
33
|
6 |
10 |
if $args[0] and &any(sub {
$s->[1] eq $_;
}
, 'aliased', 'mixin::with', 'Mojo::Base', 'ok') |
|
34
|
2 |
14 |
if ($s->[1] eq 'Test::Class::Most') |
|
38
|
5 |
8 |
if ($tcmparent) { } |
|
39
|
1 |
4 |
if (&any(sub {
$arg eq $_;
}
, 'attributes', 'is_abstract')) |
|
45
|
3 |
5 |
if ($arg eq 'parent') |
|
56
|
1 |
17 |
if ($args[$i + 1] and $args[$i + 1] =~ /^v?\d+(?:\.\d+)*$/) |