Perlデザインパターン

http://www.perldesignpatterns.com/?PerlDesignPatterns
素晴らしいサイト。Perlならではのパターンに妙味ありです。

perlの長所を活かすパターン「引数に名前をつける」

サブルーチンの引数の順番を覚えるよりも、ハッシュを使って順序を気にしなくていいようにしよう。

  sub foo {

    my %args = @_;

    my $color = $args{color};

    my $number = $args{number};

    # ...

  }

  

  foo(color=>'red', number=>13);

perlに制限を設けるパターン「プライベート関数を作る」

  sub muckWithSomething {

    caller eq __PACKAGE__ or die;

    my $self = shift;

    my $arg = shift;

    # code here using $self and $arg

  }

などなど