32 |
if ($element->{type} eq 'KEY_VALUE') { |
if ($element->{type} eq 'KEY_VALUE') { |
33 |
if ($element->{value} eq 'BOOLEAN') { |
if ($element->{value} eq 'BOOLEAN') { |
34 |
$ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Is' : 'is') . ucfirst($element->{key}) . ' {' . |
$ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Is' : 'is') . ucfirst($element->{key}) . ' {' . |
35 |
q| |
q( |
36 |
my $self = shift; |
my $self = shift; |
37 |
MDK::Common::Various::text2bool($self->getAtom($self->findAtomPos({key => '| . $element->{key} . q|'}))->{value}); |
MDK::Common::Various::text2bool($self->getAtom($self->findAtomPos({key => '| . $element->{key} . q|'}))->{value}); |
38 |
} |
} |
39 |
|
|
40 |
|; |
); |
41 |
$ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Set' : 'set') . ucfirst($element->{key}) . ' {' . |
$ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Set' : 'set') . ucfirst($element->{key}) . ' {' . |
42 |
q| |
q( |
43 |
my ($self, $| . $element->{key} . q|) = @_; |
my ($self, $| . $element->{key} . q|) = @_; |
44 |
$self->editAtom(-1, {key => '| . $element->{key} . q|', value => MDK::Common::Various::bool2yesno($| . $element->{key} . q|)}); |
$self->editAtom(-1, {key => '| . $element->{key} . q|', value => MDK::Common::Various::bool2yesno($| . $element->{key} . q|)}); |
45 |
} |
} |
46 |
|
|
47 |
|; |
); |
48 |
} else { |
} else { |
49 |
$ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Get' : 'get') . ucfirst($element->{key}) . ' {' . |
$ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Get' : 'get') . ucfirst($element->{key}) . ' {' . |
50 |
q| |
q( |
51 |
my $self = shift; |
my $self = shift; |
52 |
$self->getAtom($self->findAtomPos({key => '| . $element->{key} . q|'}))->{value}; |
$self->getAtom($self->findAtomPos({key => '| . $element->{key} . q|'}))->{value}; |
53 |
} |
} |
54 |
|
|
55 |
|; |
); |
56 |
$ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Set' : 'set') . ucfirst($element->{key}) . ' {' . |
$ret .= 'sub ' . ($current_section ? ucfirst($current_section) . 'Set' : 'set') . ucfirst($element->{key}) . ' {' . |
57 |
q| |
q( |
58 |
my ($self, $| . $element->{key} . q|) = @_; |
my ($self, $| . $element->{key} . q|) = @_; |
59 |
$self->editAtom(-1, {key => '| . $element->{key} . q|', value => $| . $element->{key} . q|}); |
$self->editAtom(-1, {key => '| . $element->{key} . q|', value => $| . $element->{key} . q|}); |
60 |
} |
} |
61 |
|
|
62 |
|; |
); |
63 |
} |
} |
64 |
} |
} |
65 |
if ($element->{type} eq 'SECTION') { |
if ($element->{type} eq 'SECTION') { |
67 |
$ret .= generateFunctions(@{$element->{content}}); |
$ret .= generateFunctions(@{$element->{content}}); |
68 |
} |
} |
69 |
} |
} |
70 |
$ret .= q|sub getSections { |
$ret .= q(sub getSections { |
71 |
my $self = shift; |
my $self = shift; |
72 |
map { my $atom = $self->getAtom($_); $atom->{section_name} } ($self->findAtomPos({type => 'SECTION'})); |
map { my $atom = $self->getAtom($_); $atom->{section_name} } ($self->findAtomPos({type => 'SECTION'})); |
73 |
} |
} |
74 |
|
|
75 |
|; |
); |
76 |
} |
} |
77 |
|
|
78 |
1; |
1; |