From 9a94fbc91ce1c2cfeffc8a8cb0e874e31d9d6ecb Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Tue, 27 Aug 2019 16:43:29 +0300
Subject: Two auxiliary methods

* lib/Config/AST.pm (error_count,success): New methods.
---
 lib/Config/AST.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

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) = @_;
 
-- 
cgit v1.2.1