line |
true |
false |
branch |
193
|
3 |
3 |
if (overload::Overloaded($object) and overload::Method($object, '""') || overload::Method($object, '0+')) |
200
|
0 |
3 |
if ($error) { } |
211
|
2 |
136 |
if ($object->can($method)) |
214
|
0 |
2 |
if ($error) { } |
232
|
35 |
2 |
unless overload::Overloaded($object) |
249
|
2 |
222 |
if exists $attributes->{$method_string} |
250
|
26 |
196 |
if $seen_method_name{$method_string}++ |
251
|
1 |
195 |
if $method_string eq "__ANON__" |
252
|
40 |
155 |
substr($method_string, 0, 1) eq '_' ? : |
253
|
104 |
91 |
if ($package_string eq $class_name) { } |
254
|
13 |
91 |
unless $show_methods eq "all" or $show_methods eq $type |
258
|
44 |
47 |
unless $show_inherited eq "all" or $show_inherited eq $type |
264
|
3 |
1 |
unless $show_methods eq "all" or $show_methods eq $type or $show_inherited eq "all" or $show_inherited eq $type |
267
|
4 |
67 |
if ($ddp->class->format_inheritance eq 'string') { } |
269
|
3 |
1 |
if @method_list and $ddp->class->sort_methods |
273
|
3 |
1 |
if (@method_list) |
277
|
6 |
6 |
defined $methods{$type}{$_} ? : |
291
|
41 |
85 |
if (defined $pkg_name) { } |
301
|
39 |
28 |
if @base_methods and $ddp->class->sort_methods |
304
|
41 |
26 |
$total_methods ? : |
307
|
39 |
28 |
if (@base_methods) |
313
|
15 |
24 |
keys %lined_methods ? : |
319
|
22 |
0 |
if $ddp->class->sort_methods |
340
|
0 |
224 |
unless $subref |
342
|
0 |
224 |
unless $m and $m->isa("B::CV") |
344
|
0 |
224 |
unless $gv and not $gv->isa("B::Special") and $gv->NAME |
356
|
9 |
502 |
if substr($key, 0, 1) eq "(" |
357
|
224 |
278 |
if (ref \$namespace->{$key} ne "GLOB" or defined *{$namespace->{$key};}{"CODE"}) |