eval { $vars->{user} = MVG::User->retrieve( %data ) ; };
# %data contains keys/values from q->params
# MVG::User isa class with Class::DBI as base
# $vars->{user} is the var I'm passing to Template

##</code><code>##

$VAR1 = bless( {
    'uid' => 'someuid'
}, 'MVG::User' );

##</code><code>##

[% FOREACH method IN user.columns.sort -%]
<tr>
        <th> [% method -%]: </th>
        [%- IF method == "mail"-%]
                <td> <a href="mailto:[% user.$method || "&nbsp;" -%]">[% user.$method || "&nbsp;" -%] </td>
        [%- ELSE -%]
                <td> [% user.$method || "&nbsp;" -%] </td>
        [%- END -%]
</tr>
[%- END -%]

##</code><code>##

__PACKAGE__->columns(All => qw/uid dn cn sn name telephonenumber objectclass title ou description
        departement givenname mobile postaladdress employeenumber roomnumber mail/ );