File Coverage

blib/lib/devtools.pm

Criterion	Covered	Total	%
statement	3	26	11.5
branch	0	6	0.0
condition	0	4	0.0
subroutine	1	2	50.0
pod	0	1	0.0
total	4	39	10.2

package devtools;
our $VERSION='0.02';

use strict;
require Exporter;

our @ISA=qw(Exporter);
our @EXPORT=qw(printVarStructure);
our @EXPORT_OK=qw();

#####################################################################################
#
# printVarStructure
# prints the whole available structure

sub printVarStructure
{
	my ($var,$indent)=@_;

	if (not ref $var)
	{
		print "  "x$indent;
		print "Found scalar: '$var'\n";
	}
	elsif ((ref $var eq 'HASH') || (scalar $var =~/HASH/))
	{
		print "  "x$indent;
		print "Found hash\n";
		foreach my $key (keys(%{$var}))
		{
			print "  "x$indent;
			print "Key: '$key' start\n";
			&printVarStructure($var->{$key},$indent+1);
			print "  "x$indent;
			print "Key: '$key' end\n";
		}
	}
	elsif ((ref $var eq 'ARRAY') || (scalar $var =~ /ARRAY/))
	{
		print "  "x$indent;
		print "Found array\n";
		my $cnt=0;
		foreach my $val (@{$var})
		{
			print "  "x$indent;
			print "Value $cnt\n";
			$cnt++;
			&printVarStructure($val,$indent+1);
		}
	}
	else
	{
		print "don't know what to do with '$var'...\n";
	}
}

1;
__END__