Suggestion for get_list_and

[remorse]

Hi! You have a comment in your source code for get_list_and that asks for patches. This isn't quite a patch, but it's a slightly different take on the problem which gets rid of the ugly preprocessing for @items.

    my $start = $self->{'list'}{'start'};
    $start =~ s/\{([01])\}/$items[$1]/g;
    shift @items;
    $items[0] = $start;

    while(@items > 2) {
        my $middle = $self->{'list'}{'middle'};
        $middle =~ s/\{([01])\}/$items[$1]/g;
        shift @items;
        $items[0] = $middle;
    }

    my $end = $self->{'list'}{'end'};
    $end =~ s/\{([01])\}/$items[$1]/g;

    return $end;

[remorse]

Hi! I just remembered about splice. You can replace the lines:

    shift @items;
    $items[0] = $var;

with

    splice(@items, 0, 2, $var);

where $var is either $start or $middle.

I have a vague memory of someone telling me that this may be more performant as well, but I don't know if that is true.