gistfile1.txt

sub swapify {
  my $self = shift;
  
  ## Take a copy
  my $swapped = $self->chimera;
  
  ## Swap it
  $swapped->swap;
  
  ## Return the swapified version
  return $swapped;
}