#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;

package CountHash;

sub TIEHASH
{
	my $class = shift;
	bless {}, $class;
}

sub FETCH
{
	my ($self, $key) = @_;
	return unless exists $self->{$key};
	return               $self->{$key};
}

sub STORE
{
	my ($self, $key, $value) = @_;
	($self->{$key} ||= 0 )++;
}

sub FIRSTKEY
{
	my $self  = shift;
	my $first = keys %$self;
	each %$self;
}

sub NEXTKEY
{
	my $self = shift;
	each %$self;
}

package main;

tie my %hash, 'CountHash';
my @items = ( 1, 2, 3, 3, 3, 4, 5, 5, 5, 5 );
@hash{ @items } = ();
is( keys %hash, 5, 'CountHash should not store duplicate keys' );
is( $hash{1},   1, '... counting individual keys once' );
is( $hash{3},   3, '... multiple keys multiple times' );