Variablen global bei require - #124722 (Allgemeines zu Perl)

LanX-

2009-08-25 00:08

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

Hmm vielleicht reden wir auch aneinander vorbei, offensichtlich hab ich beim "Auslagern in eine andere Datei" gleich anders mitgedacht.

#------------super.pl

Code (perl): (dl )

use strict;
use warnings;


require "tstreq.pm";

testsub();

#------------tstreq.pm

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
no strict 'refs';

my $test = 'hello';


sub testsub {
  print $test;
}

Die mit my deklarierte Variable hat maximal den Scope des Moduls.

Um aus einer anderen Datei explizit darauf zugreifen zu können müsste er schon getter und setter definieren die auch die Variable im Closure hätten, d.h. er hat dann die volle Kontrolle.

Das ist IMHO sogar eine sehr saubere Kapselung!

me and my writeups