sub selfcontrol {
  my $self = shift;
  return $self if eval {$self->can("can")}; # Only objects can dance!
  carp "diem";
}