名前¶

version::Internal - バージョンオブジェクトのための Perl エクステンション

説明¶

最近の全てのバージョンの Perl 用のオーバーロードされた バージョンオブジェクト。 これは version.pm の内部データ表現と内在するコードについて文書化しています。 普段の使用については version.pod を参照してください。 この文書は version.pm のサブクラスを書いたり内部の詳細に関心のある人にのみ 有用です。

バージョンって何?¶

このモジュールの用途のため、バージョン「番号」は、1つ以上の小数点と 省略可能な 一つのアンダースコアによって区切られる正の整数値とします。 これは Perl 自身がバージョンを表すのに使用するものに対応し、また ラクダ本の各版で論じられた「数字としてのバージョン」を拡張します。

実際にはバージョンオブジェクトには 2 種類あります。

• Decimal Versions

  (10 進数バージョン)

  Any version which "looks like a number", see "Decimal Versions". This also includes versions with a single decimal point and a single embedded underscore, see "Decimal Alpha Versions", even though these must be quoted to preserve the underscore formatting.

  「数字のように見える」任意のバージョンについては、"Decimal Versions" を 参照してください。 これは小数点一つや途中にアンダースコア一つを持つバージョンも含みます ("Decimal Alpha Versions" を参照) が、アンダースコアの書式を 保持するにはクォートされなければなりません。

• Dotted-Decimal Versions

  (ドット付き 10 進数バージョン)

  Also referred to as "Dotted-Integer", these contains more than one decimal point and may have an optional embedded underscore, see "Dotted-Decimal Versions". This is what is commonly used in most open source software as the "external" version (the one used as part of the tag or tarfile name). A leading 'v' character is now required and will warn if it missing.

  また「ドット付き整数」とも呼ばれるもので、2 つ以上の小数点と任意の途中の アンダースコア一つを持つものです; "Dotted-Decimal Versions" を参照。 これはほとんどのオープンソースソフトウェアで「外部用」バージョン (タグや tar ファイル名の一部分として使われるもの) として一般的に 使われているものです。 エクスポートされた qv() 関数を使用すると、この種のバージョン オブジェクトが生成されます。 先頭の 'v' 文字は今では必須であり、なければ警告されます。

これらのメソッド両方が同様のバージョンオブジェクトを生成します; なぜなら、必要なときにのみデフォルトの文字列化はバージョンの "Normal Form" を生み出すからです:

  $v  = version->new(1.002);     # 1.002, but compares like 1.2.0
  $v  = version->new(1.002003);  # 1.002003
  $v2 = version->new("v1.2.3");  # v1.2.3

特に、"Decimal Versions" として初期化されたバージョン番号は 最初に作られた時のもの (つまり、new() に渡されたのと同じ文字列) で 文字列化します。 "Dotted-Decimal Versions" として初期化されたバージョン番号は "Normal Form" として文字列化されます。

10 進数バージョン¶

これらは 5.6.0 より前の Perl 自身の歴史上のバージョンや、$VERSION スカラ用の ラクダルールを踏襲する他のモジュール全てに対応します。 10 進数バージョンは浮動小数点のように見えるもので初期化されます。 先頭の 0 は 有効で 末尾の 0 は暗黙に仮定されるので、3 点の 最小値は下位バージョン間で保持されます。 これが意味するのは、3 桁より少ない桁数の下位バージョン (小数点より 右の数字) は全て末尾への0の追加によって補われますが、しかしそれは他の バージョンオブジェクトとの比較のためだけです。 例えば:

                                   # Prints     Equivalent to  
  $v = version->new(      1.2);    # 1.2        v1.200.0
  $v = version->new(     1.02);    # 1.02       v1.20.0
  $v = version->new(    1.002);    # 1.002      v1.2.0
  $v = version->new(   1.0023);    # 1.0023     v1.2.300
  $v = version->new(  1.00203);    # 1.00203    v1.2.30
  $v = version->new( 1.002003);    # 1.002003   v1.2.3

入力値がクォートされているかに関わらず、先行例は全て真となります。 重要な特徴として、入力値が一つの小数点を持つことがあります。 扱う方法は "Alpha Versions" も参照してください。

重要な注意: 上述したように、10 進数バージョンで小数点の後に 3 桁を超える 有効数字がある場合、3 桁毎に分割されるので、1.0003 は v1.0.300 と等価です; Perl 自身の 5.005_03 == 5.5.30 の解釈と互換性を維持するためです。 数値比較のために末尾の 0 は無視されます。

ドット付き 10 進数バージョン¶

これらは最も新しい形式のバージョンで、5.6.0 から始まる Perl 自身の バージョン形式に対応します。 Perl 5.10.0 からは、またほぼ確実に Perl 6 でも、これが 好まれる形式になりそうです。 このメソッドは通常入力引数がクォートされている必要があり、 また 5.8.1 以降の Perl では v-文字列 をクォートの特別形式として 使用することができますが、これは強く非推奨です。

"Decimal Versions" と違って、ドット付き 10 進数バージョンは 2 つ以上の 小数点を持ちます。 例えば:

                                   # Prints
  $v = version->new( "v1.200");    # v1.200.0
  $v = version->new("v1.20.0");    # v1.20.0
  $v = qv("v1.2.3");               # v1.2.3
  $v = qv("1.2.3");                # v1.2.3
  $v = qv("1.20");                 # v1.20.0

一般的に、ドット付き 10 進数バージョンは最も高い自由度でバージョンを 指定でき、その一方で 10 進数バージョンは一定の統一性を強制します。 バージョンオブジェクトのもう一つの補助的な初期化メソッドについては "New Operator" も参照してください。

"Decimal Versions" と全く同様に、ドット付き 10 進数バージョンは "Alpha Versions" として使用することができます。

10 進数 αバージョン¶

かつて 10 進数バージョンが必ずクォートされていなければならなかったのは、 アルファ形式が他の 10 進数バージョン (すなわち小数点が一つ) と一緒に 使われていたときです。 これはよく CPAN リリースに使われており、そこで CPAN や CPANPLUS は自動アップデートのためにアルファバージョンを無視します。 非アルファリリースに小数の有効桁数を2としていた開発者がいたため、 バージョンオブジェクトは初期化子がクォートされていれば自動的に それを考慮します。 例えば、Module::Example が以下の $VERSION 系列で CPAN に リリースされたとします:

  # $VERSION    Stringified
  0.01          0.01
  0.02          0.02
  0.02_01       0.02_01
  0.02_02       0.02_02
  0.03          0.03
  etc.

10 進数バージョンの文字列化形式は、常にバージョンオブジェクトの初期化に 使われるのと同じ文字列です。

高レベルデザイン¶

バージョンオブジェクト¶

version.pm provides an overloaded version object that is designed to both encapsulate the author's intended $VERSION assignment as well as make it completely natural to use those objects as if they were numbers (e.g. for comparisons). To do this, a version object contains both the original representation as typed by the author, as well as a parsed representation to ease comparisons. Version objects employ overload methods to simplify code that needs to compare, print, etc the objects.

The internal structure of version objects is a blessed hash with several components:

    bless( {
      'original' => 'v1.2.3_4',
      'alpha' => 1,
      'qv' => 1,
      'version' => [
        1,
        2,
        3,
        4
      ]
    }, 'version' );

original

A faithful representation of the value used to initialize this version object. The only time this will not be precisely the same characters that exist in the source file is if a short dotted-decimal version like v1.2 was used (in which case it will contain 'v1.2'). This form is STRONGLY discouraged, in that it will confuse you and your users.

qv

A boolean that denotes whether this is a decimal or dotted-decimal version. See is_qv.

alpha

A boolean that denotes whether this is an alpha version. NOTE: that the underscore can can only appear in the last position. See is_alpha.

version

An array of non-negative integers that is used for comparison purposes with other version objects.

代替 UNIVERSAL::VERSION¶

バージョンオブジェクトに加えて、このモジュールは比較のためにコアの UNIVERSAL::VERSION 関数をバージョンオブジェクトを使うものに 置き換えることも行います。 この演算子から返されるものは常に単純なスカラとして文字列化された形式ですが、 生成された警告メッセージは、どのように呼び出されたかに依存して、 文字列化形式か Normal Form のどちらかになります。

例えば:

  package Foo;
  $VERSION = 1.2;

  package Bar;
  $VERSION = "v1.3.5"; # works with all Perl's (since it is quoted)

  package main;
  use version;

  print $Foo::VERSION; # prints 1.2

  print $Bar::VERSION; # prints 1.003005

  eval "use foo 10";
  print $@; # prints "foo version 10 required..."
  eval "use foo 1.3.5; # work in Perl 5.6.1 or better
  print $@; # prints "foo version 1.3.5 required..."

  eval "use bar 1.3.6";
  print $@; # prints "bar version 1.3.6 required..."
  eval "use bar 1.004"; # note Decimal version
  print $@; # prints "bar version 1.004 required..."

重要な注意: (与えられたモジュールが利用可能かどうかを決定するために) 特定の文字列を検索するためのコードは変更が必要かもしれないことを 意味します。 手動で class-VERSION> を使ってから自分で比較を行うより、 use や require で暗黙に使われる組み込みの比較を使う方が 常に優れています。

UNIVERSAL::VERSION の代替物は、以下のように関数として使われた際:

  print $module->VERSION;

これも文字列化形式のみを返します。 更なる詳細については Stringification を参照してください。

使い方の質問¶

version.pm を使うモジュールの使い方¶

可能な限り、version.pm モジュールは既存の全てのコードとの互換性を保ちます。 ただし、もしあなたのモジュールがバージョンクラスを用いて $VERSION を 定義するモジュールを使用している場合、知っておくべきことがいくつか あります。 議論のため、以下のモジュールがインストールされていることを仮定します:

  package Example;
  use version;  $VERSION = qv('1.2.2');
  ...module code here...
  1;

Decimal versions always work

(10 進数バージョンは常に動作する)

Code of the form:

以下の形式のコード:

  use Example 1.002003;

will always work correctly. The use will perform an automatic $VERSION comparison using the floating point number given as the first term after the module name (e.g. above 1.002.003). In this case, the installed module is too old for the requested line, so you would see an error like:

は常に正しく動作します。 use はモジュール名の次の項として与えられる 浮動小数点 (例:上述の 1.002.003) を使って自動的に $VERSION の比較を 行います。 この例では、インストールされているモジュールは要求されたコードに 対して古すぎるので、次のようなエラーが表示されるでしょう:

  Example version 1.002003 (v1.2.3) required--this is only version 1.002002 (v1.2.2)...

Dotted-Decimal version work sometimes

(ドット付き 10 進数バージョンは時々動作する)

With Perl >= 5.6.2, you can also use a line like this:

Perl >= 5.6.2 では、次のようなコードを使うこともできます:

  use Example 1.2.3;

and it will again work (i.e. give the error message as above), even with releases of Perl which do not normally support v-strings (see "What about v-strings" below). This has to do with that fact that use only checks to see if the second term looks like a number and passes that to the replacement UNIVERSAL::VERSION. This is not true in Perl 5.005_04, however, so you are strongly encouraged to always use a Decimal version in your code, even for those versions of Perl which support the Dotted-Decimal version.

そしてこれも、たとえ通常は v-文字列 (下記の "What about v-strings" を参照) を サポートしていないバージョンの Perl であっても、正常に動作するでしょう (すなわち、上述のエラーメッセージが表示されます)。 この場合、use は 2 番目の項が 数字のように見える かどうかをチェックし、 それを Replacement UNIVERSAL::VERSIONに渡すだけだという事実が 関わってきます。 しかし、このことは Perl 5.005_04 では正しくなく、そのために ドット付き 10 進数バージョンをサポートする Perl のバージョンにおいてさえも、 コード中では常に 10 進数バージョンを使うことが 強く推奨 されます。

オブジェクトメソッド¶

バージョンオブジェクトの利用にとって自然なインタフェースを提供するために、 オーバーロードが使われてきました。 数学的な演算は全て、ベースのバージョンオブジェクトに対して意味を 成さないので、禁止されています。 その結果、オーバーロードされた数値化は存在せず利用できません。 もし何らかの理由でバージョンオブジェクトを 10 進数コンテキストで使用したい 場合は、オブジェクトメソッドの numify を参照してください。

• New Operator

  (new 演算子)

  Like all OO interfaces, the new() operator is used to initialize version objects. One way to increment versions when programming is to use the CVS variable $Revision, which is automatically incremented by CVS every time the file is committed to the repository.

  全ての OO インタフェースと同様に、new() 演算子はバージョンオブジェクトを 初期化するために使われます。 プログラミング時にバージョンをインクリメントするための方法の一つは CVS 変数の $Revision を使うことです。 $Revision はファイルがリポジトリにコミットされた際に毎回 CVS によって 自動的にインクリメントされます。

  In order to facilitate this feature, the following code can be employed:

  この機能を容易に行うために、以下のコードが利用できます:

    $VERSION = version->new(qw$Revision$);

  and the version object will be created as if the following code were used:

  これにより、以下のコードが使われたかのようにバージョンオブジェクトが 作成されます:

    $VERSION = version->new("v2.7");

  In other words, the version will be automatically parsed out of the string, and it will be quoted to preserve the meaning CVS normally carries for versions. The CVS $Revision$ increments differently from Decimal versions (i.e. 1.10 follows 1.9), so it must be handled as if it were a "Dotted-Decimal Version".

  言い換えると、構文解析により文字列からバージョンが自動的に取り出され、 CVS が通常バージョンで伝える意味を保つためにそれがクォートされます。 CVS の $Revision$ は 10 進数バージョンとは異なった方法でインクリメントされる (すなわち 1.9 の後に 1.10 が続く) ので、それが "Dotted-Decimal Versions" で あるかのように扱わなければなりません。

  A new version object can be created as a copy of an existing version object, either as a class method:

  新しいバージョンオブジェクトは既存のバージョンオブジェクトのコピーとして 作成可能で、クラスメソッドとして作成する:

    $v1 = version->new(12.3);
    $v2 = version->new($v1);

  or as an object method:

  ことも、あるいはオブジェクトメソッドとして作成する:

    $v1 = version->new(12.3);
    $v2 = $v1->new(12.3);

  and in each case, $v1 and $v2 will be identical. NOTE: if you create a new object using an existing object like this:

  こともでき、それぞれの例において、$v1 と $v2 は同一です。 注意: もし新しいオブジェクトを次のように既存のオブジェクトを使って 作成する場合:

    $v2 = $v1->new();

  the new object will not be a clone of the existing object. In the example case, $v2 will be an empty object of the same type as $v1.

  新しいオブジェクトは既存のオブジェクトのクローンには なりません。 この例では、$v2 は $v1 と同じ種類の空のオブジェクトになります。

• qv()

  An alternate way to create a new version object is through the exported qv() sub. This is not strictly like other q? operators (like qq, qw), in that the only delimiters supported are parentheses (or spaces). It is the best way to initialize a short version without triggering the floating point interpretation. For example:

  新しいバージョンオブジェクトを作成する別の方法に、エクスポートされた qv() 関数を使う方法があります。 これは、利用可能なデリミタが丸カッコ (またはスペース) のみであるという点で、 厳密には他の q? 演算子 (qq, qw など) とは似ていません。 これは、小数点解釈を引き起こすことなしに短いバージョンを初期化するための 最良の方法です。 例えば:

    $v1 = qv(1.2);         # v1.2.0
    $v2 = qv("1.2");       # also v1.2.0

  As you can see, either a bare number or a quoted string can usually be used interchangably, except in the case of a trailing zero, which must be quoted to be converted properly. For this reason, it is strongly recommended that all initializers to qv() be quoted strings instead of bare numbers.

  ご覧の通り、裸の数値またはクォートされた文字列は通常交換して 使用できます。 ただし、末尾に 0 があるケースは、正しく変換するためにクォートされる必要が あるので例外です。 この理由のため、qv() への全ての初期化子は裸の数値のかわりに クォートされた文字列とすることが強く推奨されます。

  To prevent the qv() function from being exported to the caller's namespace, either use version with a null parameter:

  qv() 関数が呼び出し側の名前空間にエクスポートされるのを防ぐために、空の 引数で use version を呼び出すか:

    use version ();

  or just require version, like this:

  あるいは単に require version を行うか:

    require version;

  Both methods will prevent the import() method from firing and exporting the qv() sub. This is true of subclasses of version as well, see SUBCLASSING for details.

  のいずれかを行ってください。 両方のメソッドとも import() メソッドが起動して qv() サブルーチンを エクスポートするのを防ぎます。 このことは version のサブクラスでも同じように成り立ちます。 詳しくは SUBCLASSING を参照してください。

以降の例では、以下の 3 つのオブジェクトが使われます:

  $ver   = version->new("1.2.3.4"); # see "Quoting" below
  $alpha = version->new("1.2.3_4"); # see "Alpha versions" below
  $nver  = version->new(1.002);     # see "Decimal Versions" above

• Normal Form

  (正規形式)

  For any version object which is initialized with multiple decimal places (either quoted or if possible v-string), or initialized using the qv() operator, the stringified representation is returned in a normalized or reduced form (no extraneous zeros), and with a leading 'v':

  複数の小数点 (クォートされたものか可能であればv-文字列) を用いて、 もしくは qv() 演算子を用いて初期化されたバージョンオブジェクトのために、 文字列化された表現形式が正規化もしくは縮小された形式 (余分なゼロを削除) で、 先頭に 'v' が付いて返されます:

    print $ver->normal;         # prints as v1.2.3.4
    print $ver->stringify;      # ditto
    print $ver;                 # ditto
    print $nver->normal;        # prints as v1.2.0
    print $nver->stringify;     # prints as 1.002, see "Stringification" 

  In order to preserve the meaning of the processed version, the normalized representation will always contain at least three sub terms. In other words, the following is guaranteed to always be true:

  処理されたバージョンの意味を保つために、正規化された表現形式は必ず最低 3 つの下位項を持たなければなりません。 言い換えると、以下のコードは常に真となることが保証されます:

    my $newver = version->new($ver->stringify);
    if ($newver eq $ver ) # always true
      {...}

• Numification

  (数値化)

  Although all mathematical operations on version objects are forbidden by default, it is possible to retrieve a number which corresponds to the version object through the use of the $obj->numify method. For formatting purposes, when displaying a number which corresponds a version object, all sub versions are assumed to have three decimal places. So for example:

  バージョンオブジェクトに対する数学的な演算はデフォルトでは全て 禁止されていますが、$obj->numify メソッドを使うことでそのバージョン オブジェクトに対応した数値を取り出すことが可能です。 フォーマッティングのために、バージョンオブジェクトに対応する数値を 表示する際には、下位バージョンは全て 3 桁あると仮定されます。 従って、例を挙げると以下のようになります:

    print $ver->numify;         # prints 1.002003004
    print $nver->numify;        # prints 1.002

  Unlike the stringification operator, there is never any need to append trailing zeros to preserve the correct version value.

  文字列化演算子と違って、正しいバージョン値を保持するために末尾のゼロを 追加する必要は全くありません。

• Stringification

  (文字列化)

  The default stringification for version objects returns exactly the same string as was used to create it, whether you used new() or qv(), with one exception. The sole exception is if the object was created using qv() and the initializer did not have two decimal places or a leading 'v' (both optional), then the stringified form will have a leading 'v' prepended, in order to support round-trip processing.

  バージョンオブジェクトの文字列化のデフォルトは、 new() によるか qv() によるかに関わらず、 オブジェクトを作成したのと全く同じ文字列となりますが、ひとつの例外が あります。 唯一の例外は、オブジェクトが qv() を使って作成され、 初期化子が 2 つの十進数がなかったり、先頭の 'v' がない場合 (これらは両方ともオプションです)、循環処理に対応するために、 文字列化形式は先頭に 'v' がつきます。

  For example:

  例えば:

    Initialized as          Stringifies to
    ==============          ==============
    version->new("1.2")       1.2
    version->new("v1.2")     v1.2
    qv("1.2.3")               1.2.3
    qv("v1.3.5")             v1.3.5
    qv("1.2")                v1.2   ### exceptional case 

  See also UNIVERSAL::VERSION, as this also returns the stringified form when used as a class method.

  UNIVERSAL::VERSION も参照してください; これも、クラスメソッドとして 使われたときには文字列化形式を返します。

  IMPORTANT NOTE: There is one exceptional cases shown in the above table where the "initializer" is not stringwise equivalent to the stringified representation. If you use the qv() operator on a version without a leading 'v' and with only a single decimal place, the stringified output will have a leading 'v', to preserve the sense. See the qv() operator for more details.

  重要な注意: 上述の表には「初期化子」が文字列化表現と文字列的に等価でない 一つの例外があります。 先頭の 'v' なし かつ 小数点一つだけのバージョンで qv() 演算子を 使うと、文字列化出力は意味を保存するために先頭に 'v' が付きます。 さらなる詳細については qv() 演算子を参照してください。

  IMPORTANT NOTE 2: Attempting to bypass the normal stringification rules by manually applying numify() and normal() will sometimes yield surprising results:

  重要な注意 2: 手動で numify() と normal() を適用することで通常の 文字列化規則を回避しようとすると、時々驚くべき結果になります:

    print version->new(version->new("v1.0")->numify)->normal; # v1.0.0

  The reason for this is that the numify() operator will turn "v1.0" into the equivalent string "1.000000". Forcing the outer version object to normal() form will display the mathematically equivalent "v1.0.0".

  この理由は、numify() 演算子は "v1.0" を等価な文字列 "1.000000" に 変えるからです。 外側のバージョンオブジェクトの normal() 形式への矯正は数値的に等価な "v1.0.0" が表示されます。

  As the example in new() shows, you can always create a copy of an existing version object with the same value by the very compact:

  new() の例が示しているように、いつでも既に存在するバージョン オブジェクトと同じ値でとても小さなコピーを作ることができます:

    $v2 = $v1->new($v1);

  and be assured that both $v1 and $v2 will be completely equivalent, down to the same internal representation as well as stringification.

  そして $v1 と $v2 は内部表現から文字列化に至るまで完全に等価です。

• Comparison operators

  (比較演算子)

  Both cmp and <=> operators perform the same comparison between terms (upgrading to a version object automatically). Perl automatically generates all of the other comparison operators based on those two. In addition to the obvious equalities listed below, appending a single trailing 0 term does not change the value of a version for comparison purposes. In other words "v1.2" and "1.2.0" will compare as identical.

  cmp と <=> は両方とも同じ比較を項間で行います (自動的に バージョンオブジェクトにアップグレードします)。 それら 2 つに基づいて、Perl は他の比較演算子を全て自動的に生成します。 以下に挙げられている明らかな等値性に加えて、末尾に 0 の項を一つ追加しても 比較用のバージョン値は変化しません。 言い換えると、"v1.2" と"1.2.0" の比較は同一と見なされます。

  For example, the following relations hold:

  例えば、以下の関係が維持されます:

    As Number        As String           Truth Value
    -------------    ----------------    -----------
    $ver >  1.0      $ver gt "1.0"       true
    $ver <  2.5      $ver lt             true
    $ver != 1.3      $ver ne "1.3"       true
    $ver == 1.2      $ver eq "1.2"       false
    $ver == 1.2.3.4  $ver eq "1.2.3.4"   see discussion below

  It is probably best to chose either the Decimal notation or the string notation and stick with it, to reduce confusion. Perl6 version objects may only support Decimal comparisons. See also Quoting.

  10 進数記法か文字列記法のどちらかを選んでそれを使い続けることが、混乱を 避けるためにはおそらくベストでしょう。 Perl6 のバージョンオブジェクトは 10 進数比較のみを サポートする かもしれません。 Quoting も参照してください。

  WARNING: Comparing version with unequal numbers of decimal points (whether explicitly or implicitly initialized), may yield unexpected results at first glance. For example, the following inequalities hold:

  警告:(初期化が明示的か暗黙的かに関わらず) 小数点の数が異なるバージョンの 比較は一見すると期待しない結果を生み出すかもしれません。 例えば、以下の非等値性が成り立ちます:

    version->new(0.96)     > version->new(0.95); # 0.960.0 > 0.950.0
    version->new("0.96.1") < version->new(0.95); # 0.096.1 < 0.950.0

  For this reason, it is best to use either exclusively "Decimal Versions" or "Dotted-Decimal Versions" with multiple decimal points.

  この理由のため、"Decimal Versions" か "Dotted-Decimal Versions" のどちらかを 排他的に、かつ複数の小数点を付けて使うことがベストです。

• Logical Operators

  If you need to test whether a version object has been initialized, you can simply test it directly:

  もしバージョンオブジェクトが初期化されているかどうかを確かめたければ、 簡単に直接テストできます:

    $vobj = version->new($something);
    if ( $vobj )   # true only if $something was non-blank

  You can also test whether a version object is an "Alpha version", for example to prevent the use of some feature not present in the main release:

  また、例えばメインリリースでは提供されない機能の使用を防ぐといった 目的のために、バージョンオブジェクトが "Alpha Versions" であるかどうかを 確かめるには以下のようにします:

    $vobj = version->new("1.2_3"); # MUST QUOTE
    ...later...
    if ( $vobj->is_alpha )       # True

クォート¶

Perl がパースとトークン化を行うプログラムの仕組みのため、意図した バージョンに正しくパースするために、特に qv() 演算子を使用する際には、 特定の初期値は 必ず クォートしなければなりません。 全てのケースにおいて、version->new() に渡される浮動小数点数の値は、その値が クォートされていようとなかろうと同一に変換されます。 しかし、qv() では、クォートされていない入力で末尾のゼロが 抜け落ちてしまう場合にはそのようにならず、全く異なる バージョンオブジェクトが結果として返されます。

加えて、以前の Perl のバージョンスタイルと互換性を保つために、5.006001 と いう形式のバージョンを使用すると全て v5.6.1 のように変換されます。 言い換えると、小数点が 1 つのバージョンは、下位バージョン間には 3 桁の 数字が暗黙的に存在するようにパースされますが、その目的は内部比較のみです。

ややこしくしている要因は、裸の数値 (すなわちクォートされていないもの) では アンダースコアは正当な 10 進数用の文字であって、バージョンコードが 呼び出される前に Perl のトークナイザによって自動的に剥ぎ取られることです。 しかしながら、もし数値が 1 つ以上の小数を含んでいてアンダースコアが クォートされている場合、すなわち裸の数値ではない場合、 "Alpha Version" であると見なされてアンダースコアが有効になります。

もし浮動小数が求まる数式を使った場合、期待するバージョンを生み出せるか どうかは Perl の変換ルーチンに依存することになります。 例えば 10 の累乗で割ることは非常に安全ですが、他の演算はおそらく期待する 値にはならないでしょう。 例えば:

  $VERSION = version->new((qw$Revision: 1.4)[1]/10);
  print $VERSION;          # yields 0.14
  $V2 = version->new(100/9); # Integer overflow in decimal number
  print $V2;               # yields something like 11.111.111.100

Perl 5.8.1 以降はv-文字列を自動的にクォートできますが、それは以前の バージョンの Perl では不可能です。 言い換えれると:

  $version = version->new("v2.5.4");  # legal in all versions of Perl
  $newvers = version->new(v2.5.4);    # legal only in Perl >= 5.8.1

サブクラス化¶

このモジュールは簡単にサブクラス化ができるように明確に設計やテストがさ れています。 実際には、変更したいメソッドをオーバーライドするだけで OK ですが、 new() をオーバーライドする際には注意が必要です (パースが全て行われる 場所なので)。 例えば、これは完全に条件を満たしている派生クラスです:

  package myversion;
  use base version;
  sub new { 
      my($self,$n)=@_;
      my $obj;
      # perform any special input handling here
      $obj = $self->SUPER::new($n);
      # and/or add additional hash elements here
      return $obj;
  }

バージョン文字列の代替の表現形式については CPAN の version::AlphaBeta も 参照してください。

注意: qv 演算子は真のクラスメソッドではなく、むしろ呼び出し元の 名前空間にエクスポートされた関数で、version のサブクラスは、その サブクラスに代わって正しいマジックを実行する import() 関数を継承します。

エクスポート¶

qv - ドット付き 10 進数バージョン初期化演算子

作者¶

John Peacock <[email protected]>

SEE ALSO¶

perl.