1.0-or-later
use 5.014;
use warnings;
use utf8;
our $VERSION = 2.001;
use File::Spec qw();
use JSON::PP qw();
sub dist_dir {
my $class = shift;
my $dist = $class;
$dist =~ s/::/-/g;
ss->dist_dir;
my $json_file = File::Spec->catfile($dist_dir, '_alien', 'alien.json');
open my $in, '<', $json_file
or die "Cannot read $json_file";
my $json = do { local $/; <$in>
};
close $in;
my $config = JSON::PP::decode_json($json);
$config->{distdir} = $dist_dir;
if ($config->{install_type} eq 'share') {
my $inc_dir = File::Spec->catdir($dist_di