tphyahoo has asked for the wisdom of the Perl Monks concerning the following question:
This is a followup to Can I serialize an object and have it remember it's type?. Eventually this has applications for serialization, but for now I just want to be able to dump an object and get it back using eval, which I was told I should be able to do. This is my code that doesn't work.
Output from perl dumperIntro.pl > output.txt 2>&1:use warnings; use strict; use Data::Dumper; use Test::More qw(no_plan); package Foo; sub new {bless {'a' => 1}, $_[0]}; package main; my $foo = Foo->new(); my $foo_dumped_evaled; $foo_dumped_evaled = eval(Dumper($foo)); isa_ok($foo_dumped_evaled,'Foo'); #fails $foo_dumped_evaled = eval{Dumper($foo)}; isa_ok($foo_dumped_evaled,'Foo'); #fails $foo_dumped_evaled = bless( { 'a' => 1 }, 'Foo' ); isa_ok($foo_dumped_evaled,'Foo'); #fails print Dumper($foo);
Any ideas? Thanks for your help!not ok 1 - The object isa Foo # Failed test (dumperIntro.pl at line 14) # The object isn't defined not ok 2 - The object isa Foo # Failed test (dumperIntro.pl at line 17) # The object isn't a reference ok 3 - The object isa Foo $VAR1 = bless( { 'a' => 1 }, 'Foo' ); 1..3 # Looks like you failed 2 tests of 3.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Getting back $object from eval(Dumper($object))
by broquaint (Abbot) on Jul 27, 2005 at 08:56 UTC | |
by tphyahoo (Vicar) on Jul 27, 2005 at 09:03 UTC | |
Re: Getting back $object from eval(Dumper($object))
by borisz (Canon) on Jul 27, 2005 at 09:02 UTC | |
Re: Getting back $object from eval(Dumper($object))
by revdiablo (Prior) on Jul 27, 2005 at 18:20 UTC |
Back to
Seekers of Perl Wisdom