gistfile1.pl

sub delete_synonym {
    my $self=shift;
    my $synonym=shift;
    
    my $schema = $self->result_source->schema;
    
    my @synonyms= $schema->resultset("Cv::Cvtermsynonym")->search(
	{ cvterm_id => $self->get_column('cvterm_id'),
	  synonym   => { 'ilike' , "$synonym" }
	});
    foreach (@synonyms) { $_->delete(); }
}

# goes to

sub delete_synonym {
    my $self = shift;
    my $synonym = shift;
    
    $self->result_source
         ->schema
         ->resultset("Cv::Cvtermsynonym")
         ->search({ cvterm_id => $self->get_column('cvterm_id'),
	             synonym   => { 'ilike' , $synonym }
	          })
         ->delete;
}