blog.nomadscafe.jp

同僚のPerlモジュールを覗いたら、すばらしぃコード発見

sub new {
	my($class,$self)=(shift,{@_});
	bless($self,$class);
	return $self;
}

何がって、

my($class,$self)=(shift,{@_});

この短縮具合がイイ。
自分で書いていたのは、

sub new{
  my($class,%args) = @_;
  my $self = ?%args;
  bless($self,$class);
  return $self;
}

こんな感じ