How can I unbless an object in Perl?

perl oop bless
Eugene Yarmash picture Eugene Yarmash · Feb 24, 2010 · Viewed 17.5k times · Source

From perldoc -f bless:

bless REF,CLASSNAME

This function tells the thingy referenced by REF that it is now
an object in the CLASSNAME package.

Is there any way of obtaining an unblessed structure without unnecessary copying?

Answer

Sinan Ünür picture Sinan Ünür · Feb 24, 2010

Data::Structure::Util

unbless($ref)

Remove the blessing from any objects found within the passed data structure.

#!/usr/bin/perl

use strict; use warnings;

use Scalar::Util qw( refaddr );
use Data::Structure::Util qw( unbless );

my $x = bless { a => 1, b => 2 } => 'My';

printf "%s : %s\n", ref $x, refaddr $x;

unbless $x;

printf "%s : %s\n", ref $x, refaddr $x;

Output:

My : 237356
HASH : 237356

Related questions

Perl: How to deep copy a blessed object?

I'm looking to do a deep (at this point, shallow may suffice) copy of a blessed object. Foo Class package Foo; our $FOO = new Foo; # initial run sub new { my $class = shift; my $self = {}; bless $self, $class; return $self; } Main …

Read More
Object-Oriented Perl constructor syntax and named parameters

I'm a little confused about what is going on in Perl constructors. I found these two examples perldoc perlbot. package Foo; #In Perl, the constructor is just a subroutine called new. sub new { #I don't get what this line does …

Read More
Reference found where even-sized list expected in Perl - Possible pass-by-reference error?

I have a Perl class/module that I created to display Bible verses. In it there is a hash that stores several verses, with the key being the book/chapter/verse and the value being the text. This hash is …

Read More