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;