したくなったのでMooseでもよかったのですが これまたでっちあげてみた。 package Data::Object; use strict; use warnings; our $VERSION = '0.01'; use Data::Object::Iterator; sub new { my ($class, $args) = @_; my $itr = Data::Object::Iterator->ne…

ANONクラスを作りまくりたくなったのですが Class::MOPを使ってもいいし Moose::Meta::Class->create_anon_classとMooseつかってもいいんですけど、 ちょっと適当に作ってみた。 package Class::Anon; use strict; use warnings; sub create_anon_class_by_e…