[Dbix-class] Use of resultset-> search within a sub

[gvim]

Sorry, call to get_row_id should have no args as below but the result is 
the same when using an arg list:

#!/usr/bin/perl

use 5.014;
use lib '/Users/me/app/lib';
use DBIx::Class;
use Schema;
use autodie;

my $dsn = 'dbi:Pg:dbname=astro;host=localhost';
my $dbh = Schema->connect($dsn, 'admin', 'pass', {RaiseError => 1, 
PrintError => 0});
my $table = 'TimeZone';
my $data = { region => 'America', state => 'Argentina', city => 
'Buenos_Aires' };
# my $row = $dbh->resultset($table)->search($data)->single;
# say $row->id;

say get_row_id();

sub get_row_id {
   my $row = $dbh->resultset($table)->search->($data)->single;
   return $row->id;
}



gvim