| line |
true |
false |
branch |
|
19
|
0 |
21 |
unless my $has = (my $target = caller)->can('has')
|
|
143
|
0 |
1 |
unless (my $point = $self->can($sub))
|
|
168
|
1 |
20 |
unless %opts
|
|
170
|
1 |
20 |
if $name =~ s/^\+//u
|
|
172
|
1 |
20 |
if defined $opts{'new'}
|
|
173
|
1 |
20 |
if defined $opts{'bld'}
|
|
174
|
1 |
20 |
if defined $opts{'clr'}
|
|
175
|
1 |
20 |
if defined $opts{'crc'}
|
|
176
|
2 |
19 |
if defined $opts{'def'}
|
|
177
|
1 |
20 |
if defined $opts{'hnd'}
|
|
178
|
2 |
19 |
if defined $opts{'isa'}
|
|
179
|
1 |
20 |
if defined $opts{'lzy'}
|
|
180
|
2 |
19 |
if defined $opts{'opt'}
|
|
181
|
1 |
20 |
if defined $opts{'pre'}
|
|
182
|
1 |
20 |
if defined $opts{'rdr'}
|
|
183
|
2 |
19 |
if defined $opts{'req'}
|
|
184
|
1 |
20 |
if defined $opts{'tgr'}
|
|
185
|
1 |
20 |
if defined $opts{'use'}
|
|
186
|
1 |
20 |
if defined $opts{'wkr'}
|
|
187
|
1 |
20 |
if defined $opts{'wrt'}
|
|
189
|
2 |
19 |
if delete $opts{'mod'} or delete $opts{'modify'}
|