aboutsummaryrefslogtreecommitdiff
path: root/lib/Config/Parser.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Config/Parser.pm')
-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
@@ -3,3 +3,3 @@ use strict;
3use warnings; 3use warnings;
4use parent 'Config::Tree'; 4use parent 'Config::AST';
5use Carp; 5use 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";

Return to:

Send suggestions and report system problems to the System administrator.