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;