richtig private Methoden: geht das? (Allgemeines zu Perl)

pktm

2005-06-28 19:49

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich würde gerne private Methoden ähnlich wie in Java erstellen.

Die Namenskonvention mit dem Blank vorm Methodennamen habe ich schon umgesetzt, aber das schützt mich nicht vom Zugriff von außen.

Kann man es irgendwie einrichten private Methoden zu schreiben, die man nicht von außerhab aufrufen kann?

Beispiel:

Code: (dl )

package Test;
...
sub _privat {
    # mach was
}
...
1;

package main;
...
my $t = Test->new();
$t->_privat(); # geht bislang, sollte aber nicht!

Könnte man eventuell erzwingen dass das Modul objektorientiert benutzt werden muss und die Methode nur innerhalb des Moduls nicht-objektorientiert aufrufen?

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

GwenDragon

2005-06-28 19:56

User since
2005-01-17
14890 Artikel
Admin1

Private Funktionen gibt es in Perl nicht. Jeder, der den Code ansehen kann, kann darin auch die Funktionen z. B. durch MyModule::___thisisprivate() aufrufen

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Strat

2005-06-28 19:59

User since
2003-08-04
5246 Artikel
ModeratorIn

man koennte hoechstens was mit coderefs drehen, aber nur haesslich...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

GwenDragon

2005-06-28 20:03

User since
2005-01-17
14890 Artikel
Admin1

[quote=Strat,28.06.2005, 17:59]man koennte hoechstens was mit coderefs drehen, aber nur haesslich...[/quote]
Du meinst die closures?
Ja, aber da dann später zu pflegen.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Strat

2005-06-28 20:10

User since
2003-08-04
5246 Artikel
ModeratorIn

das waere auch eine moeglichkeit; ich meinte eher ueber autoload+caller|isa+coderefs... aber sowas will man einfach nicht machen...\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Gast Gast

2005-06-28 20:16

Ich hab' das meist so gelöst, dass ich eine Funktion schrieb, die den vor-vorigen Caller holt und das Package mit dem des Vorigen vergleicht. Aufgerufen hab ich's dann meist einfach mittels

Code: (dl )

is_private ();

Heromaster

2005-06-28 21:38

User since
2003-08-05
220 Artikel
BenutzerIn
[default_avatar]

Tie::SecureHash solltest Du Dir mal anschauen. Damit kannst Du einfach private Methoden erstellen, die dann nur innerhalb der eigenen Klasse aufgerufen werden können.\n\n

Derjenige, der zwei Hasen jagt, lässt einen zurück und verliert den anderen.

pq

2005-06-28 22:25

User since
2003-08-04
12209 Artikel
Admin1

[quote=phaylon,28.06.2005, 18:16]Ich hab' das meist so gelöst, dass ich eine Funktion schrieb, die den vor-vorigen Caller holt und das Package mit dem des Vorigen vergleicht. Aufgerufen hab ich's dann meist einfach mittels

Code: (dl )

is_private ();

[/quote]
aber vorsicht mit caller, den kann man auch überlisten, zumindest was das package angeht.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Gast Gast

2005-06-29 00:12

Kann man ja. Wenn das aber ein Kunde macht, der einfach mehr Sicherheit in in der Hinsicht in der Entwicklung haben wollte, isser selbst schuld ;)

Es hindert ja auch keinen etwas daran, etwas rauszupatchen.

esskar

2005-06-29 01:07

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=phaylon,28.06.2005, 22:12]Kann man ja. Wenn das aber ein Kunde macht, der einfach mehr Sicherheit in in der Hinsicht in der Entwicklung haben wollte, isser selbst schuld ;)[/quote]
naja, dann könnte man auch die _ variante nehmen, oder?