From f075557bf207d67cf2638298cbdd843cc1a2f7d7 Mon Sep 17 00:00:00 2001
From: Filipe Alves <filipe.alves@bithium.com>
Date: Thu, 14 Jul 2016 10:21:01 +0100
Subject: Add caption in verbatim blocks.

---
 src/perlmodgen.cpp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/perlmodgen.cpp b/src/perlmodgen.cpp
index 38ebbb2..8683654 100644
--- a/src/perlmodgen.cpp
+++ b/src/perlmodgen.cpp
@@ -667,6 +667,14 @@ void PerlModDocVisitor::visit(DocVerbatim *s)
     case DocVerbatim::PlantUML:  type = "plantuml";     break;
   }
   openItem(type);
+  if (s->hasCaption())
+  {
+     openSubBlock("caption");
+     QListIterator<DocNode> cli(s->children());
+     DocNode *n;
+     for (cli.toFirst();(n=cli.current());++cli) n->accept(this);
+     closeSubBlock();
+  }
   m_output.addFieldQuotedString("content", s->text());
   closeItem();
 }
-- 
cgit v0.12