diff options
-rw-r--r-- | lib/Config/AST.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/Config/AST.pm b/lib/Config/AST.pm index fb10569..275e902 100644 --- a/lib/Config/AST.pm +++ b/lib/Config/AST.pm @@ -415,6 +415,27 @@ sub commit { return $self->{_error_count} == 0; } +=head2 $cfg->error_count + +Returns total number of errors encountered during parsing. + +=cut + +sub error_count { shift->{_error_count} } + +=head2 $cfg->success + +Returns true if no errors were detected during parsing. + +=cut + +sub success { ! shift->error_count } + +# Auxiliary function used in commit and lint. +# Arguments: +# $section - A Config::AST::Node::Section to start fixup at +# $params - Lexicon. +# @path - Path to $section sub fixup_tree { my ($self, $section, $params, @path) = @_; |