nitoka blog: 便利モジュールClass::Accessor

« MTEntryCategoryDescription | メイン | ついに買っちゃった »

October 02, 2006

便利モジュールClass::Accessor

最近使い始めたのですが、Class::Accessorってかなり便利。

CPANのドキュメントにあるサンプルソースにこんな内容が書いてあるのですが、

Most of the time, writing accessors is an exercise in cutting and pasting. 
You usually wind up with a series of methods like this:
(通常、アクセサを書くことはカット＆ペーストの練習だ。
いつもこのように一連のメソッドを書くはめになる：)

sub name {
        my $self = shift;
        if(@_) {
            $self->{name} = $_[0];
        }
        return $self->{name};
    }

    sub salary {
        my $self = shift;
        if(@_) {
            $self->{salary} = $_[0];
        }
        return $self->{salary};
    }
  # etc...

まさにこのサンプルソースになるようなプログラムをこのモジュールを知るまでは書いていて、かなりイケなかったのですが、このモジュールを知った今はもうそんなダメなソースを書きませんよ。
手始めに会社でよく使う汎用フォームのソースをClass::Accessorを使って書き直す予定。