my ($hashed_passwd) = 'a_complicated_salted_password';
my $agent = master->resultset('Agent')->search({
    user => params->{login},
    pass => $hashed_passwd,
})->single;

if ($agent) {
    return Dumper($agent->get_columns);
} else {
    return 'hard error';
}

##</code><code>##

$VAR1 = 'pass';
$VAR2 = 'a_complicated_salted_password';
$VAR3 = 'creation';
$VAR4 = '0000-00-00 00:00:00';
$VAR5 = 'note';
$VAR6 = undef;
$VAR7 = 'id';
$VAR8 = '28';
$VAR9 = 'id_appalto';
$VAR10 = undef;
$VAR11 = 'user';
$VAR12 = 'superadmin';
$VAR13 = 'profilo';
$VAR14 = 'Superadmin';
$VAR15 = 'last_login';
$VAR16 = '2015-06-24 11:31:39';
$VAR17 = 'ts';
$VAR18 = '2015-06-25 18:17:03';
$VAR19 = 'disabled';
$VAR20 = '0';

##</code><code>##

my ($hashed_passwd) = 'a_complicated_salted_password';
my $agent = master->resultset('Agent')->search({
    user => params->{login},
    pass => $hashed_passwd,
})->single;

if ($agent) {
    return Dumper($agent->profilo);
} else {
    return 'hard error';
}


##</code><code>##

Can't call method "columns" on an undefined value at /usr/local/share/perl/5.18.2/DBIx/Class/ResultSet.pm line 3527, <DATA> line 16.