|
Lines 3665-3671
sub _unblessed_for_log {
Link Here
|
| 3665 |
my $data = $self->unblessed; |
3665 |
my $data = $self->unblessed; |
| 3666 |
delete @{$data}{qw(password lastseen updated_on)}; |
3666 |
delete @{$data}{qw(password lastseen updated_on)}; |
| 3667 |
for my $key ( keys %$data ) { |
3667 |
for my $key ( keys %$data ) { |
| 3668 |
$data->{$key} = "$data->{$key}" if blessed( $data->{$key} ); |
3668 |
if ( defined $data->{$key} && $data->{$key} ne '' ) { |
|
|
3669 |
$data->{$key} = "$data->{$key}" if blessed( $data->{$key} ); |
| 3670 |
} else { |
| 3671 |
delete $data->{$key}; |
| 3672 |
} |
| 3669 |
} |
3673 |
} |
| 3670 |
return $data; |
3674 |
return $data; |
| 3671 |
} |
3675 |
} |
| 3672 |
- |
|
|