view release on metacpan or  search on metacpan

lib/DTL/Fast/Text.pm  view on Meta::CPAN

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;