Select Code to Download

my ($hashed_passwd) = 'a_complicated_salted_password';
my $agent = master->resultset('Agent')->search({
...
} else {
    return 'hard error';
}

$VAR1 = 'pass';
$VAR2 = 'a_complicated_salted_password';
...
$VAR18 = '2015-06-25 18:17:03';
$VAR19 = 'disabled';
$VAR20 = '0';

my ($hashed_passwd) = 'a_complicated_salted_password';
my $agent = master->resultset('Agent')->search({
...
    return 'hard error';
}

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.