Re: Is reference blessed?


go ahead... be a heretic
	PerlMonks

Re: Is reference blessed?

by brycen (Monk)

on Mar 26, 2010 at 02:23 UTC ( [id://831017]=note: print w/replies, xml )

Need Help??

in reply to Is reference blessed?

Answering the 2nd half of the question, nine years late:

    # We want the true type of blessed objects like XML::DOM::Document
    my $true_type;
    if(ref($value)) {
        $true_type = scalar($value);
        $true_type =~ s/.*=(\w*).*/$1/;
        }
    print ref($value)," is really an $true_type\n";
[download]

XML::DOM::Document is really an ARRAY
[download]

That's ugly. It takes the scalar value of the reference, which just happens to show both the blessed type and the native type. But it works.

Comment on Re: Is reference blessed? Select or Download Code

Replies are listed 'Best First'.

Re^2: Is reference blessed?
by ikegami (Patriarch) on Mar 26, 2010 at 04:26 UTC

No, that doesn't work.

{
    package Foo;
    use overload '""' => sub { 'Bar' };
    sub new { bless({}, shift) }
}

{
    my $value = Foo->new;

    # We want the true type of blessed objects like XML::DOM::Document
    my $true_type;
    if(ref($value)) {
        $true_type = scalar($value);
        $true_type =~ s/.*=(\w*).*/$1/;
        }
    print ref($value)," is really an $true_type\n";
}
[download]