package Man; use strict; use warnings; sub new{ my ($class,$param) = @_; my $self = bless {param=>$param},$class; } sub name{ my ($self) = @_; return $self->{param}{name} || ""; } sub friends{ my ($self) = @_; return $self->{param}{friends…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。