perlquestion
ftumsh
Lo,
Given that:
<code>
$self->client->param( 'usr_id' ) returns 1
$self->client->param( 'edit_usr_id' ) returns undef, or something
$self->client->param( 'mode' ) returns 'add'
</code>
How come the below really screws up the hash:
<code>
$self->log(LOGDEBUG, 'EDIT_USER: '. Dumper(
{ state => 'db_user',
usr_id => $self->client->param( 'usr_id' ),
edit_usr_id => $self->client->param( 'edit_usr_id' ),
mode => $self->client->param( 'mode' )
}));
EDIT_USER: $VAR1 = {
'add' => undef,
'usr_id' => '1',
'edit_usr_id' => 'mode',
'state' => 'db_user'
};
</code>
And yet doing it this way is as expected:
<code>
my $a = $self->client->param( 'edit_usr_id' );
$self->log(LOGDEBUG, 'EDIT_USER: '. Dumper(
{ state => 'db_user',
usr_id => $self->client->param( 'usr_id' ),
edit_usr_id => $a,
mode => $self->client->param( 'mode' )
}));
EDIT_USER: $VAR1 = {
'usr_id' => '1',
'mode' => 'add',
'edit_usr_id' => undef,
'state' => 'db_user'
};
</code>