{
	package Tie::ColorTest;

	sub TIESCALAR
	{
		my( $pkg, $color ) = @_;
		bless \$color, $pkg
	}

	sub FETCH
	{
		my $self = shift;
		$_->{'color'} eq $$self
	}
}

tie my $red, 'Tie::ColorTest' => 'red';