File Coverage

blib/lib/DTL/Fast/Text.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition	4	4	100.0
subroutine	8	8	100.0
pod	0	3	0.0
total	42	45	93.3

package DTL::Fast::Text;
use strict;
use utf8;
use warnings FATAL => 'all';

use DTL::Fast::Template;
use Scalar::Util qw/weaken/;

sub new
{
    my ($proto, $text ) = @_;
    $text //= '';

    my $self = bless {
            texts            => [ $text ]
            , _template      => $DTL::Fast::Template::CURRENT_TEMPLATE
            , _template_line => $DTL::Fast::Template::CURRENT_TEMPLATE_LINE
        }, $proto;

    weaken $self->{_template};

    return $self;
}

sub append
{
    my $self = shift;
    $self->{need_join} ||= 1;
    push @{$self->{texts}}, shift;
    return $self;
}

sub render
{
    my ($self) = @_;
    return $self->{need_join}
        ? join '', @{$self->{texts}}
        : $self->{texts}->[0]
    ;
}


1;