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