Index: /lang/perl/Text-Nyarlax/trunk/t/TestNyarlax.pm
===================================================================
--- /lang/perl/Text-Nyarlax/trunk/t/TestNyarlax.pm (revision 474)
+++ /lang/perl/Text-Nyarlax/trunk/t/TestNyarlax.pm (revision 1150)
@@ -67,5 +67,5 @@
     filters {
         $input      => [qw( parse )],
-        $expected   => [qw( yaml element )],
+        $expected   => [qw( yaml element root )],
     };
 
@@ -107,4 +107,15 @@
 }
 
+sub root {
+    my $content = shift;
+
+    my $root = Text::Nyarlax::Element->new(
+        name    => 'Root',
+        content => $content,
+    );
+
+    return $root;
+}
+
 sub parse {
     my $text = shift;
Index: /lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax.pm
===================================================================
--- /lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax.pm (revision 1043)
+++ /lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax.pm (revision 1150)
@@ -140,5 +140,4 @@
     my ( $self, $text ) = @_;
     my $tree = $self->parser->parse( $text );
-    $tree = [ $tree ] if ( ref $tree ne 'ARRAY' );
     return $tree;
 }
Index: /lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Parser/PRD.pm
===================================================================
--- /lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Parser/PRD.pm (revision 811)
+++ /lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Parser/PRD.pm (revision 1150)
@@ -87,5 +87,9 @@
 
     parse               :   <skip: ''> Root
-                        { $return = $item{'Root'} }
+                        {
+                            my $elm = element 'Root';
+                               $elm->push_content( @{ $item{'Root'} } );
+                            $return = $elm;
+                        }
 
     Root                :   /\n*/ Content(s)
@@ -160,6 +164,6 @@
                         }
 
-    ListConetntFirst    :   />>/ parse / [ \t]{$arg{'indent'}} [ \t]{2} << \n /x
-                            { $return = $item{'parse'} }
+    ListConetntFirst    :   />>/ Root / [ \t]{$arg{'indent'}} [ \t]{2} << \n /x
+                            { $return = $item{'Root'} }
                         |   InlineNode(s?) /\n/
                             { $return = $item{'InlineNode(s?)'} }