File Coverage

lib/Text/Xatena/Node/Table.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	0	3	0.0
total	46	49	93.8

package Text::Xatena::Node::Table;

use strict;
use warnings;
use base qw(Text::Xatena::Node);
use constant {
    TABLE => qr/^\|/,
};

sub parse {
    my ($class, $s, $parent, $stack) = @_;
    if ($s->scan(TABLE)) {
        my $a = $class->new([ $s->matched->[0] ]);
        until ($s->eos || !$s->scan(TABLE)) {
            push @$a, $s->matched->[0];
        }
        push @$parent, $a;
        return 1;
    }
}

sub as_struct {
    my ($self, $context) = @_;
    my $ret = [];
    my $children = $self->children;

    for my $line (@$children) {
        my $row = [];
        for my $col (split /\|/, $line) {
            my ($th, $content) = ($col =~ /^(\*)?(.*)$/);
            push @$row, +{
                name     => ($th ? 'th' : 'td'),
                content => $context->inline->format($content),
            };
        }
        shift @$row;
        push @$ret, $row;
    }

    $ret;
}

sub as_html {
    my ($self, $context, %opts) = @_;
    $context->_tmpl(__PACKAGE__, q[
         




47




 





 





 





 





 





 



         ? for my $row (@$rows) { 




48




 





 





 





 





 





 



              




49




 





 





 





 





 





 



         ?   for my $col (@$row) { 




50




 





 





 





 





 





 



             <{{= $col->{name} }}>{{= $col->{content} }}{name} }}> 




51




 





 





 





 





 





 



         ?   } 




52




 





 





 





 





 





 



              




53




 





 





 





 





 





 



         ? } 




54
        ? for my $row (@$rows) {

        ?   for my $col (@$row) {
            <{{= $col->{name} }}>{{= $col->{content} }}{name} }}>
        ?   }

        ? }

    ], {
        rows => $self->as_struct($context)
    });
}


1;
__END__