case insensitive hash

[Honza Pazdziora]

On Wed, Jun 15, 2005 at 06:14:31PM +0200, Jiri Polcar wrote:
> 
> Ano, bohuzel resim. Vlastnost case insensitive se objevila az na zaver,
> jinak bych zvolil jiny pristup. Ted se mi jevy jako nejjednodussi
> "upgrade" toto.
> 
> Poradite, jak bych mel upravit metodu STORE?

Mno, mel jsem predstavu neceho jako (netestovano, pseudokod):

	sub STORE {
		my ($self, $key, $value) = @_;
		if (ref $value and ref $value eq 'HASH') {
			tie %$value, 'Tie::Folded';
		}
		return $self->{lc $key} = $value;
	}

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, large Web systems, XML/XSL, ...
		Only self-confident people can be simple.