2012-05-10から1日間の記事一覧
なんか気になったのでPoCで作ってみた。 package Data::DestructuringAssingment; use strict; use warnings; use Exporter qw/import/; use List::MoreUtils qw/all/; use base qw/Tie::Scalar/; our @EXOPORT_OK = qw/destruct/; sub destruct : lvalue { …
なんか気になったのでPoCで作ってみた。 package Data::DestructuringAssingment; use strict; use warnings; use Exporter qw/import/; use List::MoreUtils qw/all/; use base qw/Tie::Scalar/; our @EXOPORT_OK = qw/destruct/; sub destruct : lvalue { …