| line |
true |
false |
branch |
|
40
|
57 |
8 |
if Moo::Role::does_role($target, "MooX::TaggedAttributes::Propagate")
|
|
59
|
5 |
57 |
if $APPLIED_ROLE{$ltarget}{$role}++
|
|
81
|
0 |
30 |
unless exists $ARGS{$arg}
|
|
82
|
22 |
8 |
defined $ARGS{$arg} ? :
|
|
85
|
18 |
0 |
unless Moo::Role::does_role($target, "MooX::TaggedAttributes::Role")
|
|
88
|
0 |
18 |
unless %args
|
|
90
|
18 |
0 |
if (defined $args{"-tags"})
|
|
92
|
4 |
14 |
unless "ARRAY" eq ref $args{"-tags"}
|
|
96
|
18 |
0 |
if @{$args{"-tags"};}
|
|
99
|
8 |
10 |
if (defined $args{"-propagate"} and $args{"-propagate"})
|
|
133
|
0 |
97 |
unless "Moo::Role"->is_role($role)
|
|
136
|
40 |
57 |
unless (Moo::Role::does_role($target, $role))
|
|
138
|
13 |
27 |
if ('Moo::Role'->is_role($target)) { }
|
|
150
|
0 |
27 |
if ($^V lt v5.14) { }
|
|
153
|
0 |
0 |
if ($pkg->has_symbol('&import')) { }
|
|
163
|
0 |
0 |
if $e ne ""
|
|
170
|
27 |
0 |
unless defined *{$glob;}{"CODE"}
|
|
207
|
88 |
27 |
unless exists $TAGSTORE{$target}
|
|
214
|
22 |
93 |
if (my $handler = $opt{"-handler"} // defined $opt{'-class'} && $TAGHANDLER{$opt{'-class'}})
|
|
217
|
18 |
4 |
'ARRAY' eq ref $handler ? :
|
|
281
|
0 |
99 |
ref $attrs ? :
|
|
297
|
51 |
48 |
$is_role ? :
|