Select Code to Download

$self->log(LOGDEBUG, 'EDIT_USER: '. Dumper(
    { 
...
    }
  )
);

sub param {
 ...
    return unless exists ...
    return ...;
}

Perl> sub x{ return };;

...
Perl> print "@b";;
Use of uninitialized value in join or string at (eval 13) line 1
1 2 a  5 6