view release on metacpan or  search on metacpan

DB.IN  view on Meta::CPAN

$EVERSION = 4;  # environment variable protocol version

sub EVERSION()    { 'ENVY_VERSION'   }
sub PATH()        { 'ENVY_PATH'      }
sub STATE()       { 'ENVY_STATE'     }
sub DIMENSION()   { 'ENVY_DIMENSION' }
sub CONTEXT()     { 'ENVY_CONTEXT'   }
sub VERBOSE()     { 'ENVY_VERBOSE'   }

if ($ENV{REGRESSION_ENVY_PATH}) {
    @DefaultPath = split m/\s+/, $ENV{REGRESSION_ENVY_PATH};
    @FORCEPATH = ();
} else {
    @DefaultPath = #SEARCH#
	;
    @FORCEPATH = #FORCEPATH#
	;
}

sub new { #PUBLIC
    my ($class, $env) = @_;

t/verylong.t  view on Meta::CPAN

#while (my($k,$v)=each %got) { warn "$k $v\n" }

envy(0, 'insure');
my @s = grep /ENVY_STATE/, keys %got;
my @d = grep /ENVY_DIMENSION/, keys %got;
ok @s > 1;
ok @d > 1;

my %state;
for my $k (@s) {
    my ($e,$by) = split m/,/, $got{$k};
    die "dup $e" if exists $state{$e};
    $state{$e} = $by;
}
ok $state{area1}, '0';
ok $state{insure}, '1';
ok $state{'cc-tools'}, 'SUNWspro-4.2';

my %dim;
for my $k (@d) {
    my ($d,$e) = split m/,/, $got{$k};
    die "dup $d" if exists $dim{$d};
    $dim{$d} = $e;
}
ok $dim{First}, 'area1';
ok $dim{sunpro}, 'SUNWspro-4.2';

envy(1, 'area1');

# expecting no warnings
my @w = $db->warnings;