sub selfcontrol {
  my $self = shift;
  return $self if ref($self) && eval {$self->can("can")};
  carp "diem";
}