通常のサブルーチンとクラスメソッドの両方で動作するPerlサブルーチンを書くにはどうすればよいですか？

Question

私は本質的に静的な関数を書いています。クラス名に沿って渡すTemplate Toolkitにプラグインしたいと思っています。不可欠で、それは

ClassName->function($args..) 

をやっているが、私は両方のケースを処理するための適切な方法は何ですか？それは

sub function { 
} 

内

ClassName::function($args..) 

のような何かをしたいですか

Answer 1

一般にはありません。 subは、メソッドとして呼び出されるように記述されているか、そうでないと記述されています。

File::Spec::Functionsが、この状況をどのように処理するかは、引数名の前にパッケージ名を付けることで確認してください。

今、非常に具体的な、限定された場合は、あなたが行うことができます：あなたのサブの最初の行として

shift if $_[0] eq __PACKAGE__; 

をsubは、クラスメソッドとして呼び出された最初の引数を破棄します。

Answer 2

Template Toolkitは、OOを使用するためのプラグインを必要とするため、そのインタフェースを提供する方法はありません。機能的なインターフェースが必要な場合は、いくつかのオプションがあります。

Perlは関数とメソッドを区別しません。主な違いは、メソッドの呼び出し構文では、最初の引数としてオブジェクト参照（または呼び出された方法に応じてクラス名）が暗黙的に含まれている点です。関数呼び出しの構文を使用して、手動で指示対象を指定することができます。

ClassName::function('ClassName', @args); 

しかし、それは面倒です。より洗練されたソリューションは、2つのサブシステムに分割することです。例えば

package ClassName; 

sub function { 
    # do something 
} 

sub method { 
    my $class = shift; 
    function(@_); 
} 

この関数は、メソッドのラッパーでもあります。 Sinanが指摘しているように、File :: Specは、OOインターフェイスと機能インターフェイスの2つのモジュールを作成することでこれを行います。ここで

Answer 3

もSinan'sとAlan's答えを組み合わせた、より安全なバージョンであり、かつ：

• は、メソッドが派生オブジェクト
• から呼び出されている可能性がメソッド呼び出しとしてClassName::function("ClassName")を誤解しないだろうハンドル

コード：

if (@_ == $nArgsExpectedForThisFunc + 1) { 
    $_[0] eq __PACKAGE__ || UNIVERSAL::isa($_[0], __PACKAGE__) || die; 
    shift; 
} 

これには、期待する引数の数を知っている必要があります。そうでない場合、最初の引数は、メソッドとして呼び出されたときに送信される可能性のある許容値と区別できます（たとえば、最初の引数が配列参照でなければならない場合）。