X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fsubs.pm;h=e5a9aa8827d84fc910f22c75b25ddf416a1cc7cd;hb=9c1370fb202eb56860da11d7695c846c33542694;hp=8b5835770fa5c8cf00a93d49e4c5023b0d6abbdc;hpb=a0d0e21ea6ea90a22318550944fe6cb09ae10cda;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/subs.pm b/lib/subs.pm
index 8b58357..e5a9aa8 100644
--- a/lib/subs.pm
+++ b/lib/subs.pm
@@ -1,8 +1,32 @@
 package subs;
 
-require 5.000;
+our $VERSION = '1.00';
+
+=head1 NAME
+
+subs - Perl pragma to predeclare sub names
+
+=head1 SYNOPSIS
+
+    use subs qw(frob);
+    frob 3..10;
+
+=head1 DESCRIPTION
 
-$ExportLevel = 0;
+This will predeclare all the subroutine whose names are 
+in the list, allowing you to use them without parentheses
+even before they're declared.
+
+Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and
+C<use subs> declarations are not BLOCK-scoped.  They are thus effective
+for the entire file in which they appear.  You may not rescind such
+declarations with C<no vars> or C<no subs>.
+
+See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.
+
+=cut
+
+require 5.000;
 
 sub import {
     my $callpack = caller;