| blib/lib/Alien/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 36 | 44.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 103 | 0 | 0 | 22 | defined $dist_dir and -d $dist_dir |
| 213 | 1 | 1 | 9 | @x and @y |
| 217 | 0 | 0 | 9 | $x_isnum and $y_isnum |
| 281 | 0 | 0 | 2 | defined $self->config("original_prefix") and $self->config("original_prefix") ne $self->dist_dir |
| 569 | 5 | 0 | 1 | ref $old and defined $old->{'_alt'} |
| 613 | 1 | 0 | 1 | exists $alts->{$alt_name} && defined $alts->{$alt_name} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 95 | 0 | 22 | 0 | &blessed($class) || $class |
| 217 | 0 | 0 | 0 | $x_isnum || $y_isnum |
| 258 | 0 | 0 | 2 | $! or $? |
| 304 | 8 | 6 | 0 | -d $_ or not /\.pc$/ |
| 337 | 0 | 72 | 0 | &blessed($class) || $class |
| 545 | 0 | 10 | 0 | $alien_build_config_cache{$class} ||= do { my $dist = ref $class ? ref $class : $class; $dist =~ s/::/-/g; my $dist_dir = eval { do { &_dist_dir($dist) } }; return if $@; my $alien_json = "Path::Tiny"->new($dist_dir, "_alien", "alien.json"); return unless -r $alien_json; my $json = $alien_json->slurp; require JSON::PP; my $config = JSON::PP::decode_json($json); $config->{'distdir'} = $dist_dir; $config } |