Initial commit

Spawned from the proxyctl project.

1 files changed, 31 insertions, 0 deletions

diff --git a/lib/Config/HAProxy/Node/Root.pm b/lib/Config/HAProxy/Node/Root.pm
new file mode 100644
index 0000000..656bb9f
--- /dev/null
+++ b/lib/Config/HAProxy/Node/Root.pm
@@ -0,0 +1,31 @@
+package Config::HAProxy::Node::Root;
+use strict;
+use warnings;
+use parent 'Config::HAProxy::Node::Section';
+use Carp;
+
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new(@_);
+    $self->{dirty} = 0;
+    return $self;
+}
+
+sub is_dirty {
+    my $self = shift;
+    return $self->{dirty}
+}
+
+sub mark_dirty {
+    my $self = shift;
+    $self->{dirty} = 1;
+}
+
+sub clear_dirty {
+    my $self = shift;
+    $self->{dirty} = 0;
+}
+    
+1;
+
+