Comment accéder aux fonctions d'objet dans Perl à partir du même package

Question

Je crée un module Perl et je suis toujours en train de comprendre comment Perl traite les objets. C'est le new sous que j'ai écrit pour créer un objet et je n'ai pas d'éléments de mise à jour de problème:

sub new { 
    my $class = shift; 
    my ($self) = { 
     name => undef 
    }; 
    bless($self, $class); 
    return $self; 
} 
sub get_name { 
    my $self = shift; 
    $self->{name} = 'Eve'; 
    return $self->{name}; 
} 

je peux utiliser l'amende objet quand je l'appelle le module et l'accès d'un autre fichier, mais je veux utiliser les données de l'objet dans d'autres zones du code du module.

J'ai donc aucun problème à faire ceci:

my $new_object = new ProgramTest; # ProgramTest being the module/package 
my $name = get_name(); 

Mais je veux utiliser les $self éléments dans une méthode « module interne » qui est jamais accessible par un script extérieur. Donc, je veux avoir quelque chose comme ceci:

sub get_variables { 
    return (name); # I don't know how to get the name here 
    # (I plan to have other variables, too) 
} 

Je suis probablement manque quelque chose d'évident (je suis sûr que je vais me botter quand je vois la solution), de sorte que toute aide appréciée! Je veux ceci pour que le reste du module puisse utiliser les variables (sans changer) car il y a des conditions qui s'appuient sur leurs valeurs.

Answer 1

Il n'existe pas de méthodes internes/privées dans les objets perl. La pratique courante consiste à lancer toutes les méthodes qui ne devraient pas être utilisées publiquement avec un trait de soulignement, mais cela n'est pas appliqué de quelque façon que ce soit. Jetez un coup d'œil à l'orignal - cela prend beaucoup de tracas sur OO Perl.

En ce qui concerne votre question ci-dessous montre comment une méthode de module peut appeler une autre méthode de module, avec les deux ayant accès aux données d'objet. Encore une fois, je vous recommande vraiment d'utiliser Moose!

sub publicSub{ 
    my ($self) = @_; 

    return $self->_privateSub(); 
} 

sub _privateSub{ 
    my ($self) = @_; 

    return $self->{name}; 
} 

Answer 2

Je pense que vous voulez des variables de classe. Ils sont globaux à une classe et toutes les instances de la classe (c'est-à-dire tous les objets que vous avez créés) peuvent les voir. Global dans ce cas signifie qu'ils sont à la portée lexicale la plus éloignée, de sorte que tous les sous-marins peuvent les voir.

package ProgramTest; 
my $everyone_can_see_this = 1; # lexical scope, but 'global' to the package 

sub new { 
    my $class = shift; 
    my ($self) = { 
     name => undef 
    }; 
    bless($self, $class); 
    return $self; 
} 
sub get_var { 
    my $self = shift; 
    return ++$everyone_can_see_this; 
} 

package Main; 
my $o1 = ProgramTest->new; 
my $o2 = ProgramTest->new; 

say $o1->get_var; 
say $o2->get_var; 
say $o1->get_var; 

__END__ 
2 
3 
4 

Mais je ne vois pas pourquoi vous voudriez faire cela. Cela n'a aucun sens (sauf si vous voulez un compteur d'objets). Ne l'utilisez pas pour les valeurs de configuration, ou vous ne pouvez pas vraiment avoir d'objets à des fins différentes de la même classe.

Peut-être que vous voulez quelque chose d'autre. Si oui, essayez de reformuler votre question.