32 |
my @keywords_list = (); |
my @keywords_list = (); |
33 |
|
|
34 |
sub new { |
sub new { |
35 |
my ($pkg, $filename) = @_; |
my ($class, $filename) = @_; |
36 |
my $libconf = $pkg->Libconf::new($filename, 'XF86Config', ''); |
my $libconf = Libconf::new('Libconf', $filename, 'XF86Config', ''); |
37 |
# print Data::Dumper->Dump([$libconf],['libconf']) . "\n"; |
# print Data::Dumper->Dump([$libconf],['libconf']) . "\n"; |
38 |
#my $ret = Libconf::Glueconf::generateFunctions(@synopsis); |
#my $ret = Libconf::Glueconf::generateFunctions(@synopsis); |
39 |
#print " plop : $ret\n"; |
#print " plop : $ret\n"; |
42 |
# $self->{content} = {}; |
# $self->{content} = {}; |
43 |
tie my %wrapper, 'Libconf::Glueconf::XF86Config::Wrapper', $libconf; |
tie my %wrapper, 'Libconf::Glueconf::XF86Config::Wrapper', $libconf; |
44 |
# print Data::Dumper->Dump([%wrapper],['wrapper']) . "\n"; |
# print Data::Dumper->Dump([%wrapper],['wrapper']) . "\n"; |
45 |
\%wrapper; |
bless \%wrapper, $class; |
46 |
} |
} |
47 |
|
|
48 |
#sub getSections { |
#sub getSections { |