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";
}

##</code><code>##

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