Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Storable alternatives

by vsespb (Chaplain)
on May 17, 2013 at 13:06 UTC ( #1033969=note: print w/replies, xml ) Need Help??


in reply to 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)

Replies are listed 'Best First'.
Re^2: Storable alternatives
by salva (Abbot) 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.

      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
        Oh, but then, I would have to traverse and clone the data structure myself, something that is far for easier in the general case.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1033969]
help
Chatterbox?
and the monastery is silent...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (11)
As of 2016-12-07 20:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (131 votes). Check out past polls.