842. package 名の取得方法

  お久しぶりです。

  唐突ですが、Perl に現在の、あるいは指定したオブジェクトの
package 名を取得する方法ってあるのでしょうか？  要は

Ruby の Object#class
JavaScript の typeof あるいは instance of

  のようなものがあればいいのですが、

PHP の is_a( $obj, ClassName )

  のようなものでも構いません。
  いろいろ探してみたけど見つからないんですよねぇ。表示だけなら

print $object

  とすると

  PACKAGE=HASH()

  と表示されるし、

print Data::Dumper::Dumper( $object )

  とすると

  bless ( {}, PACKAGE )

という具合に package 名が表示されます。が、これを値として取得する
方法が分かりません。まさか print したものを捕まえ直して文字列処理
で取得するなんて方法が正解とも思えないし…。

  というわけです。どなたかご存じないでしょうか？

--
    ねこ丸