sub _ref_check {
my ($test,$should_be) = @_;
my $ref = ref($test);

unless ($ref eq $should_be) {
	if (length($ref) > 0) {
		carp ("\n>> $test isn't a reference to a $should_be, but rather a reference to a ".$ref."\n")
		} else {
		carp ("\n>> $test isn't an array reference at all, but a SCALAR\n")
		}# if (defined($refref))
		return 0;
	} # unless ($ref eq $should_be)
return 1;
} #End of subrotuine _ref_check

##</code><code>##

t\01-sanity.....................ok
t\02-simple.....................ok 16/0
>> 4 isn't an array reference at all, but a SCALAR
# # Won't accept scalar values
>> HASH(0x1dec550) isn't a reference to an array, but rather a reference to a HASH
# # Won't accept hash values
t\02-simple.....................ok
t\03-transform..................ok 3/0
>> ARRAY(0x1c0ba88) isn't a reference to a subroutine , but rather a reference to an ARRAY
t\03-transform..................ok 5/0
>> 4 isn't an array reference at all, but a SCALAR
t\03-transform..................ok 7/0
>> HASH(0x1ab5430) isn't a reference to an array, but rather a reference to a HAS
t\03-transform..................ok
[snip]
All tests successful.
Files=9, Tests=101,  1 wallclock secs ( 0.00 cusr +  0.00 csys =  0.00 CPU)

##</code><code>##

t\01-sanity.....................ok