1 files changed, 41 insertions, 0 deletions

diff --git a/lib/Config/Tree/Node/Section.pm b/lib/Config/Tree/Node/Section.pm
new file mode 100644
index 0000000..833f5c5
--- /dev/null
+++ b/lib/Config/Tree/Node/Section.pm
@@ -0,0 +1,41 @@
+package Config::Tree::Node::Section;
+use parent 'Config::Tree::Node';
+use strict;
+use warnings;
+
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new(@_);
+    $self->{_subtree} = {};
+    return $self;
+}
+
+sub subtree {
+    my $self = shift;
+    if (my $key = shift) {
+        if (my $val = shift) {
+            $self->{_subtree}{$key} = $val;
+        }
+        return $self->{_subtree}{$key};
+    }
+    return $self->{_subtree};
+}
+
+sub keys {
+    my $self = shift;
+    return keys %{$self->{_subtree}};
+}
+
+sub has_key {
+    my ($self, $key) = @_;
+    return $self->subtree($key);
+}
+
+sub delete {
+    my ($self, $key) = @_;
+    delete $self->{_subtree}{$key};
+}
+
+sub is_leaf { 0 }
+
+1;