Lines 385-392
sub store {
Link Here
|
385 |
my @skip_fields = (qw/lastseen updated_on/); |
385 |
my @skip_fields = (qw/lastseen updated_on/); |
386 |
for my $key ( keys %{$from_storage} ) { |
386 |
for my $key ( keys %{$from_storage} ) { |
387 |
next if any { /$key/ } @skip_fields; |
387 |
next if any { /$key/ } @skip_fields; |
388 |
if ( ( $from_storage->{$key} || $from_object->{$key} ) |
388 |
my $storage_value = $from_storage->{$key} // q{}; |
389 |
&& ( $from_storage->{$key} ne $from_object->{$key} ) ) |
389 |
my $object_value = $from_object->{$key} // q{}; |
|
|
390 |
if ( ( $storage_value || $object_value ) |
391 |
&& ( $storage_value ne $object_value ) ) |
390 |
{ |
392 |
{ |
391 |
$info->{$key} = { |
393 |
$info->{$key} = { |
392 |
before => $from_storage->{$key}, |
394 |
before => $from_storage->{$key}, |
393 |
- |
|
|