#!/usr/bin/perl -w

use strict;

package Tie::Hash::Test;
use Tie::Hash;
use vars qw(@ISA);

@ISA = 'Tie::StdHash';

sub FETCH {
  print "wantarray is ", wantarray ? "true\n" : "false\n";
  return $_[0]->{$_[1]};
}

package main;

my %h;
tie %h, 'Tie::Hash::Test';

%h = (one => 1, two => 2);

my $scalar = $h{one};
my @array = $h{two};