diff options
Diffstat (limited to 'lib/Config/Parser.pm')
-rw-r--r-- | lib/Config/Parser.pm | 12 |
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 @@ -2,5 +2,5 @@ package Config::Parser; use strict; use warnings; -use parent 'Config::Tree'; +use parent 'Config::AST'; use Carp; use Cwd qw(abs_path); @@ -24,16 +24,16 @@ 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}}; } } @@ -72,5 +72,5 @@ sub loadsynt { fh => $fh, line => $line, - parameters => { '*' => '*' }) + lexicon => { '*' => '*' }) or croak "Failed to parse template at $file:$line"; close $fh; |