What is the "my $item = $currentDeal{other}{ $args-" means ?

[sofax222]

In the src/Network/Receive/ServerType0.pm file.
The subroutime : deal_add_other

What is the statement means:

Code: Select all

my $item = $currentDeal{other}{ $args->{nameID} } ||= {};

I can not figure out this statement ?
I never seen the syntax like this ?

Would you giive me some help of explain ?

[EternalHarvest]

If the double assignment confuses you, it's the same as:

Code: Select all

$currentDeal{other}{ $args->{nameID} } ||= {};
my $item = $currentDeal{other}{ $args->{nameID} };

[sofax222]

If the double assignment confuses you, it's the same as:

Code: Select all

$currentDeal{other}{ $args->{nameID} } ||= {};
my $item = $currentDeal{other}{ $args->{nameID} };

Not double assignment !

I can not figure out what is " ||= {};"

[EternalHarvest]

The same as with "a += b" etc:

Code: Select all

$currentDeal{other}{ $args->{nameID} } = $currentDeal{other}{ $args->{nameID} } || {}

{} is a reference to a new empty hash here.

[sofax222]

I got it !
It is a increasement of hash reference !

Thxs a lot !

[EternalHarvest]

It is a increasement of hash reference !

No, wait. And you can't "increment" references in Perl.
A ||= B is the same as A = A || B.

[sofax222]

Thxs again !