Feature-Compat-Class-0.05 > Feature::Compat::Class


Feature::Compat::Class - make class syntax available

Feature::Compat::Class - class シンタックスを使えるようにします


   use Feature::Compat::Class;

   class Point {
      field $x :param = 0;
      field $y :param = 0;

      method move_to ($new_x, $new_y) {
         $x = $new_x;
         $y = $new_y;

      method describe {
         say "A point at ($x, $y)";

   Point->new(x => 5, y => 10)->describe;


This module provides the new class keyword and related others (method, field and ADJUST) in a forward-compatible way.

There is a branch of Perl development source code which provides this syntax, under the class named feature. If all goes well, this will become available in a stable release in due course. On such perls that contain the feature, this module simple enables it.

On older versions of perl before such syntax is availble in core, it is currently provided instead using the Object::Pad module, imported with a special set of options to configure it to only recognise the same syntax as the core perl feature, thus ensuring any code using it will still continue to function on that newer perl.

このモジュールは、新しい class キーワードと、それに関連する method, field and ADJUST を前方互換として提供します。

このモジュールが提供する文法は、Perlの開発版ソースコードのブランチに class という 名前の機能としてあります。全てうまくいけば、この機能は安定板に入るでしょう。 そのような perl が持つ機能をこのモジュールは有効にします。

Object::Padが、コアのperlのclassの文法と同等となるオプションを用いてインポートされ、 代わりに提供されます。つまり、これを利用しているコードは、新しいperlの機能が引き続き 機能することを保証します。

Perl Branch with feature 'class'

(feature 'class' をもった Perlブランチ)

At time of writing, the use feature 'class' syntax is not part of mainline perl source but is available in a branch. That branch currently resides at https://github.com/leonerd/perl5/tree/feature-class/. It is intended this will be migrated to the main perl repository ahead of actually being merged once development has progressed further.

This module is a work-in-progress, because the underlying feature-class branch is too. Many of the limitations and inabilities listed below are a result of the early-access nature of this branch, and are expected to be lifted as work progresses towards a more featureful and complete implementation.

これを書いている時点では、use feature 'class' シンタックスは perl のメインブランチには 入っていませんが、ブランチでは有効です。有効なブランチは現在 https://github.com/leonerd/perl5/tree/feature-class/ にあります。いまより開発が 進んだ時に perl 本体にマージされることが計画されます。

このモジュールは開発中 WIP です。feature-class ブランチのもとに同じだからです。 以下に列挙されるたくさんの制約やできないことは、そのブランチを早くさわれるようにした 結果です。そして、もっと機能が進歩することと実装が完了することが期待されます。


The keywords provided by this module offer a subset of the abilities of those provided by Object::Pad, restricted to specifically only what is commonly supported by the core syntax as well. In general, the reader should first consult the documentation for the corresponding Object::Pad keyword, but the following notes may be of interest:

このモジュールで提供されるキーワードは Object::Pad が提供するものと同じことができる サブセットになります。コアのシンタックスでサポートされるものだけに限られます。 読者はまずは Object::Pad のキーワードのドキュメントを参照すべきですが、 以下の注意事項が参考になるかもしれません。


   class NAME { ... }
   class NAME VERSION { ... }

   class NAME; ...
   class NAME VERSION; ...

See also "class" in Object::Pad.

There is no ability to declare any roles with :does. The legacy subkeywords for these are equally not supported.

The :repr attribute is also not supported; the default representation type will always be selected.

The :strict(params) attribute is not available, but all constructed classes will behave as if the attribute had been declared. Every generated constructor will check its parameters for key names left unhandled by ADJUST blocks, and throw an exception if any remain.

The following class attributes are supported:

:does を伴うロールを宣言することはできません。そのための古いサブキーワードは同じく サポートされません。

:repr 属性もサポートされません。デフォルトの representation type は 常に選択されます。

:strict(params) 属性はありません。しかし、全てのコンストラクトされたクラスは この属性が宣言されているとして振る舞います。生成される毎のコンストラクタが、キーネームが ADJUST ブロックによって unhandled になったものを残していないか、チェックします。そして、 もし残されていたら例外を投げます。





Since version 0.02.

Declares a superclass that this class extends. At most one superclass is supported.

If the package providing the superclass does not exist, an attempt is made to load it by code equivalent to

Since version 0.02.



   require CLASS ();

and thus it must either already exist, or be locatable via the usual @INC mechanisms.

An optional version check can also be supplied; it performs the equivalent of

というわけで、いずれもすでに存在していなけばなりません。もしくは、いわゆる @INC の 仕組みに入っていないといけません。


   BaseClass->VERSION( $ver )

Note that class blocks do not implicitly enable the strict and warnings pragmata; either when using the core feature or Object::Pad. This is to avoid surprises when eventually switching to purely using the core perl feature, which will not do that. Remember however that a use VERSION of a version v5.36 or above will enable both these pragmata anyway, so that will be sufficient.

class ブロックは strictwarnings プラグマを暗黙的に有効にしません。 いずれもコアの機能を使うか、Object::Pad を使うときは有効です。これは最終的にコアの機能に 切り替えるときの驚きを避けるためです。v5.36 以降の use VERSION をすると、 両方の strictwarnings プラグマが有効になります。なので充分でしょう。

(翻訳注:strictwarnings プラグマの状態は以下のようです。 * perlコア(素のperl): 明示的にuseしないと無効 * class feature: 明示的にuseしないと無効 * Object::Pad: 暗黙的に有効 * use VERSION: v5.36以降を書くと暗黙的に有効)


   method NAME { ... }
   method NAME;

See also "method" in Object::Pad.

Attributes are not supported, other than the usual ones provided by perl itself. Of these, only :lvalue is particularly useful.

Lexical methods are not supported.

"method" in Object::Pad も参照してください。

perl そのものによって提供された通例の属性はサポートされません。 :lvalue だけは明らかに便利です。



   field $NAME;
   field @NAME;
   field %NAME;

   field $NAME = EXPR;

   field $NAME :ATTRS... = EXPR;

See also "field" in Object::Pad.

Most field attributes are not supported. In particular, rather than using the accessor-generator attributes you will have to create accessor methods yourself; such as

"field" in Object::Pad も参照してください。

ほとんどのフィールド属性もサポートされません。特に、以下のようにアクセサを自力で 作成するのに使うアクセサジェネレータ属性ではないもの

   field $var;
   method var { return $var; }
   method set_var ($new_var) { $var = $new_var; }

Since version 0.04 fields of any type may take initialising expressions. Initialiser blocks are not supported.

version 0.04 から、フィールドはinitialising expressionsをとりますが、 initialiser ブロックはサポートされません。

   field $five = 5;

The following field attributes are supported:



   field $var :param;

   field $var :param(name)

Since version 0.04.

Declares that the constructor will take a named parameter to set the value for this field in a new instance.

version 0.04. から、コンストラクタは名前付きパラメータをフィールドの値を設定するために 使えます。

   field $var :param = EXPR;

Without a defaulting expression, the parameter is mandatory. When combined with a defaulting expression, the parameter is optional and the default will only apply if the named parameter was not passed to the constructor.

デフォルトの式がなければ、パラメータは必須です。デフォルトの式と組み合わさっていれば パラメータはオプショナルです。そして、デフォルト値はnamed parameterがコンストラクタに 渡されなかった時だけ与えられます。

   field $var :param //= EXPR;
   field $var :param ||= EXPR;

With both the :param attribute and a defaulting expression, the operator can also be written as //= or ||=. In this case, the defaulting expression will be used even if the caller passed an undefined value (for //=) or a false value (for ||=). This simplifies many situations where undef would not be a valid value for a field parameter.

:param 属性とデフォルトの式の両方一緒なら、演算子は //=||= の どちらでも書くことができます。この場合、デフォルトの式は caller が未定義値( //= ) か偽値 ( ||= ) を渡したとしても使われます。

   class C {
      field $timeout :param //= 20;

   C->new( timeout => $args{timeout} );
   # もし %args が 'timeout' キーを持たないか、その値が undef の時にデフォルト値が適用されます。


   ADJUST { ... }

See also "ADJUST" in Object::Pad.

Attributes are not supported; in particular the :params attribute of Object::Pad v0.70.

"ADJUST" in Object::Pad も参照してください。

特に、Object::Pad v0.70 の :params 属性はサポートされません。

Other Keywords

The following other keywords provided by Object::Pad are not supported here at all:

以下の Object::Pad が提供するその他のキーワードはサポートされません。






This module may use either Object::Pad or the perl core class feature to implement its syntax. While the two behave very similarly and both conform to the description given above, the following differences should be noted.

このモジュールは、シンタックスを実装するために、Object::Pad か perl コアの class feature を使うでしょう。双方はとても似通った振る舞いをしますし、ともに ここまでの説明に適合し、以下の違いについて記されるべきです。

Fields in later field expressions

The core perl class feature makes every field variable visible to the initialising expression of later fields. For example,

Perlコアの class feature は、初期化式の中の後のフィールドのために フィールド変数毎に見えるようにします。以下の例:

   field $one = 1;
   field $two = $one + 1;

This is not currently supported by Object::Pad. As a result, it is possible to write code that works fine with the core perl feature but older perls cannot support by using Object::Pad.

これは Object::Pad で今のところサポートされていません。結果として、perl コアでは 問題なく動くコードを書くことができますが、古い perl は Object::Pad でサポートすることは できません。


Paul Evans <leonerd@leonerd.org.uk>