sub selfcontrol {
  my $self = shift;
  defined $_ and
    length $_ and
    not (/REF/ or /SCALAR/ or /ARRAY/ or /HASH/ or /CODE/ or /GLOB/) and
    return $_
      for ref $self;
  carp "diem";
}