如何在perl中发现对象类型？

Question

场景:

• 有几个对象,从My::Module和Path::Class... 创建...
• 每个对象都可以返回一些字符串值来调用specific method
• 需要建立一个HashRef地方的values是字符串,

所以像(非常简短):

package Some;
sub filename { file('/tmp/xxx') }   #Path::Class the filename->stringify' returns the string value
sub myobj { My::Module->new(....) } #the myobj->stringvalue returns the string value
sub text { 'some text' }

sub data {
    my $strhr;
    $strhr->{$_} = $self->make_string $self->$_ for(qw(filename myobj text));
    return $strhr;
}

sub make_string {
    my($self, $val) = @_;
    return $val->stringify if( VAL_IS_PATH::CLASS_OBJ ); #need help here
    return $val->stringvalue if( VAL_IS_My::Obj_OBJ ); #and here
    return $val if( VAL_IS_SIMPLE_STRING ); #and here
    croak "unknown value";
}

在真实代码中filename,myobj使用Moose定义,如:

has 'myobj' => (isa => 'My::Module', builder => ... ...);

但deep-coercion在这种情况下,恕我直言制作一些Moose-ish 比制作​​一个简单的make_string过滤子更复杂.但是,我对任何推荐的解决方案都开放了......

所以,问题是 - 如何发现什么是对象$val,或者它是否简单Str.

编辑:

基于@David W.的评论我得到了下一个:

sub make_string {
    my($self, $val) = @_;
    my $vref = ref $val;   #for the "text"  returns the string itself
    return $val->stringify if( $vref =~ /^Path::Class/ ); #works
    return $val->stringvalue if( $vref =~ /^My::Module/ ); #works
    return $val if( VAL_IS_SIMPLE_STRING ); #returns the string itself, so how to check this???
    croak "unknown value";
}

Answer 1

使用该isa方法.它在UNIVERSAL包中定义(参见参考资料perldoc UNIVERSAL).所有Perl类都隐式继承自UNIVERSAL.

use Scalar::Util qw( blessed );

if (blessed($val) and $val->isa('Path::Class')) {
    print "It's a Path::Class object!\n";
}