[関数の使い方･書式]

○ ＝ caller [☆]

☆：	(数値を返す)式。省略可。
○ 引数有りの場合､下記のリスト値が返されます。 (引数の値文戻ったスタックフレームの情報)
1：	パッケージ	････	呼び出しもとのパッケージ。
2：	ファイル名	････	呼び出し元のファイル名。
3：	行	････	呼び出しもとの行番号。
4：	サブルーチン	････	呼び出したサブルーチン。
5：	引数の有無	････	引数がある場合１、無い場合０。
6：	リストの要望	････	リストコンテキストで呼び出された場合は１、 スカラーコンテキストの場合は０。
○ 引数無しの場合､下記のリスト値が返されます。 (現在のスタックフレームの情報)
1：	パッケージ	････	呼び出し元のパッケージ。
2：	ファイル名	････	呼び出し元のファイル名。
3：	行	････	呼び出し元の行番号。
○ サブルーチンとして呼び出されている場合､ または require や eval にインクルードされている場合は真(呼び出しもとのパッケージ名)､送でなければ偽。

---

[関数の機能]

現在のサブルーチンの呼び出しスタックの関連情報を返します。 DBパッケージから呼び出された場合､スタックフレームに渡された引数のリストを＠DB::args にセットします。

---

[書式の例]

($package, $file, $line) = caller;

現在のスタックフレームの情報を変数に取得します。

● サンプルタイトル

$i = 0;
while (($package, $file, $line, $sub, $arg, $array) =
	caller($i++)) {
	print "\$i=", $i, " -> ";
	print join(':', $package, $file, $line, $sub, $args, $array), "\n";
}