Re: Storable alternatives

What's stopping you from using procedural programming?

sub my_serialize {
    my $obj = shift;
    if (check_some_condition($obj)) {
        return freeze replace($obj)
    }
    return freeze $obj; # serialize $obj as is
};

my $data = my_serialize($tree)
[download]

Comment on Re: Storable alternatives Download Code

Replies are listed 'Best First'.
Re^2: Storable alternatives by salva (Canon) on May 17, 2013 at 13:41 UTC
`$tree` may be an arbitrarily complex structure and I just want to replace some of the objects inside at serialization time. Your code can only be used to replace the top object.	[reply] [d/l]
Re^3: Storable alternatives by vsespb (Chaplain) on May 17, 2013 at 13:52 UTC
Your code can only be used to replace the top object. Not quite understand. replace() sub here _can_ replace just _some_ of the inner objects of $tree	[reply]
Re^4: Storable alternatives by salva (Canon) on May 17, 2013 at 13:55 UTC
Oh, but then, I would have to traverse and clone the data structure myself, something that is far for easier in the general case.	[reply]