package tahash;

use strict;
use warnings;
use Data::Dumper (); # just for debugging, remove from production code

sub TIEHASH {
	print Data::Dumper->new([\@_],['*_'])->Dump(),"\n";
	my $class = shift;
	my %hash = @_;
	print "In TIEHASH .... \n";
	return bless(\%hash);
}


sub DESTROY {
	print "The object is destroyed...\n";
}

1;