Frage zur Programmstruktur: "globale Objekte" (gelöst) - #140744 (Allgemeines zu Perl)

topeg

2010-08-18 02:28

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Ist ein logisches Oder und macht eine Zuweisung bei "false".
Das funktioniert weil perl erkennt, dass nur "$singleton" beim "=" gemeint sein kann.

Also:

Code (perl): (dl )

sub singleton { $singleton ||= shift->new(@_) }

ist gleich

Code (perl): (dl )

sub singleton
{
  $singleton = shift->new(@_) unless($singleton);
  return $singleton;
}