sub remap {
  my $self = shift;
  blah blah;
  my $n = (ref $self)->new(blah blah);
  blah blah;
  return $n;
}
[download]

-- Randal L. Schwartz, Perl hacker