何故かPOEをリファクタリングする指令を受けたのでなんとなくAnyEventを練習しています。 というわけで復習を兼ねての記事です。 サンプルコード package Model::Person; use strict; use warnings; use Carp (); use Class::Accessor::Lite; Class::Accessor::Lite->mk_accessors(qw/name hp/); sub new { my $class = shift; my %args = @_ == 1 ? %{$_[0]} : @_; bless {%args}, $class; } sub beat { my ($self, $person) = @_; Carp::croak("This is NOT a Model::Person...") unless $perso