| line |
true |
false |
branch |
|
45
|
0 |
15 |
unless -r $self->file |
|
46
|
0 |
15 |
unless $self->mode =~ /^(a(ll)?|p(ackage|rov)?|compile|d(ep)?|r(untime|eq)?|u(se)?)$/ |
|
50
|
0 |
15 |
unless $document |
|
51
|
0 |
15 |
unless my $statements = $document->find('Statement') |
|
56
|
195 |
0 |
if (eval "require $hook; 1") { } |
|
64
|
195 |
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) |
|
75
|
17 |
138 |
if ($children->[1] and $children->[1] eq ',' || $children->[1] eq '=>') |
|
81
|
190 |
1704 |
if (my $data = $hook->run($children)) |
|
83
|
0 |
190 |
if &any(sub {
$_ eq '->';
}
, keys %$modules) |
|
85
|
8 |
168 |
if (not $k =~ /^[a-z_][a-z0-9_]*(?:::[a-z0-9_]+)*(?:::)?$/io or $k =~ /^__[A-Z]+__$/o) |
|
90
|
1 |
167 |
if (my($class) = $k =~ /^(.+)::$/o) |
|
92
|
1 |
0 |
unless exists $modules->{$class} |
|
99
|
1 |
189 |
if ($type eq 'package') { } |
|
|
138 |
51 |
elsif ($type eq 'compile') { } |
|
|
51 |
0 |
elsif ($type eq 'runtime') { } |
|
106
|
17 |
173 |
if (@{$data->hooks;}) |
|
108
|
0 |
17 |
if $newhook->type eq 'package' and $self->mode =~ /^[dcru]/o |
|
109
|
0 |
17 |
if $newhook->type eq 'runtime' and $self->mode =~ /^[pcu]/o |
|
110
|
0 |
17 |
if $newhook->type eq 'compile' and $self->mode =~ /^[pr]/o |
|
113
|
24 |
208 |
if &blessed($newhook) eq &blessed($_) |
|
115
|
9 |
8 |
if &none(sub {
$newhook->type eq $_->type if &blessed($newhook) eq &blessed($_);
}
, @hooks) |
|
118
|
22 |
168 |
if (@{$data->children;}) |