summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Config/AST.pm21
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) = @_;

Return to:

Send suggestions and report system problems to the System administrator.