summaryrefslogtreecommitdiffabout
path: root/lib/Config/Parser.pm
Side-by-side diff
Diffstat (limited to 'lib/Config/Parser.pm') (more/less context) (ignore whitespace changes)
-rw-r--r--lib/Config/Parser.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Config/Parser.pm b/lib/Config/Parser.pm
index 93b23fc..ee5055b 100644
--- a/lib/Config/Parser.pm
+++ b/lib/Config/Parser.pm
@@ -1,7 +1,7 @@
package Config::Parser;
use strict;
use warnings;
-use parent 'Config::Tree';
+use parent 'Config::AST';
use Carp;
use Cwd qw(abs_path);
use Text::ParseWords;
@@ -23,18 +23,18 @@ sub new {
}
}
- unless ($_{parameters}) {
+ unless ($_{lexicon}) {
my $subs = Class::Inspector->subclasses(__PACKAGE__);
if ($subs) {
- $_{parameters} = {};
+ $_{lexicon} = {};
foreach my $c (@$subs) {
# print "LOADING FROM $c\n";
if (my $s = loadsynt($c)) {
- $_{parameters} = { %{$_{parameters}}, %$s };
+ $_{lexicon} = { %{$_{lexicon}}, %$s };
}
last if $c eq $class;
}
- delete $_{parameters} unless keys %{$_{parameters}};
+ delete $_{lexicon} unless keys %{$_{lexicon}};
}
}
@@ -71,7 +71,7 @@ sub loadsynt {
my $d = $class->new(filename => $file,
fh => $fh,
line => $line,
- parameters => { '*' => '*' })
+ lexicon => { '*' => '*' })
or croak "Failed to parse template at $file:$line";
close $fh;
$d->as_hash(sub {

Return to:

Send suggestions and report system problems to the System administrator.