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 | |||
@@ -3,3 +3,3 @@ use strict; | |||
3 | use warnings; | 3 | use warnings; |
4 | use parent 'Config::Tree'; | 4 | use parent 'Config::AST'; |
5 | use Carp; | 5 | use Carp; |
@@ -25,6 +25,6 @@ sub new { | |||
25 | 25 | ||
26 | unless ($_{parameters}) { | 26 | unless ($_{lexicon}) { |
27 | my $subs = Class::Inspector->subclasses(__PACKAGE__); | 27 | my $subs = Class::Inspector->subclasses(__PACKAGE__); |
28 | if ($subs) { | 28 | if ($subs) { |
29 | $_{parameters} = {}; | 29 | $_{lexicon} = {}; |
30 | foreach my $c (@$subs) { | 30 | foreach my $c (@$subs) { |
@@ -32,3 +32,3 @@ sub new { | |||
32 | if (my $s = loadsynt($c)) { | 32 | if (my $s = loadsynt($c)) { |
33 | $_{parameters} = { %{$_{parameters}}, %$s }; | 33 | $_{lexicon} = { %{$_{lexicon}}, %$s }; |
34 | } | 34 | } |
@@ -36,3 +36,3 @@ sub new { | |||
36 | } | 36 | } |
37 | delete $_{parameters} unless keys %{$_{parameters}}; | 37 | delete $_{lexicon} unless keys %{$_{lexicon}}; |
38 | } | 38 | } |
@@ -73,3 +73,3 @@ sub loadsynt { | |||
73 | line => $line, | 73 | line => $line, |
74 | parameters => { '*' => '*' }) | 74 | lexicon => { '*' => '*' }) |
75 | or croak "Failed to parse template at $file:$line"; | 75 | or croak "Failed to parse template at $file:$line"; |