Skip Menu |
 

This queue is for tickets about the Tie-IxHash CPAN distribution.

Report information
The Basics
Id: 23910
Status: new
Priority: 0/
Queue: Tie-IxHash

People
Owner: Nobody in particular
Requestors:
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 1.21
Fixed in: 1.21



Subject: Wish: overloaded hash dereference operator.
Download (untitled) / with headers
text/plain 514b
This is nice to have. Having only a $t object (as in the synopsis), it would be nice to convert that into a sorted hash too. This is how to do it: In Tie::IxHash, add this line to the use list: use overload '%{}' => \&ObjectToHash; In Tie::IxHash, add this sub: sub ObjectToHash { my($s) = shift; my %result; tie(%result, __PACKAGE__); for (my $i = 0; $i < @{$s->[1]}; $i++) { $result{$s->[1]->[$i]} = $s->[2]->[$i]; } return wantarray ? %result : \%result; } In other code: my %sorted_hash = %{$t};
Subject: diff.txt
Download diff.txt
text/plain 596b
--- IxHash.pm.orig 2006-10-11 16:28:36.000000000 +0200 +++ IxHash.pm 2006-12-13 09:50:46.000000000 +0100 @@ -10,6 +10,7 @@ package Tie::IxHash; use integer; +use overload '%{}' => \&ObjectToHash; require Tie::Hash; @ISA = qw(Tie::Hash); @@ -420,6 +421,16 @@ $s->Reorder(sort { $s->FETCH($a) cmp $s->FETCH($b) } $s->Keys) } +sub ObjectToHash { + my($s) = shift; + my %result; + tie(%result, __PACKAGE__); + for (my $i = 0; $i < @{$s->[1]}; $i++) { + $result{$s->[1]->[$i]} = $s->[2]->[$i]; + } + return wantarray ? %result : \%result; +} + 1; __END__


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.