|
BEGIN {
$ENV {KELP_REDEFINE} = 1;
}
my $app = Kelp->new;
dies_ok {
$app ->load_module( 'Shibboleet' );
};
$app ->load_module( 'Null' , name => 'value' );
pass 'Null module loaded' ;
$app ->load_module( 'Plus' , number => 2);
is $app ->plus(5), 7;
my $bpp = Kelp->new;
$bpp ->config_hash->{modules_init}->{Plus} = {
number => 3
};
$bpp ->load_module( 'Plus' );
is $bpp ->plus(5), 8;
my $cpp = Kelp->new;
$cpp ->config_hash->{modules_init}->{Plus} = {
number => 3
};
$cpp ->load_module( 'Plus' , number => 5);
is $cpp ->plus(5), 10;
my $dpp = Kelp->new;
$dpp ->config_hash->{modules_init}->{ 'MyApp::Module::Null' } = {
number => 4
};
$dpp ->load_module( '+MyApp::Module::Null' );
is $dpp ->plus(5), 9;
done_testing;
|