perlで同じようなメソッドを楽に定義する

同じような処理をする似たようなメソッドはfor文使って楽しちゃいましょう。

例えば、

sub debug {
 my ($self, @args) = @_;
 $self->log->debug(@args);
}
sub info {
 my ($self, @args) = @_;
 $self->log->info(@args);
}
sub warn {
 my ($self, @args) = @_;
 $self->log->warn(@args);
}

こんなやつはこんな感じでやっつけちゃいましょ。

for my $name (qw/debug info warn/) {
 no strict 'refs';
 *{$name} = sub {
  my ($self, @args) = @_;
  $self->log->$name(@atgs);
 }
}