| 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') |
|
57
|
182 |
0 |
if (eval "require $hook; 1") { } |
|
65
|
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) |
|
76
|
15 |
132 |
if ($children->[1] and $children->[1] eq ',' || $children->[1] eq '=>') |
|
82
|
178 |
1633 |
if (my $data = $hook->run($children)) |
|
84
|
0 |
178 |
if &any(sub {
$_ eq '->';
}
, keys %$modules) |
|
86
|
8 |
157 |
if (not $k =~ /^[a-z_][a-z0-9_]*(?:::[a-z0-9_]+)*(?:::)?$/io or $k =~ /^__[A-Z]+__$/o) |
|
91
|
1 |
156 |
if (my($class) = $k =~ /^(.+)::$/o) |
|
93
|
1 |
0 |
unless exists $modules->{$class} |
|
100
|
1 |
177 |
if ($type eq 'package') { } |
|
|
128 |
49 |
elsif ($type eq 'compile') { } |
|
|
49 |
0 |
elsif ($type eq 'runtime') { } |
|
107
|
14 |
164 |
if (@{$data->hooks;}) |
|
109
|
0 |
14 |
if $newhook->type eq 'package' and $self->mode =~ /^[dcru]/o |
|
110
|
0 |
14 |
if $newhook->type eq 'runtime' and $self->mode =~ /^[pcu]/o |
|
111
|
0 |
14 |
if $newhook->type eq 'compile' and $self->mode =~ /^[pr]/o |
|
114
|
19 |
172 |
if &blessed($newhook) eq &blessed($_) |
|
116
|
8 |
6 |
if &none(sub {
$newhook->type eq $_->type if &blessed($newhook) eq &blessed($_);
}
, @hooks) |
|
119
|
22 |
156 |
if (@{$data->children;}) |