private/public subs in modules - #117163 (Allgemeines zu Perl)

burnersk

2008-12-13 16:01

User since
2008-03-25
83 Artikel
BenutzerIn
[default_avatar]

Hallo,

ab besten ich zeige was ich möchte :P

Code (perl): (dl )

package Test;

sub new
{
  my $invocant = shift;
  my $class = ref($invocant) || $invocant;
  my $self = {};
  bless($self, $class);
  return ($self);
}

sub test1()
{
  my $self = shift;
  return ('Ich will privat sein');
}

sub test2()
{
  my $self = shift;
  return ('Ich will oeffnetlich sein');
}

Code (perl): (dl )

1
2

use Test;
my $testhandle = Test->new();

Für Test::test1() kann ich ja den Exporter mit leerem @EXPORT verwenden.
Was ich jetzt möchte ist, dass man via $testhandle nur auf die Funktion test2() und nicht auf die Funktion test1() zugreifen kann.

Antworten mit Zitat