はじめに 現在使っているAquamacsなemacsのcperl-modeのインデント調整のメモ. まだまだ微妙です. before my $a = { a => 1, b => 2, c => { s => 10, t => 20, }, d => [ 100, 200, 300, ], }; sub hogehoge { my ($x, $y) = @_; ($y, $x); } sub fugafuga { my $param = {@_}; if ($param->{foo}) { return undef; } else { return 'hoge'; } } hogehoge( 'foo', 'bar', ); fugafuga( foo => [ qw/xxx yyy zzz /, ], bar => [ qw/ aaa bbb ccc / ], baz => { xxx