File Coverage

lib/Text/Xatena/Node/Comment.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	33	35	94.2

package Text::Xatena::Node::Comment;

use strict;
use warnings;
use base qw(Text::Xatena::Node);
use constant {
    BEGINNING => qr/^(.*))?$/,
    ENDOFNODE => qr/^-->$/,
};

sub parse {
    my ($class, $s, $parent, $stack) = @_;
    if ($s->scan(BEGINNING)) {
        my $pre = $s->matched->[1];
        push @$parent, $pre;
        unless ($s->matched->[2]) {
            $s->scan_until(ENDOFNODE);
        }

        my $node = $class->new;
        push @$parent, $node;
        return 1;
    }
}

sub as_html {
    my ($self, $context, %opts) = @_;
    '';
}

1;
__END__