Two auxiliary methods

* lib/Config/AST.pm (error_count,success): New methods.

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) = @_;