view release on metacpan or  search on metacpan

t/setenv.t  view on Meta::CPAN

#!perl

use Test2::V0;

use Test::Lib;
use App::Env;

my $env = App::Env->new( 'App1' );

$env->setenv( Site1_App1 => 'fooey' );
is( $env->env( 'Site1_App1' ), 'fooey', 'set' );

$env->setenv( 'Site1_App1' );
is( $env->env( 'Site1_App1' ), undef, 'delete' );

done_testing;