ã·ã³ãã«ãªPerl 5ã§ã¯ã©ã¹ãä½ã æ®éã®Perl5 OOã§ã¯ã©ã¹ãæ¸ã㨠{ package Dog; use strict; use warnings; sub new { my ( $class, %args ) = @_; my $obj = bless { name => $args{name}, gender => $args{gender}, }, $class; return $obj; } sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } sub gender { my $self = shift; $self->{gender} = shift if @_; return $self->{gender}; } sub bark { my $self = s
{{#tags}}- {{label}}
{{/tags}}