File Coverage

lib/Text/Xatena/Node/StopP.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	7	8	87.5
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	39	42	92.8

package Text::Xatena::Node::StopP;

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 $node = $class->new([ $s->matched->[1] ]);
        push @$parent, $node;
        if (!$s->matched->[2]) {
            push @$stack, $node;
        }
        return 1;
    }

    if ($s->scan(ENDOFNODE)) {
        my $node = pop @$stack;
        push @$node, $s->matched->[1];
        ref($node) eq $class or warn sprintf("syntax error: unmatched syntax got:%s expected:%s", ref($node), $class);
        return 1;
    }
}

sub as_html {
    my ($self, $context, %opts) = @_;
    $self->SUPER::as_html($context, %opts, stopp => 1);
}

1;
__END__