Path: usenet.cise.ufl.edu!usenet.ufl.edu!news.fsu.edu!gatech!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!news-peer.sprintlink.net!news-pull.sprintlink.net!news-in-east.sprintlink.net!news.sprintlink.net!Sprint!199.2.96.62!news.rain.net!news.teleport.com!not-for-mail
From: James Duncan <
[email protected]>
Newsgroups: comp.lang.perl.announce,comp.lang.perl.modules
Subject: ANNOUNCE: Protect v1.0
Followup-To: comp.lang.perl.modules
Date: 20 Sep 1997 14:17:59 GMT
Organization: IGS - Information Gateway Services
Lines: 32
Sender:
[email protected]
Approved:
[email protected] (comp.lang.perl.announce)
Message-ID: <
[email protected]>
NNTP-Posting-Host: gadget.cscaper.com
X-Disclaimer: The "Approved" header verifies header information for article transmission and does not imply approval of content.
Xref: usenet.cise.ufl.edu comp.lang.perl.announce:27 comp.lang.perl.modules:888
Protect allows you to set perl subroutines into one of three modes, public,
member, or private.
In private mode, only code within the package in which the subroutine
exists can call the subroutine.
In member mode, only members with the package can call the subroutine.
In public mode, any(one||thing) can call the subroutine.
Protect, unfortunatly, does not work at compile time, only in run time.
Changing this would require some pretty hefty changes to the perl core, and
while they are supposed to be coming, I thought I'd write a quick solution
myself. It got a little out of hand (this seems to happen frequently)
The distribution archive can be found at:
ftp://epitome.hawk.igs.net/pub/modules/Protect/Protect-1.00a.tar.gz
Any comments/questions appreciated.
James Duncan <
[email protected]>
--
James Duncan ||
[email protected]
IGS Hawkesbury Systems Administrator
Phone 613-632-4075 Fax 613-632-8137
web
http://www.hawk.igs.net/~jduncan
