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.
http://search.cpan.org/~nkuitse/Hash-AsObject-0.09/lib/Hash/AsObject.pm