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 |
- |
|
|