| line |
true |
false |
branch |
|
46
|
0 |
14 |
unless -r $self->file |
|
47
|
0 |
14 |
unless $self->mode =~ /^(a(ll)?|p(ackage|rov)?|compile|d(ep)?|r(untime|eq)?|u(se)?)$/ |
|
51
|
0 |
14 |
unless $document |
|
52
|
0 |
14 |
unless my $statements = $document->find('Statement') |
|
62
|
182 |
0 |
if ($self->mode =~ /^a/o or $_->type eq 'package' and $self->mode =~ /^p/o or $_->type eq 'compile' and $self->mode =~ /^[cdu]/o or $_->type eq 'runtime' and $self->mode =~ /^[dr]/o) |
|
73
|
15 |
130 |
if ($children->[1] and $children->[1] eq ',' || $children->[1] eq '=>') |
|
79
|
174 |
1585 |
if (my $data = $hook->run($children)) |
|
82
|
8 |
152 |
if (not $k =~ /^[a-z_][a-z0-9_]*(::[a-z0-9_]+)*(::)?$/io or $k =~ /^__[A-Z]+__$/o) |
|
87
|
1 |
151 |
if (my($class) = $k =~ /^(.+)::$/o) |
|
89
|
1 |
0 |
unless exists $modules->{$class} |
|
96
|
1 |
173 |
if ($type eq 'package') { } |
|
|
124 |
49 |
elsif ($type eq 'compile') { } |
|
|
49 |
0 |
elsif ($type eq 'runtime') { } |
|
103
|
14 |
160 |
if (@{$data->hooks;}) |
|
105
|
0 |
14 |
if $newhook->type eq 'package' and $self->mode =~ /^[dcru]/o |
|
106
|
0 |
14 |
if $newhook->type eq 'runtime' and $self->mode =~ /^[pcu]/o |
|
107
|
0 |
14 |
if $newhook->type eq 'compile' and $self->mode =~ /^[pr]/o |
|
110
|
19 |
172 |
if &blessed($newhook) eq &blessed($_) |
|
112
|
8 |
6 |
if &none(sub {
$newhook->type eq $_->type if &blessed($newhook) eq &blessed($_);
}
, @hooks) |
|
115
|
22 |
152 |
if (@{$data->children;}) |