Inside Perl5 OO 対象èªè ï¼ ä»ã®è¨èªã§ OO ãããã¨ããã£ã½ãã²ã¨/Perl4 ã§ã¨ã¾ã£ã¦ãã²ã¨ Class ãã¤ãã ã¾ãã¯ç¹ã¯ã©ã¹ãã¤ãã£ã¦ã¿ã¾ããã package Point; sub new { my ($class, %args) = @_; # 第ï¼å¼æ°ã¯ã¯ã©ã¹å bless({%args}, $class); # ãã¼ã¿ã bless ããã¨ããªãã¸ã§ã¯ãã«ãªã } sub x { my $self = shift; # 第ï¼å¼æ°ã¯ãã¤ã³ã¹ã¿ã³ã¹ $self->{x} = shift if @_; # å¼æ°ãããã°ã»ãã¿ã¼æ±ãã«ãªã $self->{x}; } sub y { my $self = shift; $self->{y} = shift if @_; $self->{y}; } ãã®ããã«ãã¦ä½ã£ãã¯ã©ã¹ã¯ãä¸è¨ã®ããã«ãã¦å¼ã³åºããã¨ãã§ãã¾
{{#tags}}- {{label}}
{{/tags}}