package Selfcontrol; 
use strict;
use Exporter;
use vars qw( @EXPORT @ISA @VERSION);
@VERSION = 0.01;
@ISA = qw( Exporter );
@EXPORT = qw( &selfcontrol);

use Carp;

sub selfcontrol{
	my $self = shift;
	my $ref = ref( $self);
	SWITCH: { $_ = $ref;
		last unless $_;
		last if /REF/;
		last if /SCALAR/;
		last if /ARRAY/;
		last if /HASH/;
		last if /CODE/;
		last if /GLOB/;
		return $self;
	}
	confess 'You forget the $self->, you idiot!'.
		"\n\tInstead you gave me $self that refs to '$ref'"; 
}