diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-08-27 12:43:59 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-08-27 12:44:25 +0300 |
commit | 058e552bd37c0acf9d3a10fc743ac4d76d579b45 (patch) | |
tree | 2e224f7df70c320cd68ffe06074ae0746b313e20 | |
parent | c10a4c4657b1b04d0c6059308f127368861b2fd2 (diff) | |
download | config-ast-1.03.tar.gz config-ast-1.03.tar.bz2 |
Provide DESTROY method along with AUTOLOADv1.03
-rw-r--r-- | Changes | 3 | ||||
-rw-r--r-- | lib/Config/AST.pm | 12 | ||||
-rw-r--r-- | lib/Config/AST/Follow.pm | 2 |
3 files changed, 12 insertions, 5 deletions
@@ -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; |