| line |
true |
false |
branch |
|
17
|
0 |
1 |
eval {
do {
require namespace::autoclean
}
} ? : |
|
49
|
0 |
1 |
$ENV{'MITE_COMPILE'} ? : |
|
61
|
0 |
1 |
$arg{'-role'} ? : |
|
63
|
0 |
1 |
if (_is_compiling()) { } |
|
76
|
0 |
1 |
if $ENV{'TEST_COMPILE'} |
|
80
|
0 |
1 |
unless (-e $mite_file) |
|
100
|
0 |
7 |
$$arg{'!' . $_[0]} ? : |
|
|
1 |
7 |
$$arg{$_[0]} ? : |
|
104
|
1 |
0 |
if &$requested("has", 1) |
|
105
|
1 |
0 |
if &$requested("param", 0) |
|
106
|
0 |
1 |
if &$requested("field", 0) |
|
108
|
1 |
0 |
if &$requested("with", 1) |
|
112
|
1 |
0 |
if $kind eq "class" and &$requested("extends", 1) |
|
114
|
0 |
1 |
if $kind eq "role" and &$requested("requires", 1) |
|
116
|
0 |
1 |
$kind eq 'role' ? : |
|
119
|
0 |
3 |
unless &$requested($modifier, 1) |
|
121
|
3 |
0 |
if ($kind eq 'class') { } |
|
142
|
8 |
0 |
unless ref $names |
|
148
|
0 |
8 |
if (ref $default eq "CODE") |
|
154
|
0 |
8 |
if (ref $builder eq "CODE") |
|
160
|
0 |
8 |
if (ref $trigger eq "CODE") |
|
176
|
0 |
0 |
ref $_[0] ? : |
|
177
|
0 |
0 |
if ($INC{'Role/Tiny.pm'} and 'Role::Tiny'->is_role($role)) { } |
|
193
|
0 |
0 |
if ($INC{'Role/Hooks.pm'}) |
|
197
|
0 |
0 |
if ($cb_before) |
|
198
|
0 |
0 |
unless $cb_before->{$role} |
|
204
|
0 |
0 |
unless $info->{'modifiers'} |
|
210
|
0 |
0 |
if ($cb_after) |
|
211
|
0 |
0 |
unless $cb_after->{$role} |
|
235
|
0 |
0 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n \$coderef->( \@_ );\n \$orig->( \@_ );\n }\n 1;\n" |
|
254
|
0 |
0 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n my \@r;\n if ( wantarray ) {\n \@r = \$orig->( \@_ );\n }\n elsif ( defined wantarray ) {\n \@r = scalar \$orig->( \@_ );\n }\n else {\n \$orig->( \@_ );\n 1;\n }\n \$coderef->( \@_ );\n wantarray ? \@r : \$r[0];\n }\n 1;\n" |
|
284
|
0 |
0 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n \$coderef->( \$orig, \@_ );\n }\n 1;\n" |