|
Lines 265-271
sub store {
Link Here
|
| 265 |
my $info; |
265 |
my $info; |
| 266 |
my $from_storage = $self_from_storage->unblessed; |
266 |
my $from_storage = $self_from_storage->unblessed; |
| 267 |
my $from_object = $self->unblessed; |
267 |
my $from_object = $self->unblessed; |
| 268 |
my @skip_fields = (qw/lastseen/); |
268 |
my @skip_fields = (qw/lastseen updated_on/); |
| 269 |
for my $key ( keys %{$from_storage} ) { |
269 |
for my $key ( keys %{$from_storage} ) { |
| 270 |
next if any { /$key/ } @skip_fields; |
270 |
next if any { /$key/ } @skip_fields; |
| 271 |
if ( |
271 |
if ( |
| 272 |
- |
|
|