package Dotsh;

use JSON;

sub load {
	my ($base_dir, $env_file, $setenv) = @_;
	$setenv //= 1;
	my $j = `dotsh \Q$base_dir\E \Q$env_file\E json`;
	my $d = decode_json($j);
	if ($setenv) {
		while (($k, $v) = each %$d) {
			$ENV{$k} = $v;
		}
	}
	return $d;
}

1