File Coverage

blib/lib/Aion/Env.pm

Criterion	Covered	Total	%
statement	34	42	80.9
branch	15	24	62.5
condition	11	12	91.6
subroutine	5	5	100.0
pod	1	1	100.0
total	66	84	78.5

package Aion::Env;

use common::sense;

our $VERSION = "0.1";

use constant {};

our %env = %{ -e '.env'? parse('.env'): () };

sub import {
    my ($cls, $name, %kw) = @_;
    my $isa = delete $kw{isa};
    my $is_default = exists $kw{default};
    my $default = delete $kw{default};
    die sprintf "Unknown keyword%s: %s",
    	scalar keys %kw == 1? '': 's',
     	join ", ", sort keys %kw if keys %kw;

    die "$name is'nt defined!" if !exists $ENV{$name} && !exists $env{$name} && !$is_default;

    my $pkg = caller;
    my $val = $ENV{$name} // $env{$name} // $default;

    if($isa) {
    	if(UNIVERSAL::can($isa, "validate")) { $isa->validate($val, $name) }
     	else {
	    	local $_ = $val;
	    	die "$name type is'nt isa!" unless $isa->();
		}
    }

    constant->import("$pkg\::$name", $val);
}

my $BOM = "\x{feff}";
sub parse {
    my ($file) = @_;
    open my $f, '<:utf8', $file or die "$file: $!";

    my %env;
    my $interpolate = sub {
    	$_[0] =~ s!\$\{(\w+)\}!$env{$1}!ge;
    };

    while(<$f>) {
    	s/^$BOM// if $. == 1;
        next if /^\s*(?:#|$)/;

        if(my ($k, $v) = /^\s*([a-z_]\w*)\s*=\s*(.*?)\s*$/i) {
            if($v =~ s/^(['"])(.*)\1\z/$2/) {
            	if($1 eq '"') {
	                $v =~ s/\\n/\n/g;
	                $v =~ s/\\//g;
					$interpolate->($v);
                }
            }
            else { $interpolate->($v) }
            $env{$k} = $v;
        }
        else {
        	my $message = "Can't parse $file line $.: $_";
            close $f;
            die $message;
        }
    }

    close $f;

    \%env
};

1;

__END__