Hash::AsObject perl

ハッシュの入れ子状態をメソッド形式で呼べてしまうひと。

      1 use strict;
      2 use warnings;
      3 use YAML::Syck;
      4 use Hash::AsObject;
      5
      6 my $data =Hash::AsObject->new( Load( join "", <DATA> ) );
      7
      8 warn  $data->test->hoge->tege;
      9
     10 __END__
     11 ---
     12 test:
     13     hoge:
     14         tege: test

結果、こんな感じ。

test at hoge.pl line 8, line 4.

Hoge::P::YAMLとかこれで呼べると素敵なのかも。

http://search.cpan.org/~nkuitse/Hash-AsObject-0.09/lib/Hash/AsObject.pm