| line |
true |
false |
branch |
|
18
|
0 |
4 |
eval {
do {
require List::MoreUtils
}
} ? : |
|
42
|
0 |
6 |
if $$args{'no_meta'} |
|
52
|
1 |
8 |
if ($$info{'api'} and not $$info{'provides'} && $$info{'requires'}) |
|
58
|
1 |
1 |
$$info{'name'}->can($method) ? : |
|
66
|
0 |
9 |
unless ($$info{'api'}) |
|
77
|
0 |
98 |
ref $_ ? : |
|
88
|
0 |
0 |
unless exists $$data{'name'} |
|
95
|
0 |
0 |
blessed $attr && $attr->can('is') ? : |
|
96
|
0 |
0 |
blessed $attr && $attr->can('name') ? : |
|
|
0 |
0 |
if $is =~ /\A(ro|rw|lazy|rwp)\z/i |
|
101
|
0 |
0 |
blessed $attr ? : |
|
102
|
0 |
0 |
if ref $method_name |
|
103
|
0 |
0 |
if defined $method_name |
|
107
|
0 |
0 |
if (blessed $attr and $attr->can('_canonicalize_handles')) { } |
|
109
|
0 |
0 |
$attr->can('handles') ? : |
|
|
0 |
0 |
$attr->can('_canonicalize_handles') ? : |
|
119
|
0 |
0 |
if (not defined $handles) { } |
|
|
0 |
0 |
elsif (not ref $handles) { } |
|
|
0 |
0 |
elsif (ref $handles eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $handles eq 'HASH') { } |
|
254
|
0 |
5 |
unless defined $thing |
|
255
|
0 |
5 |
if ref $thing and not blessed $thing |
|
259
|
2 |
3 |
if $thing->can('does') and $thing->does($role) |
|
260
|
1 |
2 |
if $thing->can('DOES') and $thing->DOES($role) |
|
262
|
0 |
2 |
unless my $info = $me->get_role_info($role) |
|
265
|
2 |
0 |
if ($$info{'type'} eq 'Role::Tiny' or $$info{'type'} eq 'Moo::Role') |
|
267
|
1 |
1 |
if Role::Tiny::does_role($thing, $role) |
|
270
|
0 |
1 |
if ($$info{'type'} eq 'Moose::Role') |
|
273
|
0 |
0 |
if Moose::Util::does_role($thing, $role) |
|
276
|
0 |
1 |
if ($$info{'type'} eq 'Mouse::Role') |
|
279
|
0 |
0 |
if Mouse::Util::does_role($thing, $role) |
|
282
|
1 |
0 |
unless (ref $thing) |
|
286
|
1 |
0 |
if ($$info2{'type'} eq 'Role::Tiny' or $$info2{'type'} eq 'Moo::Role') |
|
288
|
0 |
1 |
if Role::Tiny::does_role($thing, $role) |
|
291
|
0 |
1 |
if ($$info2{'type'} eq 'Moose::Role' or $INC{'Moose.pm'} and Moose::Util::find_meta($thing)) |
|
295
|
0 |
0 |
if Moose::Util::does_role($thing, $role) |
|
298
|
0 |
1 |
if ($$info2{'type'} eq 'Mouse::Role' or $INC{'Mouse.pm'} and Mouse::Util::find_meta($thing)) |
|
302
|
0 |
0 |
if Mouse::Util::does_role($thing, $role) |