Lines 192-197
sub store {
Link Here
|
192 |
} |
192 |
} |
193 |
|
193 |
|
194 |
$self->trim_whitespaces; |
194 |
$self->trim_whitespaces; |
|
|
195 |
$self->updated_on( dt_from_string ); |
195 |
|
196 |
|
196 |
unless ( $self->in_storage ) { #AddMember |
197 |
unless ( $self->in_storage ) { #AddMember |
197 |
|
198 |
|
Lines 261-267
sub store {
Link Here
|
261 |
my $info; |
262 |
my $info; |
262 |
my $from_storage = $self_from_storage->unblessed; |
263 |
my $from_storage = $self_from_storage->unblessed; |
263 |
my $from_object = $self->unblessed; |
264 |
my $from_object = $self->unblessed; |
264 |
my @skip_fields = (qw/lastseen/); |
265 |
my @skip_fields = (qw/lastseen updated_on/); |
265 |
for my $key ( keys %{$from_storage} ) { |
266 |
for my $key ( keys %{$from_storage} ) { |
266 |
next if any { /$key/ } @skip_fields; |
267 |
next if any { /$key/ } @skip_fields; |
267 |
if ( |
268 |
if ( |
268 |
- |
|
|