my $ls = Obj::LocationSource->new();
my $dep_tip = $ls->match( { location => $dep_name } );
print Dumper( $dep_tip );
if ( ! defined $dep_tip ){
  croak ( "DATA ERROR: Could not find any location for '$dep_name'" );
}

OUTPUT:
$VAR1 = bless( {
                 '_location' => 'Salisbury',
                 '_id' => 259,
                 '_key' => 'SLSBRY'
               }, 'Object::Location' );
DATA ERROR: Could not find any Location for 'Salisbury' at ***.pl line 45