* パッケージのメソッドを調べる [#p6e1d10b]
** パッケージにある全てのメソッドを調べる [#n85528ac]
シンボルテーブルをダンプする。
use DateTime;
use Data::Dumper;
print Dumper \%Data::Dumper::;
** オブジェクトにメソッドがあるか調べる [#t30fe9cf]
use DateTime;
use UNIVERSAL qw/can/;
$dt = DateTime->now;
if (can($dt, 'year')) {
print "dt has 'year()'\n"
}
** オブジェクトがパッケージを継承しているか調べる [#ad451a3a]
use DateTime;
use UNIVERSAL qw/isa/;
$dt = DateTime->now;
if (isa($dt, 'DateTime')) {
print "dt isa 'DateTime'\n"
}
** オブジェクトのメソッドがどのパッケージにあるのか調べる [#j1ecfa92]
use DateTime;
use UNIVERSAL::which;
$dt = DateTime->now;
print $dt->which('year') . "\n";
print $dt->which('which') . "\n";
