The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

not supported yet...

sub doRow { my ($self, $row) = @_; $self->{fileCell} = $row->leaf(); $self->SUPER::doRow($row); }

sub wrong { my ($self,$cell) = @_; $self->SUPER::wrong($cell); if(!defined($self->{footnote})) { # Footnotes not supported yet... # $self->{footnote} = $self->{tables}->footnote(); $self->{fileCell}->addToBody($self->{footnote}); } }