File Coverage

blib/lib/Text/Xatena/Node.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	10	10	100.0
condition	2	2	100.0
subroutine	8	8	100.0
pod	0	4	0.0
total	55	59	93.2

package Text::Xatena::Node;

use strict;
use warnings;
use overload
    '@{}' => \&children,
    fallback => 1;

use Text::Xatena::Util;

sub new {
    my ($class, $children) = @_;
    bless {
        children => $children || [],
    }, $class;
}

sub children { $_[0]->{children} };

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

    my $children = $_[0]->{children};
    my @texts;
    for my $child (@$children) {
        if (ref($child)) {
            $ret .= $self->as_html_paragraph($context, join("\n", @texts), %opts) if join '', @texts;
            @texts = ();
            $ret .= $child->as_html($context, %opts);
        } else {
            push @texts, $child;
        }
    }
    $ret .= $self->as_html_paragraph($context, join("\n", @texts), %opts) if join '', @texts;

    $ret;
}

## NOT COMPATIBLE WITH Hatena Syntax: Auto br insertation as \n
sub as_html_paragraph {
    my ($self, $context, $text, %opts) = @_;
    $text = $context->inline->format($text, $context);

    if ($opts{stopp}) {
        $text;
    } else {
        "" . join("",
            map {
                if (/^(\n+)$/) {
                    "" . ("\n" x (length($1) - 2)) . "";
                } else {
                    join("\n", split /\n/);
                }
            }
            split(/(\n\n+)/, $text)
        ) . "\n";
    }
}

1;
__END__