名前 NAME

UNIVERSAL - 全てのクラス(ブレスされたリファレンス)の基底クラス UNIVERSAL - base class for ALL classes (blessed references)

概要 SYNOPSIS

    $is_io    = $fd->isa("IO::Handle");
    $is_io    = Class->isa("IO::Handle");

    $does_log = $obj->DOES("Logger");
    $does_log = Class->DOES("Logger");

    $sub      = $obj->can("print");
    $sub      = Class->can("print");

    $sub      = eval { $ref->can("fandango") };
    $ver      = $obj->VERSION;

    # but never do this!
    $is_io    = UNIVERSAL::isa($fd, "IO::Handle");
    $sub      = UNIVERSAL::can($obj, "print");

説明 DESCRIPTION

UNIVERSAL は全てのブレスされたリファレンスが継承する基底クラスです, perlobj [CPAN] も参照してください. UNIVERSAL is the base class from which all blessed references inherit. See perlobj [CPAN].

UNIVERSAL は以下のメソッドを提供しています: UNIVERSAL provides the following methods:

$obj->isa( TYPE )

CLASS->isa( TYPE )

eval { VAL->isa( TYPE ) }

ここで Where

TYPE

はパッケージ名 is a package name

$obj

はブレスされたリファレンスかパッケージ名を含んだ文字列 is a blessed reference or a string containing a package name

CLASS

はパッケージ名 is a package name

VAL

上のいずれかかブレスされていないリファレンス is any of the above or an unblessed reference

インスタンス若しくはクラスメソッド ($obj->isa( TYPE ))として 使うときは $obj がパッケージ TYPE 若しくはパッケージ TYPE の派生にブレスされているときに 真 を返します. When used as an instance or class method ($obj->isa( TYPE )), isa returns true if $obj is blessed into package TYPE or inherits from package TYPE.

クラスメソッド (CLASS->isa( TYPE ): スタティックメソッドとして 参照されることもあります)として使う時は CLASS がパッケージ名 TYPE 若しくはパッケージ TYPE の派生から派生している(若しくは そのもの)の時に 真 を返します. When used as a class method (CLASS->isa( TYPE ), sometimes referred to as a static method), isa returns true if CLASS inherits from (or is itself) the name of the package TYPE or inherits from package TYPE.

もし調べたい対象が何であるのかはっきりしていないとき(VALのケース)では, VAL が未定義のときの例外を捕捉するために, メソッド呼び出しを eval で包む必要があります. If you're not sure what you have (the VAL case), wrap the method call in an eval block to catch the exception if VAL is undefined.

isa をクラスではなくメソッド呼び出しであることを保証したいのであれば 最初に Scalar::Util [CPAN] の blessed で呼び出しを確認します: If you want to be sure that you're calling isa as a method, not a class, check the invocant with blessed from Scalar::Util [CPAN] first:

  use Scalar::Util 'blessed';

  if ( blessed( $obj ) && $obj->isa("Some::Class") {
      ...
  }

$obj->DOES( ROLE )

CLASS->DOES( ROLE )

DOES はオブジェクト若しくはクラスが役割 ROLE として機能するかどうかを 調べます. 役割(role)とは特定の振る舞いに名前を付けたグループです( しばしば特定の名前やシグニチャを持ったメソッドです), クラスと似て いますが, それ自体が完全なクラスである必要はありません. 例えば, logging や serialization は役割になるでしょう. DOES checks if the object or class performs the role ROLE. A role is a named group of specific behavior (often methods of particular names and signatures), similar to a class, but not necessarily a complete class by itself. For example, logging or serialization may be roles.

DOES と isa はどちらも, 真であればメソッドを呼び出したオブジェクト 若しくはクラスが特定の振る舞いを行えるかどうかを知ることが 出来るという点で似ています. しかしながら, DOES は 呼び出し先が操作を どのように処理するかには気にしないで, 単にそれを行うということを調べるに すぎないという点で isa とは異なります. (isa はもちろん 関連の継承を委任しています. 他の関連には集約(aggregation), 委譲(delegation), mock が含まれます.) DOES and isa are similar, in that if either is true, you know that the object or class on which you call the method can perform specific behavior. However, DOES is different from isa in that it does not care how the invocant performs the operations, merely that it does. (isa of course mandates an inheritance relationship. Other relationships include aggregation, delegation, and mocking.)

デフォルトでは, Perl のクラスは UNIVERSAL ロールとして機能するだけです. 自分のクラスで他のロールの機能をマークするには, DOES を適切に オーバーライドします. By default, classes in Perl only perform the UNIVERSAL role. To mark that your own classes perform other roles, override DOES appropriately.

ロールとクラスの間には, 各クラスは暗にその同じ名前のロールが存在するという 関連があります. 継承トロールには, 基底クラスから派生したサブクラスは 暗黙にその親の機能する任意のロールは機能するという点も関連があります. それ故に isa が真を返す全ての場所で DOES は真を返すので(オーバー ライドされた DOES 及び isa メソッドは適切に振る舞うため), 安全に isa の代わりに DOES を使うことが出来ます, There is a relationship between roles and classes, as each class implies the existence of a role of the same name. There is also a relationship between inheritance and roles, in that a subclass that inherits from an ancestor class implicitly performs any roles its parent performs. Thus you can use DOES in place of isa safely, as it will return true in all places where isa will return true (provided that any overridden DOES and isa methods behave appropriately).

$obj->can( METHOD )

CLASS->can( METHOD )

eval { VAL->can( METHOD ) }

can はオブジェクト若しくはクラスが METHOD というメソッドを 持っているかを調べます. もし持っていれば関数リファレンスが返されます. もし持っていなければ undef が返されます. これには $obj, CLASS, 若しくは VAL で継承されている若しくはインポートされている メソッドが含まれます. can checks if the object or class has a method called METHOD. If it does, then it returns a reference to the sub. If it does not, then it returns undef. This includes methods inherited or imported by $obj, CLASS, or VAL.

can はオブジェクトが(オブジェクトのクラスが can を適切にオーバー ライドしていないのであれば) AUTOLOAD を通してメソッドを提供可能かどうかは 知ることができません, そのため undef が返ってきてもオブジェクトが そのメソッド呼び出しを処理することができないとは限りません. これを 回避するにはモジュールの作者が AUTOLOAD を使って処理するメソッドに対して 前方宣言を使うことです(perlsub [CPAN]参照). そのような'ダミー'の関数は can はコードリファレンスを返しますが, それが呼び出された時には AUTOLOAD へとフォールスルーされます. もし適切な AUTOLOAD が提供されて いなければ, コードリファレンスの呼び出しはエラーになるでしょう. can cannot know whether an object will be able to provide a method through AUTOLOAD (unless the object's class has overriden can appropriately), so a return value of undef does not necessarily mean the object will not be able to handle the method call. To get around this some module authors use a forward declaration (see perlsub [CPAN]) for methods they will handle via AUTOLOAD. For such 'dummy' subs, can will still return a code reference, which, when called, will fall through to the AUTOLOAD. If no suitable AUTOLOAD is provided, calling the coderef will cause an error.

can はクラス(スタティック)メソッド, オブジェクトメソッドとして 呼び出すことができます. You may call can as a class (static) method or an object method.

繰り返しますが, 有効な呼び出しのためには同じルールがつかわれます -- eval ブロックかよりこだわるのであれば blessed を使う必要が あります. Again, the same rule about having a valid invocant applies -- use an eval block or blessed if you need to be extra paranoid.

VERSION ( [ REQUIRE ] )

VERISON はオブジェクトがブレスされているパッケージの変数 $VERSION の値を返します. もし REQUIRE が与えられていた 場合には比較をおコアってパッケージのバージョンが REQUIRE 以上でなかった場合には die します. VERSION will return the value of the variable $VERSION in the package the object is blessed into. If REQUIRE is given then it will do a comparison and die if the package version is not greater than or equal to REQUIRE.

VERSION はクラス(スタティック)メソッド若しくはオブジェクトメソッド として呼び出すことができます. VERSION can be called as either a class (static) method or an object method.

エクスポート EXPORTS

デフォルトでは何もエクスポートされません. None by default.

３つの関数(isa, can, そして VERSION)をインポートしたいかも しれませんが, それを行うことはたいてい有害なことです. 新しいコードでは それは行わないでください. You may request the import of three functions (isa, can, and VERSION), however it is usually harmful to do so. Please don't do this in new code.

例えば, このドキュメントの以前のバージョンではリファレンスの 種類を調べるのに isa を関数として使うことを提案していました: For example, previous versions of this documentation suggested using isa as a function to determine the type of a reference:

  use UNIVERSAL 'isa';

  $yes = isa $h, "HASH";
  $yes = isa "Foo", "Bar";

この時, このコードは他のクラスでオーバーライドされた isa メソッドを呼び出すことがないという問題があります. １つめのケースについては代わりに Scalar::Util [CPAN] の reftype を 使うようにしてください. The problem is that this code will never call an overridden isa method in any class. Instead, use reftype from Scalar::Util [CPAN] for the first case:

  use Scalar::Util 'reftype';

  $yes = reftype( $h ) eq "HASH";

そして２番目のケースについてはメソッド形式の isa を使うように してください. and the method form of isa for the second:

  $yes = Foo->isa("Bar");

和訳 TRANSALTE TO JAPANESE

 山科 氷魚 (YAMASHINA Hio) <hio@hio.jp>

原典: perl VERSION 5.9.4. 翻訳日: 2007-03-19. Origlnal distribution is perl VERSION 5.9.4. Translated at 2007-03-19.

索引 INDEX