package App::Env::Site1::App1;
use strict;
use warnings;
# track the number of times this is invoked
my $cnt = 0;
sub envs
{
my ( $opt ) = @_;
$cnt++;
warn( "Site1 App1 $cnt\n" ) if $ENV{APP_ENV_DEBUG};
return { %ENV,
Site1_App1 => $cnt,
Site1_App1_v1 => $cnt,
%{$opt} };
}
sub reset
{
$cnt = 0;
}
1;