名前¶

fields - コンパイル時のクラスフィールド

概要¶

    {
        package Foo;
        use fields qw(foo bar _Foo_private);
        sub new {
            my Foo $self = shift;
            unless (ref $self) {
                $self = fields::new($self);
                $self->{_Foo_private} = "this is Foo's secret";
            }
            $self->{foo} = 10;
            $self->{bar} = 20;
            return $self;
        }
    }

    my $var = Foo->new;
    $var->{foo} = 42;

    # this will generate an error
    $var->{zap} = 42;

    # subclassing
    {
        package Bar;
        use base 'Foo';
        use fields qw(baz _Bar_private);        # not shared with Foo
        sub new {
            my $class = shift;
            my $self = fields::new($class);
            $self->SUPER::new();                # init base fields
            $self->{baz} = 10;                  # init own fields
            $self->{_Bar_private} = "this is Bar's secret";
            return $self;
        }
    }

説明¶

fields プラグマはコンパイル時に検証するクラスフィールドを有効にします。

注意: 現在の実装は呼び出しパッケージの %FIELDS ハッシュに宣言された フィールドを保持しますが、これは将来のバージョンで変更されるかもしれません。 %FIELDS ハッシュを直接 更新しないでください; なぜなら、これが完全に 有用であるために、コンパイル時にこのプラグマが行ったとおりのままに 作られなければならないからです。

5.9.0 より前の perl でのみ有効:

リファレンスを保持している型付きレキシカル変数がハッシュ要素のアクセスに 使われ、型と同じ名前のパッケージがこのプラグマを使ってクラスフィールドを 宣言していると、この操作はコンパイル時に配列アクセスに変換されます。

関連する base プラグマは、基底クラスのフィールドと fields プラグマを使って宣言されたフィールドを結合します。 これによりフィールドの継承が適切に動作するようになります。

下線文字で始まるフィールド名はこのクラスにプライベートなものとなり、 サブクラスからは見えなくなります。 継承されたフィールドはオーバーライドできますが、 -w オプションとともに使われると警告が発生します。

5.9.0 より前の perl でのみ有効:

これら全ての効果は、配列と同様にコンパクトで高速な、名前付きフィールドを 持つオブジェクトを持てることです。 これはオブジェクトが適切に型付けされた変数を通してアクセスされた場合にのみ 動作します。 オブジェクトが型付きでない場合、アクセスは実行時にのみチェックされます。

以下の関数に対応しています:

new

perl before 5.9.0: fields::new() creates and blesses a pseudo-hash comprised of the fields declared using the fields pragma into the specified class.

perl 5.9.0 より前: fields::new() は fields プラグマを使って宣言されたフィールドからなる疑似ハッシュを 指定されたクラスに作成して、bless します。

perl 5.9.0 and higher: fields::new() creates and blesses a restricted-hash comprised of the fields declared using the fields pragma into the specified class.

perl 5.9.0 以降: fields::new() は fields プラグマを使って宣言されたフィールドからなる制限ハッシュを 指定されたクラスに作成して、bless します。

This function is usable with or without pseudo-hashes. It is the recommended way to construct a fields-based object.

この関数は疑似ハッシュありでもなしでも有用です。 これは fields ベースのオブジェクトを作るための推奨する方法です。

This makes it possible to write a constructor like this:

これは次のようなコンストラクタを書くことを可能にします:

    package Critter::Sounds;
    use fields qw(cat dog bird);

    sub new {
        my $self = shift;
        $self = fields::new($self) unless ref $self;
        $self->{cat} = 'meow';                          # scalar element
        @$self{'dog','bird'} = ('bark','tweet');        # slice
        return $self;
    }

phash

before perl 5.9.0:

perl 5.9.0 より前:

fields::phash() can be used to create and initialize a plain (unblessed) pseudo-hash. This function should always be used instead of creating pseudo-hashes directly.

fields::phash() は通常の(bless されていない) 疑似ハッシュの作成と初期化に使われます。 この関数は疑似ハッシュを直接作る代わりに常に使われるべきです。

If the first argument is a reference to an array, the pseudo-hash will be created with keys from that array. If a second argument is supplied, it must also be a reference to an array whose elements will be used as the values. If the second array contains less elements than the first, the trailing elements of the pseudo-hash will not be initialized. This makes it particularly useful for creating a pseudo-hash from subroutine arguments:

最初の引数が配列へのリファレンスの場合、疑似ハッシュはこの配列を キーとして作成されます。 2 番目の引数が指定された場合、これは要素が値として使われる配列への リファレンスでなければなりません。 二つ目の配列の要素数が一つ目より少ない場合、 疑似ハッシュの残りの要素は初期化されません。 これは特にサブルーチンの引数から疑似ハッシュを作成するのに有用です:

    sub dogtag {
       my $tag = fields::phash([qw(name rank ser_num)], [@_]);
    }

fields::phash() also accepts a list of key-value pairs that will be used to construct the pseudo hash. Examples:

fields::phash() はまた、疑似ハッシュを構築するのに使われる キー-値の組のリストも受け付けます。 例:

    my $tag = fields::phash(name => "Joe",
                            rank => "captain",
                            ser_num => 42);

    my $pseudohash = fields::phash(%args);

perl 5.9.0 and higher:

perl 5.9.0 以降:

Pseudo-hashes have been removed from Perl as of 5.10. Consider using restricted hashes or fields::new() instead. Using fields::phash() will cause an error.

疑似ハッシュは 5.10 で Perl から取り除かれました。 代わりに制限ハッシュや fields::new() を使うことを検討してください。 fields::phash() を使うとエラーになります。

SEE ALSO¶

base