File Coverage

blib/lib/Envy/Load.pm

Criterion	Covered	Total	%
statement	30	33	90.9
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	38	45	84.4

use strict;
package Envy::Load;
use Carp;
require Envy::DB;

$ENV{ENVY_CONTEXT} = $^X;

sub import {
    my ($me, @imports) = @_;
    my $db = Envy::DB->new(\%ENV);
    for my $pkg (@imports) {
	$db->envy(0, $pkg);
    }
    $db->commit;
    for ($db->warnings) { print STDERR $_; }
    $me->sync($db);
}

sub sync {
    my ($e, $db) = @_;
    for my $z ($db->to_sync()) {
	my ($k,$v) = @$z;
	if (defined $v) {
	    $ENV{$k} = $v;
	} else {
	    delete $ENV{$k};
	}
    }
}

sub new {
    my $class = shift;
    my %old = %ENV;
    bless \%old, $class;
}

sub load {
    my $e = shift;
    my $db = Envy::DB->new(\%ENV);
    for my $pkg (@_) {
	$db->envy(0, $pkg);
    }
    $db->commit;
    $e->sync($db);
    for ($db->warnings) { print STDERR $_; }
}

sub DESTROY {
    my $o = shift;
    %ENV = %$o;
}

1;
__END__