Also handle =head[2-4] tags when processing pod #47

maros · Jan 15, 2017 · f98be61 · f98be61
1 parent 1cb32b1
commit f98be61
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 0 deletions.
diff --git a/lib/MooseX/App/Utils.pm b/lib/MooseX/App/Utils.pm
@@ -254,6 +254,9 @@ sub _pod_node_to_text {
                         push (@lines,"\n");
                         ${$indent}--;
                     }
+                    when (qr/head\d/) {
+                        push (@lines,"\n",$node->content,"\n");
+                    }
                 }
             }
         }

diff --git a/t/02_meta.t b/t/02_meta.t
@@ -55,6 +55,8 @@ is(Test01::CommandB->meta->command_long_description,'Some description of *comman
  some code
  some code
 
+SUB HEADLINE
+
 some more desc
 
 * item 1

diff --git a/t/testlib/Test01/CommandB.pm b/t/testlib/Test01/CommandB.pm
@@ -38,6 +38,8 @@ Some description of B<command B>
  some code
  some code
 
+=head2 SUB HEADLINE
+
 some more desc
 
 =over