- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- Perl/オブジェクト指向/パッケージ（オブジェクト）を調べる へ行く。
- 1 (2010-06-07 (月) 04:00:26)
- 2 (2010-06-07 (月) 04:00:55)
- 3 (2011-02-15 (火) 08:22:37)
パッケージ（オブジェクト）を調べる
パッケージにある全てのメソッドを調べる
シンボルテーブルをダンプする。
use DateTime; use Data::Dumper; print Dumper \%Data::Dumper::;
オブジェクトにメソッドがあるか調べる
use DateTime;
use UNIVERSAL qw/can/;
$dt = DateTime->now;
if (can($dt, 'year')) {
print "dt has 'year()'\n"
}
オブジェクトがパッケージを継承しているか調べる
use DateTime;
use UNIVERSAL qw/isa/;
$dt = DateTime->now;
if (isa($dt, 'DateTime')) {
print "dt isa 'DateTime'\n"
}
オブジェクトのメソッドがどのパッケージにあるのか調べる
use DateTime;
use UNIVERSAL::which;
$dt = DateTime->now;
print $dt->which('year') . "\n";
print $dt->which('which') . "\n";
継承しているクラスを調べる
パッケージ変数@ISAをダンプする。
use Foo::Bar;
use Data::Dumper;
print Dumper @{Foo::Bar::ISA};
