Pod::Block::Table node caption property is not populated properly

[p6rt]

Migrated from rt.perl.org#126740 (status was 'resolved')

Searchable as RT126740$

[p6rt]

From @autarch

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.

[p6rt]

From @AlexDaniel

Fixed in rakudo/rakudo@2cd266f

Tests in Raku/roast@3ae2640 and Raku/roast@bc48eed

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.

[p6rt]

The RT System itself - Status changed from 'new' to 'open'

[p6rt]

@AlexDaniel - Status changed from 'open' to 'resolved'