File Coverage

blib/lib/DTL/Fast/Replacer/Replacement.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	3	0.0
total	39	43	90.7

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

sub new
{
    my $proto = shift;
    my $expression = shift;

    my $blocksep = '';
    my $block_num = 0;
    while( not $blocksep or $expression =~ /$blocksep/ )
    {
        $blocksep = sprintf '_BL_%s_', $block_num++;
    }

    my $self = bless {
            block_counter => 0
            , block_ph    => $blocksep.'%s_'
            , blocks      => { }
        }, $proto;

    return $self;
}

sub add_replacement
{
    my $self = shift;
    my $value = shift;

    my $key = sprintf $self->{block_ph}, $self->{block_counter}++;
    $self->{blocks}->{$key} = $value;

    return $key;
}

sub get_replacement
{
    my $self = shift;
    my $key = shift;
    my $value = undef;

    if (exists $self->{blocks}->{$key})
    {
        $value = $self->{blocks}->{$key};
        delete $self->{blocks}->{$key};
    }

    return $value;
}



1;