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