view release on metacpan or  search on metacpan

it.pm  view on Meta::CPAN

	defined_it
);

$VERSION = '0.01';


# Preloaded methods go here.

my $it;

sub it(){
	return $$it;
};

sub defined_it(\$){
	return defined(${$it=shift});
};

sub exists_itH(\%$);
sub exists_it(\%$){
	my ($hr, $key) = @_;