3 |
use Libconf::Glueconf::Autologin; |
use Libconf::Glueconf::Autologin; |
4 |
use Data::Dumper; |
use Data::Dumper; |
5 |
|
|
6 |
my $autologin = new Libconf::Glueconf::Autologin(autologin); |
my $autologin = new Libconf::Glueconf::Autologin('autologin'); |
7 |
|
|
8 |
print "user : " . $autologin->getUser() . "\n"; |
print Data::Dumper->Dump([$autologin], ['autologin']) . "\n"; |
9 |
print "is autologin ? : ". $autologin->isAutologin() . "\n"; |
|
10 |
|
$autologin->{USER} = 'chl'; |
11 |
|
$autologin->{AUTOLOGIN} = 'no'; |
12 |
|
|
13 |
|
print Data::Dumper->Dump([$autologin], ['autologin']) . "\n"; |
14 |
|
|
15 |
|
#print "user : " . $autologin->getUser() . "\n"; |
16 |
|
#print "is autologin ? : ". $autologin->isAutologin() . "\n"; |