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

dta

2010-08-17 23:10

User since
2006-07-11
11 Artikel
BenutzerIn
[default_avatar]

Vielleicht willst Du einfach nur ein Singleton?

Code (perl): (dl )

package Dienst;

my $singleton;

sub new {
  # ... setup
}

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

Und irgendwoanders:

Code (perl): (dl )

my $dienst = Dienst->singleton(...)

Egal wo du Dienst->singleton aufrufst, du bekommst immer das gleiche Object.