sub new
{
  my ($self, $options) = @_;
  .  .  .
  $self->{sorter} = /&{$options->{sorter}};
}