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

[gvim]

Why does this fail with the error "Not a CODE reference at ./dbix1.pl 
line 19" but works if I substitute the commented code for what is below it?

#!/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($dbh, $table, $data);

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


gvim