簡易アクセサ

CPANが使えないような環境で、ゲッターセッターをセットで作りたい。
でも、いくつも

sub set_hoge{
    my $self = shift;
    $self->{'hoge'} = shift;
}

sub get_hoge{
    my $self = shift;
    return $self->{'hoge'};
}

とか書くの苦痛。

で、適当に簡易アクセサメソッド作った。

sub axs{
	my $self = shift;
	my $any = shift;
	if(scalar @_ > 0){
		$self->{$any} = shift;
	}
	return $self->{$any};
}

というメソッド、使いたいモジュールに追加。

いつものように、モジュールを呼び出して、

gette,setterとして使いたい場合は、第一引数にプロパティ、セッターなら第二引数にデータを与える。

#!/usr/local/bin/perl
use hoge;

$hoge_obj = hoge->new();
#セッターの場合
$as->axs('セットしたいプロパティ名','セットしたい値');
#ゲッターの場合
my $data = $as->axs('取得したいプロパティ名');

#CPAN使わせてください