Perlで、引数が足りないのに例外にならない

Question

Perlの5.8を使っています。

Perlのコンストラクタに引数を3つ渡さなくてはならないところを0個で渡すしても例外になりません。
strictは使っています。

言語仕様的に諦めろという話なのか、引数足りてなければ例外を返すということは可能でしょうか？

Answer 1

引数の個数や型を限定したい場合は、プロトタイプ引数を設定します。

sub func($$$) {
}

func("1", "2");           # not enough arguments
func("1", "2", "3");      # OK
func("1", "2", "3", "4"); # too many arguments

参考リンク：
Perl - プロトタイプ (Loose-Info.com)

Comments

[退会済みユーザー]

ありがとうございます！

[退会済みユーザー]

ちなみにコンストラクタ時は、出来ないですよね？

[argius]

Perlのバージョンが違う(当方v5.18)ので同じ動作になるかどうかは分かりませんが、クラスの場合はコンストラクター（new）を含むメソッドではプロトタイプが利きませんね。

[退会済みユーザー]

そうですよね。
ありがとうございます。

[argius]

私はそういう使い方(OOP+プロトタイプ)をしたことが無かったので、気づきませんでした。
お役に立てずにすみません。