From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 May 1999 07:41:32 +0000 (+0000)
Subject: perlmod notes from Damian Conway (via Tom Christiansen)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9263d47b7ba3c92b743ac884edfaa80847325f4d;p=p5sagit%2Fp5-mst-13.2.git

perlmod notes from Damian Conway (via Tom Christiansen)

p4raw-id: //depot/perl@3461
---

diff --git a/pod/perlmod.pod b/pod/perlmod.pod
index de94e71..53426d3 100644
--- a/pod/perlmod.pod
+++ b/pod/perlmod.pod
@@ -165,6 +165,51 @@ This prints
 The C<*foo{THING}> notation can also be used to obtain references to the
 individual elements of *foo, see L<perlref>.
 
+Subroutine definitions (and declarations, for that matter) need
+not necessarily be situated in the package whose symbol table they
+occupy.  You can define a subroutine outside its package by
+explicitly qualifying the name of the subroutine:
+
+    package main;
+    sub Some_package::foo { ... }   # &foo defined in Some_package
+
+This is just a shorthand for a typeglob assignment at compile time:
+
+    BEGIN { *Some_package::foo = sub { ... } }
+
+and is I<not> the same as writing:
+
+    {
+	package Some_package;
+	sub foo { ... }
+    }
+
+In the first two versions, the body of the subroutine is
+lexically in the main package, I<not> in Some_package. So
+something like this:
+
+    package main;
+
+    $Some_package::name = "fred";
+    $main::name = "barney";
+
+    sub Some_package::foo {
+	print "in ", __PACKAGE__, ": \$name is '$name'\n";
+    }
+
+    Some_package::foo();
+
+prints:
+
+    in main: $name is 'barney'
+
+rather than:
+
+    in Some_package: $name is 'fred'
+
+This also has implications for the use of the SUPER:: qualifier
+(see L<perlobj>).
+
 =head2 Package Constructors and Destructors
 
 There are two special subroutine definitions that function as package