名前

UNIVERSAL - 全てのクラス(ブレスされたリファレンス)の基底クラス

概要

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

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

    use UNIVERSAL qw( isa can VERSION );
    $yes = isa $ref, "HASH" ;
    $sub = can $ref, "fandango" ;
    $ver = VERSION $obj ;

説明

UNIVERSAL は全てのブレスされたリファレンスが継承する基底クラスです, perlobj [CPAN] も参照してください.

UNIVERSAL は以下のメソッドと関数を提供しています:

$obj->isa( TYPE )

CLASS->isa( TYPE )

isa( VAL, TYPE )

ここで

TYPE

はパッケージ名

$obj

はブレスされたリファレンスかパッケージ名を含んだ文字列

CLASS

はパッケージ名

VAL

上のいずれかかブレスされていないリファレンス

インスタンス若しくはクラスメソッド ($obj->isa( TYPE ))として 使うときは $obj がパッケージ TYPE 若しくはパッケージ TYPE の派生にブレスされているときに 真 を返します.

クラスメソッド (CLASS->isa( TYPE ): スタティックメソッドとして 参照されることもあります)として使う時は CLASS がパッケージ名 TYPE 若しくはパッケージ TYPE の派生から派生している(若しくは そのもの)の時に 真 を返します.

関数として使うとき, 例えば

   use UNIVERSAL qw( isa ) ;
   $yes = isa $h, "HASH";
   $yes = isa "Foo", "Bar";

若しくは

   require UNIVERSAL ;
   $yes = UNIVERSAL::isa $a, "ARRAY";

上のいずれかと同じケースでと VAL が "HASH", "ARRAY", 若しくは "Regexp" といった type 型の perl 変数へのブレスされていない リファレンスの時に 真 を返します.

$obj->can( METHOD )

CLASS->can( METHOD )

can( VAL, METHOD )

can はオブジェクト若しくはクラスが METHOD というメソッドを 持っているかを調べます. もし持っていれば関数リファレンスが返されます. もし持っていなければ undef が返されます. これには $obj, CLASS, 若しくは VAL で継承されている若しくはインポートされている メソッドが含まれます.

can はオブジェクトが AUTOLOAD を通してメソッドを提供可能かどうかは 知ることができません, そのため undef が返ってきてもオブジェクトが そのメソッド呼び出しを処理することができないとは限りません. これを 回避するにはモジュールの作者が AUTOLOAD を使って処理するメソッドに対して 前方宣言を使うことです(perlsub [CPAN]参照). そのような'ダミー'の関数は can はコードリファレンスを返しますが, それが呼び出された時には AUTOLOAD へとフォールスルーされます. もし適切な AUTOLOAD が提供されて いなければ, コードリファレンスの呼び出しはエラーになるでしょう.

can はクラス(スタティック)メソッド, オブジェクトメソッド, さらには関数として呼び出すこともできます.

関数として呼び出されたときには, VAL は METHOD というメソッドを 持っているブレスされたリファレンスかパッケージ名の時に can は 関数へのリファレンスを返します. VAL がブレスされたリファレンスで なかったり, METHOD というメソッドを持っていなかったときには undef が返されます.

VERSION ( [ REQUIRE ] )

VERISON はオブジェクトがブレスされているパッケージの変数 $VERSION の値を返します. もし REQUIRE が与えられていた 場合には比較をおコアってパッケージのバージョンが REQUIRE 以上でなかった場合には die します.

VERSION はクラス(スタティック)メソッド, オブジェクトメソッド, さらには関数として呼び出すこともできます.

エクスポート

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

もし３つの関数全て (isa, can, 及び VERISON)を インポートさせたいかもしれませんが, 通常はその必要はありません. Perl は魔法のようにこれらの関数を全てのオブジェクトでメソッドとして 動作させます. １つ例外は isa で, これはブレスされていない リファレンスに対して操作するときに関数として役に立ちます.

和訳

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

原典: perl VERSION 5.8.8. 翻訳日: 2007-03-18.

索引