| line |
true |
false |
branch |
|
21
|
0 |
0 |
if (@args) |
|
26
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
ref $_ ? : |
|
39
|
0 |
1 |
eval {
do {
require namespace::autoclean
}
} ? : |
|
61
|
0 |
0 |
unless $_[0][0] |
|
87
|
0 |
1 |
$arg{'-role'} ? : |
|
89
|
0 |
1 |
if (_is_compiling()) { } |
|
102
|
0 |
1 |
unless (-e $mite_file) |
|
121
|
8 |
0 |
$arg->{'-all'} ? : |
|
|
0 |
8 |
$$arg{'!' . $_[0]} ? : |
|
|
0 |
8 |
$$arg{$_[0]} ? : |
|
125
|
1 |
0 |
if &$requested("has", Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
) |
|
126
|
1 |
0 |
if &$requested("param", Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
) |
|
127
|
1 |
0 |
if &$requested("field", Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
) |
|
129
|
1 |
0 |
if &$requested("with", Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
) |
|
133
|
1 |
0 |
if $kind eq "class" and &$requested("extends", Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
) |
|
135
|
0 |
1 |
if $kind eq "role" and &$requested("requires", Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
) |
|
137
|
1 |
0 |
$kind eq 'class' ? : |
|
140
|
0 |
3 |
unless &$requested($modifier, Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
) |
|
142
|
3 |
0 |
if ($kind eq 'class') { } |
|
164
|
0 |
5 |
if (@_ % 2) |
|
166
|
0 |
0 |
'CODE' eq ref $default ? : |
|
173
|
0 |
5 |
ref $names ? : |
|
177
|
0 |
5 |
if "CODE" eq ref($code = $spec{'default'}) |
|
180
|
3 |
2 |
if "CODE" eq ref($code = $spec{'builder'}) |
|
183
|
0 |
5 |
if "CODE" eq ref($code = $spec{'trigger'}) |
|
186
|
0 |
5 |
if "CODE" eq ref($code = $spec{'clone'}) |
|
199
|
0 |
0 |
ref $_[0] ? : |
|
200
|
0 |
0 |
if ($INC{'Role/Tiny.pm'} and 'Role::Tiny'->is_role($role)) { } |
|
216
|
0 |
0 |
if ($INC{'Role/Hooks.pm'}) |
|
220
|
0 |
0 |
if ($cb_before) |
|
221
|
0 |
0 |
unless $cb_before->{$role} |
|
227
|
0 |
0 |
unless $info->{'modifiers'} |
|
233
|
0 |
0 |
if ($cb_after) |
|
234
|
0 |
0 |
unless $cb_after->{$role} |
|
257
|
0 |
0 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n \$coderef->( \@_ );\n \$orig->( \@_ );\n }\n 1;\n" |
|
276
|
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" |
|
306
|
0 |
3 |
unless eval " package $caller;\n no warnings 'redefine';\n sub $name {\n \$coderef->( \$orig, \@_ );\n }\n 1;\n" |