#
# A set class
#

package Set;

sub new {
	my ($class) = shift;
	bless {
		"items" => {}
	}, $class;
}

sub add {
	my($self) = shift;
	my($item) = shift;
	${$self->{"items"}}{$item} = 1;
	print "Added $item\n";
	print "Yeilding $self->{\"items\"}\n";
}

sub toString {
	my($self) = shift;
	#my(%items) = %self->{"items"};
	my($ret) = "";
	foreach $i (keys % {$self->{"items"}})
	{
		$ret = "$ret $i";
	}
}

1;
