use strict;
use warnings;
...
my $dump_string = Dumper [
### Uncomment one or the other of these two lines.
# edit_usr_id => $self->client->param( 'edit_usr_id' ),
edit_usr_id => scalar( $self->client->param( 'edit_usr_id' ) ),
mode => $self->client->param( 'mode' )
];
$self->log(LOGDEBUG, 'EDIT_USER: '.$dump_string ));
####
EDIT_USER: $VAR1 = [
'edit_usr_id',
undef,
'mode',
'add',
];
##
##
EDIT_USER: $VAR1 = [
'edit_usr_id',
'mode',
'add',
];