# New Ticket Created by Dave Rolsky
# Please include the string: [perl #126740]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=126740 >
Given this code:
=begin pod
=begin table :caption('My caption')
Title | Name | Size
==========================
Captain | Jane | Medium
Clerk | Bob | Large
=end table
=end pod
dd $=pod[0];
Here is the output of the code above:
Pod::Block::Named $var = Pod::Block::Named.new(name => "pod", config => {},
contents => [Pod::Block::Table.new(caption => Any, headers => ["Title", "Name",
"Size"], config => {:caption("'My caption'")}, contents => [["Captain", "Jane",
"Medium"], ["Clerk", "Bob", "Large"]])])
I would expect that the Pod::Block::Table node would have a caption. The
caption ends up in $node.config<caption>, but not $node.caption.
