… | |
… | |
11 | $self->{random} = cf::from_json $data; |
11 | $self->{random} = cf::from_json $data; |
12 | $self->{random}{custom} ||= "$self->{random}{origin_map}+$self->{random}{origin_x}+$self->{random}{origin_y}"; |
12 | $self->{random}{custom} ||= "$self->{random}{origin_map}+$self->{random}{origin_x}+$self->{random}{origin_y}"; |
13 | } |
13 | } |
14 | |
14 | |
15 | 1 |
15 | 1 |
|
|
16 | } |
|
|
17 | |
|
|
18 | sub thawer_merge { |
|
|
19 | # we have to keep some variables in memory intact |
|
|
20 | local $_[0]{random_id}; |
|
|
21 | local $_[0]{random}; |
|
|
22 | |
|
|
23 | $_[0]->SUPER::thawer_merge ($_[1]); |
16 | } |
24 | } |
17 | |
25 | |
18 | sub visible_name { |
26 | sub visible_name { |
19 | my ($self) = @_; |
27 | my ($self) = @_; |
20 | |
28 | |