Re: Getting back $object from eval(Dumper($object))


Just another Perl shrine
	PerlMonks

Re: Getting back $object from eval(Dumper($object))

by borisz (Canon)

on Jul 27, 2005 at 09:02 UTC ( [id://478517]=note: print w/replies, xml )

Need Help??

in reply to Getting back $object from eval(Dumper($object))

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;
eval Data::Dumper->Dump([$foo], [ qw /foo_dumped_evaled/ ]) ;
isa_ok($foo_dumped_evaled,'Foo'); #fails
print Dumper($foo);
[download]

Boris