Select Code to Download

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

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

[% FOREACH method IN user.columns.sort -%]
<tr>
...
        [%- END -%]
</tr>
[%- END -%]

__PACKAGE__->columns(All => qw/uid dn cn sn name telephonenumber objec
+tclass title ou description
        departement givenname mobile postaladdress employeenumber room
+number mail/ );