package My::Associated::DBH::Wrapper;

# Called as:
# my $thingy = My::Associated::DBH::Wrapper->new(
#    sth => $sth,
#    param_name => 'Foo',
# );

sub new {
    my $class = shift;
    my %args = @_;
    bless \%args, $class;
}

sub param {
    my $self = shift;
    my ($param) = @_;

    return unless $param eq $self->{param_name};

    my @values = $self->{sth}->fetchrow_array;
    return unless @values;

    return $values[0];
}

##</code><code>##

my $template = HTML::Template->new(
    filename => 'my_template.tmpl',
    associate => [ $thingy, $query ],
);