blib/lib/Alien/Base.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 10 | 21 | 47.6 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
192 | 0 | 0 | 14 | defined $dist_dir and -d $dist_dir |
358 | 0 | 0 | 2 | defined $self->config('original_prefix') and $self->config('original_prefix') ne $self->dist_dir |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
184 | 0 | 14 | 0 | &blessed($class) || $class |
335 | 0 | 0 | 6 | $! or $? |
380 | 8 | 6 | 0 | -d $_ or not /\.pc$/ |
423 | 16 | 53 | 0 | &blessed($class) || $class |
674 | 0 | 4 | 2 | $alien_build_config_cache{$class} ||= do { my $dist = ref $class ? ref $class : $class; $dist =~ s/::/-/g; my $dist_dir = eval { do { File::ShareDir::dist_dir($dist) } }; return if $@; my $alien_json = 'File::Spec'->catfile($dist_dir, '_alien', 'alien.json'); return unless -r $alien_json; open my $fh, '<', $alien_json; my $json = do { local $/; readline $fh }; close $fh; require JSON::PP; my $config = JSON::PP::decode_json($json); $config->{'distdir'} = $dist_dir; $config } |