Perl OOP におけるクラスの実装方法 : NDO::Weblog

Perl OOP におけるクラスの実装方法 [ Perl ] Perl で OOP するにあたってはコンストラクタの書き方やアクセサの書き方に色んな方法があります。素で書くと package Dog; use strict; use warnings; # コンストラクタ sub new { my $class = shift; my $self = {}; bless $self, $class; return $self; } # アクセサ sub name { my $self = shift; @_ ? $self->{name} = shift : $this->{name}; } 1; あたりが定番だと思います。インスタンスフィールドをハッシュで実装して、アクセサは getter と setter を兼ねるメソッドとして定義。コンストラクタにおける初期化処理を $self->i

[lesamoureuses]

Perlでのクラスの書き方

[ya_ken]

　Perl＋CPANモジュールでオブジェクト指向に書くためのTip

[palmo]

アクセサいろいろ

[MotionBros]

アクセサの作り方サンプル

[a_666666]

へー。こっちがもとねたか。__PACKEGE__ってこういうとき便利なのね。

[vkgtaro]

Class::Accessor と Class::Fields