sym.pl

use v5.10;
sub ok{
    print $_[0]?"OK":"FAIL";
    print "\n";
}
sub make_sym{
	state %symbols;
	my ($sym) = @_;
	$symbols{$sym} = \$sym unless $symbols{$sym};
	return $symbols{$sym};
}

my $SYM1 = make_sym("TEST1");
my $SYM2 = make_sym("TEST2");
my $SYM3 = make_sym("TEST1");

ok($SYM1!=$SYM2);
ok($SYM1==$SYM3);
ok($SYM1 ne $SYM2);
ok($SYM1 eq $SYM3);