summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2019-08-27 12:43:59 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2019-08-27 12:44:25 +0300
commit058e552bd37c0acf9d3a10fc743ac4d76d579b45 (patch)
tree2e224f7df70c320cd68ffe06074ae0746b313e20
parentc10a4c4657b1b04d0c6059308f127368861b2fd2 (diff)
downloadconfig-ast-1.03.tar.gz
config-ast-1.03.tar.bz2
Provide DESTROY method along with AUTOLOADv1.03
-rw-r--r--Changes3
-rw-r--r--lib/Config/AST.pm12
-rw-r--r--lib/Config/AST/Follow.pm2
3 files changed, 12 insertions, 5 deletions
diff --git a/Changes b/Changes
index e0558e0..cbdc841 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension Config::AST
+1.03 Tue Aug 27 12:37:00 2019
+ - provide DESTROY methods along with AUTOLOADS
+
1.02 Fri Aug 23 13:52:29 2019
- reimplement direct addressing in a more robust way
diff --git a/lib/Config/AST.pm b/lib/Config/AST.pm
index adc65c2..837bbac 100644
--- a/lib/Config/AST.pm
+++ b/lib/Config/AST.pm
@@ -31,7 +31,7 @@ our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'sort' => [ qw(NO_SORT SORT_NATURAL SORT_PATH) ] );
our @EXPORT_OK = qw(NO_SORT SORT_NATURAL SORT_PATH);
-our $VERSION = "1.02";
+our $VERSION = "1.03";
=head1 NAME
@@ -191,7 +191,7 @@ Whether or not this setting is mandatory.
=item default => I<VALUE>
Default value for the setting. This value will be assigned if that particular
-statement is not explicilty used in the configuration file. If I<VALUE>
+statement is not explicitly used in the configuration file. If I<VALUE>
is a CODE reference, it will be invoked as a method each time the value is
accessed.
@@ -218,7 +218,7 @@ called as
$self->$coderef($node, @path)
where $node is the B<Config::AST::Node::Value> object (use
-B<$vref-E<gt>value>, to obtain the actual value), and B<@path> is its patname.
+B<$vref-E<gt>value>, to obtain the actual value), and B<@path> is its pathname.
=item check => I<coderef>
@@ -719,10 +719,12 @@ sub AUTOLOAD {
return Config::AST::Follow->new($self->tree, $self->lexicon)->${\$m};
}
+sub DESTROY { }
+
=head1 CONSTRUCTING THE SYNTAX TREE
The methods described in this section are intended for use by the parser
-implementors. They should be called from the implementation of the B<parse>
+implementers. They should be called from the implementation of the B<parse>
method in order to construct the tree.
=cut
@@ -954,7 +956,7 @@ sub unset {
}
}
-=head1 AUXILARY METHODS
+=head1 AUXILIARY METHODS
=head2 @array = $cfg->names_of(@path)
diff --git a/lib/Config/AST/Follow.pm b/lib/Config/AST/Follow.pm
index f98bba7..84d6a3d 100644
--- a/lib/Config/AST/Follow.pm
+++ b/lib/Config/AST/Follow.pm
@@ -119,4 +119,6 @@ sub AUTOLOAD {
$self;
}
+sub DESTROY { }
+
1;

Return to:

Send suggestions and report system problems to the System administrator.