Fixed in
https://github.com/rakudo/rakudo/commit/2cd266fe08aa386b180dda14c15659c360623c99

Tests in
https://github.com/perl6/roast/commit/3ae26405385d5e496b401326e3252294b8a5785b
and
https://github.com/perl6/roast/commit/bc48eed6849cbbb873320052cb78a6e57b9c4a2a

tbrowder++

On 2015-11-26 11:33:47, autarch wrote:
> 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.

Reply via email to