Select Code to Download

sub comparator {
  my($self, $embed) = @_;
  return sub {
    $self->compare($embed, @_);
  };
}

my $comparator = $embedding->comparator($csv_embedding1);
...
my $comparison = $comparator->($csv_embedding2);

sub comparator {
  my($self, $embed) = @_;
  my $vector1 = $self->_make_vector($embed);
...
    return $self->_compare_vector($vector1, $vector2);
  };
}