Factor out the <content/> node

lib/Areno.pm

@@ -6,6 +6,7 @@ use Cwd;
 use Plack::Request;
 
 use Areno::Manifest;
+use Areno::Content;
 use Areno::Dispatch;
 
 sub new {
@@ -108,7 +109,8 @@ sub new_doc {
     my $manifest = new Areno::Manifest($env);
     $root->appendChild($manifest->node());
 
-    my $content = $this->new_content($dom, $env);
+    my $content = new Areno::Content();
+    $root->appendChild($content->node());
 
     return {
         dom      => $dom,

lib/Areno/Content.pm

@@ -0,0 +1,20 @@
+package Areno::Content;
+
+use strict;
+
+use base 'Areno::Node';
+
+use XML::LibXML;
+
+sub new {
+    my ($class) = @_;
+
+    my $this = {
+        node => new XML::LibXML::Element('content'),
+    };
+    bless $this, $class;
+
+    return $this;
+}
+
+1;

lib/Areno/Manifest.pm

@@ -2,6 +2,8 @@ package Areno::Manifest;
 
 use strict;
 
+use base 'Areno::Node';
+
 use XML::LibXML;
 use Areno::Manifest::Request;
 
@@ -25,12 +27,6 @@ sub init {
     $this->{node}->appendChild((new Areno::Manifest::Request($env))->node());
 }
 
-sub node {
-    my ($this) = @_;
-
-    return $this->{node};
-}
-
 sub dateNode {
     my ($this) = @_;
 

lib/Areno/Manifest/Request.pm

@@ -2,6 +2,10 @@ package Areno::Manifest::Request;
 
 use strict;
 
+use base 'Areno::Node';
+
+use XML::LibXML;
+
 sub new {
     my ($class, $env) = @_;
 
@@ -25,12 +29,6 @@ sub init {
     $this->{node}->appendChild($this->useragentNode($request));
 }
 
-sub node {
-    my ($this) = @_;
-
-    return $this->{node};
-}
-
 sub argumentsNode {
     my ($this, $request) = @_;
 

lib/Areno/Node.pm

@@ -0,0 +1,11 @@
+package Areno::Node;
+
+use strict;
+
+sub node {
+    my ($this) = @_;
+
+    return $this->{node};
+}
+
+1;