作者: ねこ丸
日時: 2007/8/29(16:36)
  ねこ丸です。

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

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

--  
    ねこ丸