How to get the class name from the reference to an object?

[Peng Yu]

Suppose I new an object. Is there a way to get the class name from the
reference to the object?

 

[sreservoir]

Suppose I new an object. Is there a way to get the class name from the
reference to the object?

perldoc -fref

 

[Jens Thoms Toerring]

Suppose I new an object. Is there a way to get the class name from the
reference to the object?

The ref() function should return the name of the package of the
object - I guess that's what you mean by "class name".

Regards, Jens

 

[Dr.Ruud]

Suppose I new an object. Is there a way to get the class name from the
reference to the object?

#!/usr/bin/perl -l

use Data:umper;

use Scalar::Util qw(
blessed
reftype
);

my $object = bless [], __PACKAGE__;

sub info { Dumper \@_ }

my $i;

print ++$i, ":\t", $_ for
$object->info(),
Dumper ( $object ),
ref ( $object ),
blessed( $object ),
reftype( $object ),
;

__END__

 

[chad]

The ref() function should return the name of the package of the
object - I guess that's what you mean by "class name".

Is there more than one defintion to "class name"?

Chad

 

[Jens Thoms Toerring]

Is there more than one defintion to "class name"?

Well, in Perl I'm more used to the term "package" (and ref()
returns the "package name" for blessed objects according to
the documentation) than "class" - thus I was not 100% sure
what the OP wanted...
Regards, Jens