Tie::RefHash perl

なんじゃろと思っていたら、
ハッシュのキーにリファレンスを使うことができるようにするモジュールだった。

      1 use strict;
      2
      3 use Tie::RefHash;
      4
      5 my %h;
      6
      7 tie %h, 'Tie::RefHash';
      8
      9 %h = ([qw(aa bb cc)] => 'hoge');
     10
     11 for my $key (keys %h) {
     12     print ref($key)."\n";
     13     for my $v (@{$key}) {
     14         print $v."\n";
     15     }
     16 }

こんな感じに動いてくれます。

ARRAY
aa
bb
cc

http://search.cpan.org/~nuffin/Catalyst-Plugin-Authentication-0.09/lib/Catalyst/Plugin/Authentication.pm
http://search.cpan.org/~nuffin/Tie-RefHash-1.35/lib/Tie/RefHash.pm
http://fleur.hio.jp/perldoc/mix/lib/Tie/RefHash.html