30 |
@ISA = qw(Libconf); |
@ISA = qw(Libconf); |
31 |
|
|
32 |
sub new { |
sub new { |
33 |
my ($pkg, $filename) = @_; |
my ($class, $filename) = @_; |
34 |
my $libconf = Libconf::new('Libconf', $filename, 'resolv', ''); |
my $libconf = Libconf::new('Libconf', $filename, 'resolv', ''); |
35 |
tie my %wrapper, 'Libconf::Glueconf::Resolv::Wrapper', $libconf; |
tie my %wrapper, 'Libconf::Glueconf::Resolv::Wrapper', $libconf; |
36 |
bless \%wrapper, $pkg; |
bless \%wrapper, $class; |
37 |
} |
} |
38 |
|
|
39 |
sub readConf { |
sub readConf { |
40 |
my ($obj) = @_; |
my ($obj) = @_; |
|
print "Resolv : Readconf --\n"; |
|
41 |
$obj->{libconf}->readConf(); |
$obj->{libconf}->readConf(); |
42 |
} |
} |
43 |
|
|