| line |
true |
false |
branch |
|
34
|
0 |
0 |
if (@args) |
|
39
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
if (ref $_) { } |
|
54
|
0 |
0 |
unless $_[0][0] |
|
64
|
0 |
0 |
if (ref $ref eq "ARRAY") |
|
69
|
0 |
0 |
if (ref $ref eq "HASH") |
|
90
|
0 |
3 |
if defined $Mite::COMPILING |
|
98
|
0 |
3 |
if (_is_compiling()) { } |
|
113
|
3 |
0 |
if $base eq substr($file, 0, length $base) and -f "File::Spec"->catfile($base, substr($file, 1 + length($base))) and $orig = "File::Spec"->abs2rel($file, $base) |
|
122
|
0 |
3 |
unless (eval {
do {
require $mite_file;
1
}
}) |
|
131
|
3 |
0 |
if not $arg{'-unclean'} |
|
138
|
0 |
0 |
if ($INC{'Role/Hooks.pm'}) |
|
142
|
0 |
0 |
if ($cb_before) |
|
143
|
0 |
0 |
unless $cb_before->{$role} |
|
147
|
0 |
0 |
unless $info->{'modifiers'} |
|
153
|
0 |
0 |
if ($cb_after) |
|
154
|
0 |
0 |
unless $cb_after->{$role} |
|
164
|
0 |
0 |
ref $_[0] ? : |
|
165
|
0 |
0 |
if ($INC{'Role/Tiny.pm'} and 'Role::Tiny'->is_role($role)) { } |
|
179
|
0 |
90 |
if (@_ % 2) |
|
181
|
0 |
0 |
'CODE' eq ref $default ? : |
|
187
|
0 |
90 |
ref $names ? : |
|
190
|
87 |
3 |
if "CODE" eq ref($code = $spec{'default'}) |
|
192
|
0 |
90 |
if "CODE" eq ref($code = $spec{'builder'}) |
|
194
|
0 |
90 |
if "CODE" eq ref($code = $spec{'trigger'}) |
|
196
|
0 |
90 |
if "CODE" eq ref($code = $spec{'clone'}) |
|
207
|
3 |
0 |
if $orig |
|
213
|
0 |
3 |
if (ref $_) { } |
|
222
|
0 |
0 |
if ($kind eq "role") |
|
230
|
0 |
0 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n \$coderef->( \@_ );\n \$orig->( \@_ );\n }\n 1;\n" |
|
248
|
0 |
0 |
if ($kind eq "role") |
|
256
|
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" |
|
285
|
0 |
3 |
if ($kind eq "role") |
|
293
|
0 |
3 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n \$coderef->( \$orig, \@_ );\n }\n 1;\n" |