File Coverage

blib/lib/TERN/it.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	33	37	89.1

package TERN::it;

use 5.00000;
use strict;

require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);

@EXPORT = qw(
	it
	exists_it
	exists_itA
	exists_itH
	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) = @_;
	if (exists $hr->{$key}){
		return $it = \$hr->{$key};
	}else{
		return ${$it = \undef};
	};
};

*exists_itH = \&exists_it;

sub exists_itA(\@$){
	my ($ar, $key) = @_;
	if (exists $ar->[$key]){
		return $it = \($ar->[$key]);
	}else{
		return ${$it = \undef};
	};
};

1;

__END__