ä½æ ã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
{{#tags}}- {{label}}
{{/tags}}