use strict; use warnings; use TemplateSplitter; sub template{ my $self = shift; my $name = shift || 'default'; my $t = TemplateSplitter->new( $self->{BODY} ); $self->{BODY} = $t->{$name}; $self->{BODY} .= $t->{$_} for @_; }