844. Re: package 名の取得方法Sender: eban777@gmail.com

  ねこ丸です。

WATANABE Hirofumi writes:

> refでいけます。以下はperldoc -f refより:
>
> If the referenced object has been blessed into a package, then that package
> name is returned instead.

  ひーさしぶりに一発解答キター（ぐるぐる回ってるAA）
  上の引用のあとに

> You can think of "ref" as a "typeof" operator.

  と書かれていますね。そのものズボリ。

# Test::Unit を使っているときに ref() ってなんだー？と思いながらスルー
# していたのがまずかった。（なぜ Test::Base じゃないんだというのは見逃
# してください。）

  ちなみに現在の package は caller() をリストコンテキストで評価し
た最初の値として取れますね。
  
  ( $package, $file, $line ) = caller

  ふーむなるほどな。ありがとうございます！

--  
    ねこ丸