Databases
StackOverflow2013
Postsdbo
POHow do I make private functions in a Perl module?
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POHow do I make private functions in a Perl module?
    primarykey
    data
    text
    <p>I am working on a little Perl module and for some reason I had the test driver script that was using my new module call one of the functions that I thought would be private, and it was successful. I was surprised, so I started searching google and I couldn't really find any documentation on how to make private functions in Perl modules...</p> <p>I saw one place that said to put a semicolon after the closing brace of your "private" function, like this:</p> <pre><code>sub my_private_function { ... }; </code></pre> <p>I tried that, but my driver script could still access the function I wanted to be private.</p> <p>I'll make up something that will be a shorter example, but here's what I'm after:</p> <p><strong>Module TestPrivate.pm:</strong></p> <pre><code>package TestPrivate; require 5.004; use strict; use warnings; use Carp; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); require Exporter; @ISA = qw(Exporter AutoLoader); our @EXPORT_OK = qw( public_function ); our @EXPORT = qw( ); $VERSION = '0.01'; sub new { my ( $class, %args ) = @_; my $self = {}; bless( $self, $class ); $self-&gt;private_function("THIS SHOULD BE PRIVATE"); $self-&gt;{public_variable} = "This is public"; return $self; } sub public_function { my $self = shift; my $new_text = shift; $self-&gt;{public_variable} = $new_text; print "Public Variable: $self-&gt;{public_variable}\n"; print "Internal Variable: $self-&gt;{internal_variable}\n"; } sub private_function { my $self = shift; my $new_text = shift; $self-&gt;{internal_variable} = $new_text; } </code></pre> <p><strong>Driver: TestPrivateDriver.pl</strong></p> <pre><code>#!/usr/bin/perl use strict; use TestPrivate 'public_function'; my $foo = new TestPrivate(); $foo-&gt;public_function("Changed public variable"); $foo-&gt;private_function("I changed your private variable"); $foo-&gt;public_function("Changed public variable again"); $foo-&gt;{internal_variable} = "Yep, I changed your private variable again!"; $foo-&gt;public_function("Changed public variable the last time"); </code></pre> <p><strong>Driver output:</strong></p> <pre><code>Public Variable: Changed public variable Internal Variable: THIS SHOULD BE PRIVATE Public Variable: Changed public variable again Internal Variable: I changed your private variable Public Variable: Changed public variable the last time Internal Variable: Yep, I changed your private variable again! </code></pre> <p>So I added a semicolon after the last closing brace in the module, but the output is still the same. The only thing I really found was to add this line as the first line to my private_function:</p> <pre><code>caller eq __PACKAGE__ or die; </code></pre> <p>But that seems pretty hacky. I don't have a lot of experience writing Perl modules, so maybe I am setting my module up incorrectly? Is it possible to have private functions and variables in perl modules?</p> <p>Thanks for helping me learn!</p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USGreg Bacon
    1. USBrianH
    plurals
    1. This table or related slice is empty.
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    3. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POHow do I make private functions in a Perl module?
      1. USBrianH
      1. VTFavorite
    2. VO
      singulars
      1. POHow do I make private functions in a Perl module?
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POHow do I make private functions in a Perl module?
      1. This table or related slice is empty.
      1. VTUpMod
    1. COIf you're writing an OO class, you can get rid of the EXPORT stuff. That has nothing to do with methods or visibility.
      singulars
      1. POHow do I make private functions in a Perl module?
      1. USbrian d foy
    2. COI only tried exporting functions because I thought it would make the other ones not export, or private. Now I know that wouldn't help.
      singulars
      1. POHow do I make private functions in a Perl module?
      1. USBrianH
    3. COI think you should reconsider your "correct" answer. You *can* accomplish what you want, but you have to use something like what Brian Phillips or Brian D Foy suggest, an inside-out class structure. There's a book called "Perl Best Practices" that has a chapter or two devoted to the concept.
      singulars
      1. POHow do I make private functions in a Perl module?
      1. USJoe Casadonte
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload