Um, yeah, use Data::Dumper, or Data::DumpXML see XML-ish Data::Dumper?, which won't work always, or use Storable or even FreezeThaw.

Whichever fits the bill for you.

update: I hope this clears things up.

As you see, your little bless trick won't work quite so well. Most of the time, Data::Dumper/Storable can handle such things properly, but not always.

You'd be better off storing a simple hash, from which you create a new object, like

#persistB.obj
$VAR1 = { foo => 'bar' };

my $object = do "persistB.obj";
$object = b->new($object);
[download]

When you bless something directly, you avoid all the stuff b::new does. By properly serializing your variables with one of the modules I mentioned above, you avoid this issue (there are other issues of course, but the docs for the modules above discuss them).

You'll also be wanting to reconsider the implications of

my $self = bless {}, ref($class)||$class;
[download]

See Re: perl oo for discussion about that.

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.