line |
true |
false |
branch |
30
|
66 |
0 |
if ($name eq '__ANON__') { }
|
33
|
66 |
0 |
if (keys %$pad)
|
39
|
66 |
0 |
&blessed($collapsed_pad) ? :
|
52
|
0 |
0 |
if (my $meta = Class::MOP::get_metaclass_by_name($pkg))
|
53
|
0 |
0 |
if (my $method = $meta->get_method($name))
|
54
|
0 |
0 |
if (&refaddr($method->body) == &refaddr($sub) and $method->isa('Class::MOP::Method::Generated') and $method->can('definition_context'))
|
65
|
0 |
0 |
unless (defined $file)
|
67
|
0 |
0 |
unless $cv->XSUB
|
72
|
0 |
0 |
if (defined $file)
|
75
|
0 |
0 |
unless defined $inc_key
|
78
|
0 |
0 |
if (defined $inc_key and $pkg_file ne $inc_key)
|
109
|
99 |
0 |
if (exists $$data{'body'}) { }
|
124
|
0 |
0 |
unless (defined *{$glob;}{'CODE'})
|
125
|
0 |
0 |
if (defined(my $file = $$data{'file'})) { }
|
126
|
0 |
0 |
unless exists $INC{$file}
|
131
|
0 |
0 |
unless (defined *{$glob;}{'CODE'})
|
159
|
99 |
0 |
if (my(@vars) = keys %$pad) { }
|
172
|
99 |
0 |
if $sub
|
180
|
0 |
99 |
unless $sub
|