Coding Rules

インデントは4スペ (ハードタブはダメ)

良い例

if ( $foo > 1 ) {
    print 'bar';
}

悪い例

if ( $foo > 1 ) {
  print 'bar';
}

制御構文の後ろはスペースをひとつ入れる

良い例

if ( $foo > 1 ) {
    print 'bar';
}

悪い例

if( $foo > 1 ) {
  print 'bar';
}

制御構文の開き括弧は同じ行で手前にスペースをひとつ入れる

良い例

if ( $foo > 1 ) {
    print 'bar';
}

悪い例

if ( $foo > 1 ){
  print 'bar';
}

if ( $foo > 1 )
{
  print 'bar';
}

代入式の前後にはスペースをひとつ以上入れる

良い例

my $foo = 'foo';

my $foobar = 'foobar';
my $baz    = 'baz';

悪い例

my $foo='foo';

my $foobar= 'foobar';
my $baz ='baz';

プライベートメソッドとして扱いたいものには'_'をprefixにする

良い例

sub _private {
}

変数名、メソッドはスネークケースにする

良い例

my $is_foo = 'foo';

sub get_user_id {
}

悪い例

my $isFoo = 'foo';

sub getUserID {
}

定数として扱いたいものは全て大文字にする

良い例

my $CONST = 1;

パッケージ名はキャメルケースにする

良い例

package Foo::Bar::FooBar;

悪い例

package Foo::Bar::foo_bar;

イニシャライザの呼び出しに前置のnewは使わない

良い例

my $bar = Foo::Bar->new('arg'):

悪い例

my $bar = new Foo::Bar: