package Some::Class;

use strict;
use warnings;

sub new {
    my $class = shift;

    return bless { @_ }, $class;
}

use tt;

[% FOREACH name IN [ 'foo', 'bar', 'baz' ] %]
sub [% name %] {
    my $self = shift;
    $self->{[% name %]} = shift if @_;
    return $self->{[% name %]};
}
[% END %]

no tt;

sub do_something_useful {
    ...
}