如何找到我对Perl的类型的对象？

my $class1 = blessed( $obj );
my $class2 = ref $obj;

但是ref也会返回’HASH’为无耻的哈希，而祝福拒绝玩这个游戏。

至于方法列表，对于perl对象的祝福指针样式，很容易自己编写代码。下面的代码对我来说很好。它返回映射到定义它们的包的函数名(带有给定名称的“CODE slot”的函数)。

sub class_methods { 
    use Class::ISA;
    my $obj = shift;
    return unless ref( $obj );
    my %meth_names;
    foreach my $anc ( Class::ISA::self_and_super_path( ref $obj ),'UNIVERSAL' ) {
        my $stash = %{"$anc::"};
        my @funcs 
            = grep { m/^[_p{Alpha}]/                # begins with _ or alpha
                   && !exists $meth_names{$_}        # no clobbering
                   &&  defined *{$stash->{$_}}{CODE} # has a filled CODE slot
                   } keys %$stash
            ;
        # assign to the "hash slice",keyed by all the entries in @funcs
        # the value of $anc repeated as many times as elements in @funcs.
        @meth_names{@funcs} = ( $anc ) x @funcs;
    }
    return %meth_names;
}

>这将适用于合理复杂的对象，但如果拥有包包含大量生成的代码，知道哪些包的生成器卡住了代码指针不是有帮助的。这将意味着更多的找到什么包生成代码。
>在这种情况下，你可能得到代码运行你的代码，包括Data::Dumper和设置$ Data :: Dumper :: Deparse为1，像这样：(local $ Data :: Dumper :: Deparse = 1;)和然后转储代码指针，像这样：say Dumper($ code_ref);
>它不适用于尚未由任何AUTOLOAD方法创建的有效方法。如果你看到那些在列表中，对象可能做更多，但它的所有它，你不知道。
>包含“基类”UNIVERSAL，因为该类包含对象可用的行为。

祝你好运。