diff options
55 files changed, 192 insertions, 175 deletions
@@ -418,7 +418,7 @@ EOF print CONFIG <<EOF; =head2 $c -=over +=over 4 EOF $text = 1; diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm index 54d7c533c8..1954116298 100644 --- a/ext/B/B/Bytecode.pm +++ b/ext/B/B/Bytecode.pm @@ -967,9 +967,9 @@ Output (bytecode) assembler source rather than piping it through the assembler and outputting bytecode. =item B<-upackage> - + Stores package in the output. - + =back =head1 EXAMPLES diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index c8302168f8..344227fcc0 100644 --- a/ext/DB_File/DB_File.pm +++ b/ext/DB_File/DB_File.pm @@ -388,8 +388,8 @@ DB_File - Perl5 access to Berkeley DB version 1.x =head1 SYNOPSIS - use DB_File ; - + use DB_File; + [$X =] tie %hash, 'DB_File', [$filename, $flags, $mode, $DB_HASH] ; [$X =] tie %hash, 'DB_File', $filename, $flags, $mode, $DB_BTREE ; [$X =] tie @array, 'DB_File', $filename, $flags, $mode, $DB_RECNO ; @@ -699,7 +699,7 @@ contents of the database. here is the output: Banana Exists - + orange -> orange tomato -> red banana -> yellow @@ -797,13 +797,13 @@ code: $filename = "tree" ; unlink $filename ; - + # Enable duplicate records $DB_BTREE->{'flags'} = R_DUP ; - + tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE or die "Cannot open $filename: $!\n"; - + # Add some key/value pairs to the file $h{'Wall'} = 'Larry' ; $h{'Wall'} = 'Brick' ; # Note the duplicate key @@ -847,25 +847,25 @@ Here is the script above rewritten using the C<seq> API method. use warnings ; use strict ; use DB_File ; - + use vars qw($filename $x %h $status $key $value) ; $filename = "tree" ; unlink $filename ; - + # Enable duplicate records $DB_BTREE->{'flags'} = R_DUP ; - + $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE or die "Cannot open $filename: $!\n"; - + # Add some key/value pairs to the file $h{'Wall'} = 'Larry' ; $h{'Wall'} = 'Brick' ; # Note the duplicate key $h{'Wall'} = 'Brick' ; # Note the duplicate key and value $h{'Smith'} = 'John' ; $h{'mouse'} = 'mickey' ; - + # iterate through the btree using seq # and print each key/value pair. $key = $value = 0 ; @@ -873,7 +873,7 @@ Here is the script above rewritten using the C<seq> API method. $status == 0 ; $status = $x->seq($key, $value, R_NEXT) ) { print "$key -> $value\n" } - + undef $x ; untie %h ; @@ -919,14 +919,14 @@ this: use warnings ; use strict ; use DB_File ; - + use vars qw($filename $x %h ) ; $filename = "tree" ; - + # Enable duplicate records $DB_BTREE->{'flags'} = R_DUP ; - + $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE or die "Cannot open $filename: $!\n"; @@ -942,7 +942,7 @@ this: @list = $x->get_dup("Smith") ; print "Smith => [@list]\n" ; - + @list = $x->get_dup("Dog") ; print "Dog => [@list]\n" ; @@ -969,23 +969,23 @@ Assuming the database from the previous example: use warnings ; use strict ; use DB_File ; - + use vars qw($filename $x %h $found) ; my $filename = "tree" ; - + # Enable duplicate records $DB_BTREE->{'flags'} = R_DUP ; - + $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE or die "Cannot open $filename: $!\n"; $found = ( $x->find_dup("Wall", "Larry") == 0 ? "" : "not") ; print "Larry Wall is $found there\n" ; - + $found = ( $x->find_dup("Wall", "Harry") == 0 ? "" : "not") ; print "Harry Wall is $found there\n" ; - + undef $x ; untie %h ; @@ -1008,14 +1008,14 @@ Again assuming the existence of the C<tree> database use warnings ; use strict ; use DB_File ; - + use vars qw($filename $x %h $found) ; my $filename = "tree" ; - + # Enable duplicate records $DB_BTREE->{'flags'} = R_DUP ; - + $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE or die "Cannot open $filename: $!\n"; @@ -1023,7 +1023,7 @@ Again assuming the existence of the C<tree> database $found = ( $x->find_dup("Wall", "Larry") == 0 ? "" : "not") ; print "Larry Wall is $found there\n" ; - + undef $x ; untie %h ; @@ -1071,22 +1071,22 @@ and print the first matching key/value pair given a partial key. $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE or die "Cannot open $filename: $!\n"; - + # Add some key/value pairs to the file $h{'mouse'} = 'mickey' ; $h{'Wall'} = 'Larry' ; $h{'Walls'} = 'Brick' ; $h{'Smith'} = 'John' ; - + $key = $value = 0 ; print "IN ORDER\n" ; for ($st = $x->seq($key, $value, R_FIRST) ; $st == 0 ; $st = $x->seq($key, $value, R_NEXT) ) - + { print "$key -> $value\n" } - + print "\nPARTIAL MATCH\n" ; match "Wa" ; @@ -1250,14 +1250,14 @@ L<THE API INTERFACE>). use vars qw(@h $H $file $i) ; use DB_File ; use Fcntl ; - + $file = "text" ; unlink $file ; $H = tie @h, "DB_File", $file, O_RDWR|O_CREAT, 0640, $DB_RECNO or die "Cannot open file $file: $!\n" ; - + # first create a text file to play with $h[0] = "zero" ; $h[1] = "one" ; @@ -1265,7 +1265,7 @@ L<THE API INTERFACE>). $h[3] = "three" ; $h[4] = "four" ; - + # Print the records in order. # # The length method is needed here because evaluating a tied diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm index a8e59ab379..b092a2202b 100644 --- a/ext/Data/Dumper/Dumper.pm +++ b/ext/Data/Dumper/Dumper.pm @@ -592,7 +592,6 @@ __END__ Data::Dumper - stringified perl data structures, suitable for both printing and C<eval> - =head1 SYNOPSIS use Data::Dumper; diff --git a/ext/Devel/Peek/Peek.pm b/ext/Devel/Peek/Peek.pm index 08501728c0..112412a942 100644 --- a/ext/Devel/Peek/Peek.pm +++ b/ext/Devel/Peek/Peek.pm @@ -432,7 +432,7 @@ Looks like this: This shows that -=over +=over 4 =item * diff --git a/ext/Filter/Util/Call/Call.pm b/ext/Filter/Util/Call/Call.pm index 1936bbeaac..a21f671c97 100644 --- a/ext/Filter/Util/Call/Call.pm +++ b/ext/Filter/Util/Call/Call.pm @@ -58,7 +58,7 @@ __END__ Filter::Util::Call - Perl Source Filter Utility Module =head1 SYNOPSIS - + use Filter::Util::Call ; =head1 DESCRIPTION @@ -74,7 +74,7 @@ filter> and the second as I<closure filter>. Here is a skeleton for the I<method filter>: package MyFilter ; - + use Filter::Util::Call ; sub import @@ -82,28 +82,28 @@ Here is a skeleton for the I<method filter>: my($type, @arguments) = @_ ; filter_add([]) ; } - + sub filter { my($self) = @_ ; my($status) ; - + $status = filter_read() ; $status ; } - + 1 ; and this is the equivalent skeleton for the I<closure filter>: package MyFilter ; - + use Filter::Util::Call ; sub import { my($type, @arguments) = @_ ; - + filter_add( sub { @@ -112,7 +112,7 @@ and this is the equivalent skeleton for the I<closure filter>: $status ; } ) } - + 1 ; To make use of either of the two filter modules above, place the line @@ -293,26 +293,26 @@ occurrences of the string C<"Joe"> to C<"Jim">. Not particularly Useful, but it is the first example and I wanted to keep it simple. package Joe2Jim ; - + use Filter::Util::Call ; sub import { my($type) = @_ ; - + filter_add(bless []) ; } - + sub filter { my($self) = @_ ; my($status) ; - + s/Joe/Jim/g if ($status = filter_read()) > 0 ; $status ; } - + 1 ; Here is an example of using the filter: @@ -333,10 +333,10 @@ I<closure filter>. To reflect its enhanced role, the filter is called C<Subst>. package Subst ; - + use Filter::Util::Call ; use Carp ; - + sub import { croak("usage: use Subst qw(from to)") @@ -371,14 +371,14 @@ will print a count of the number of substitutions actually made. Note that C<$status> is set to C<1> in this case. package Count ; - + use Filter::Util::Call ; - + sub filter { my ($self) = @_ ; my ($status) ; - + if (($status = filter_read()) > 0 ) { s/Joe/Jim/g ; ++ $$self ; @@ -391,14 +391,14 @@ Note that C<$status> is set to C<1> in this case. $status ; } - + sub import { my ($self) = @_ ; my ($count) = 0 ; filter_add(\$count) ; } - + 1 ; Here is a script which uses it: @@ -429,38 +429,38 @@ When used as a filter we want to invoke it like this: Here is the module. package NewSubst ; - + use Filter::Util::Call ; use Carp ; - + sub import { my ($self, $start, $stop, $from, $to) = @_ ; my ($found) = 0 ; croak("usage: use Subst qw(start stop from to)") unless @_ == 5 ; - + filter_add( sub { my ($status) ; - + if (($status = filter_read()) > 0) { - + $found = 1 if $found == 0 and /$start/ ; - + if ($found) { s/$from/$to/ ; filter_del() if /$stop/ ; } - + } $status ; } ) - + } - + 1 ; =head1 AUTHOR diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm index fb754a60bf..063341aeb4 100644 --- a/ext/IO/lib/IO/Handle.pm +++ b/ext/IO/lib/IO/Handle.pm @@ -100,7 +100,7 @@ The following methods are not supported on a per-filehandle basis. Furthermore, for doing normal I/O you might need these: -=over +=over 4 =item $io->fdopen ( FD, MODE ) @@ -206,7 +206,7 @@ failure. Lastly, there is a special method for working under B<-T> and setuid/gid scripts: -=over +=over 4 =item $io->untaint diff --git a/ext/IO/lib/IO/Seekable.pm b/ext/IO/lib/IO/Seekable.pm index 243a971acc..d3dfa1e697 100644 --- a/ext/IO/lib/IO/Seekable.pm +++ b/ext/IO/lib/IO/Seekable.pm @@ -34,7 +34,7 @@ Uses the value of a previous getpos call to return to a previously visited position. Returns "0 but true" on success, C<undef> on failure. =back - + See L<perlfunc> for complete descriptions of each of the following supported C<IO::Seekable> methods, which are just front ends for the corresponding built-in functions: @@ -80,7 +80,7 @@ of zero is returned as the string C<"0 but true"> Returns the IO::File's current position, or -1 on error. =back - + =head1 SEE ALSO L<perlfunc>, diff --git a/ext/IO/lib/IO/Socket/UNIX.pm b/ext/IO/lib/IO/Socket/UNIX.pm index 2a11752d02..53652423f9 100644 --- a/ext/IO/lib/IO/Socket/UNIX.pm +++ b/ext/IO/lib/IO/Socket/UNIX.pm @@ -103,7 +103,7 @@ be a C<Peer> specification. NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE - + As of VERSION 1.18 all IO::Socket objects have autoflush turned on by default. This was not the case with earlier releases. diff --git a/ext/IPC/SysV/Msg.pm b/ext/IPC/SysV/Msg.pm index 120a5b2d3a..a0932389cb 100644 --- a/ext/IPC/SysV/Msg.pm +++ b/ext/IPC/SysV/Msg.pm @@ -126,6 +126,8 @@ IPC::Msg - SysV Msg IPC object class =head1 DESCRIPTION +A class providing an object based interface to SysV IPC message queues. + =head1 METHODS =over 4 diff --git a/ext/IPC/SysV/Semaphore.pm b/ext/IPC/SysV/Semaphore.pm index faf7411950..1dac5dcdae 100644 --- a/ext/IPC/SysV/Semaphore.pm +++ b/ext/IPC/SysV/Semaphore.pm @@ -172,6 +172,8 @@ IPC::Semaphore - SysV Semaphore IPC object class =head1 DESCRIPTION +A class providing an object based interface to SysV IPC semaphores. + =head1 METHODS =over 4 diff --git a/ext/IPC/SysV/SysV.pm b/ext/IPC/SysV/SysV.pm index bebb8fd81b..0cc74004da 100644 --- a/ext/IPC/SysV/SysV.pm +++ b/ext/IPC/SysV/SysV.pm @@ -74,7 +74,7 @@ C<IPC::SysV> defines and conditionally exports all the constants defined in your system include files which are needed by the SysV IPC calls. -=over +=over 4 =item ftok( PATH, ID ) diff --git a/ext/NDBM_File/NDBM_File.pm b/ext/NDBM_File/NDBM_File.pm index b2804597a1..a088bd3c33 100644 --- a/ext/NDBM_File/NDBM_File.pm +++ b/ext/NDBM_File/NDBM_File.pm @@ -28,11 +28,11 @@ NDBM_File - Tied access to ndbm files $h{newkey} = newvalue; print $h{oldkey}; ... - + untie %h; - + =head1 DESCRIPTION - + C<NDBM_File> establishes a connection between a Perl hash variable and a file in NDBM_File format;. You can manipulate the data in the file just as if it were in a Perl hash, but when your program exits, the diff --git a/ext/ODBM_File/ODBM_File.pm b/ext/ODBM_File/ODBM_File.pm index 9e8e008e02..c7b61d84ff 100644 --- a/ext/ODBM_File/ODBM_File.pm +++ b/ext/ODBM_File/ODBM_File.pm @@ -28,11 +28,11 @@ ODBM_File - Tied access to odbm files $h{newkey} = newvalue; print $h{oldkey}; ... - + untie %h; - + =head1 DESCRIPTION - + C<ODBM_File> establishes a connection between a Perl hash variable and a file in ODBM_File format;. You can manipulate the data in the file just as if it were in a Perl hash, but when your program exits, the diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm index 90e16e6e19..344c87dc94 100644 --- a/ext/Socket/Socket.pm +++ b/ext/Socket/Socket.pm @@ -56,7 +56,7 @@ be imported individually, and with the C<:crlf> export tag: In addition, some structure manipulation functions are available: -=over +=over 4 =item inet_aton HOSTNAME diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm index 86c513575a..fa15b010bd 100644 --- a/ext/Storable/Storable.pm +++ b/ext/Storable/Storable.pm @@ -527,7 +527,7 @@ same object. Here is the hooking interface: -=over +=over 4 =item C<STORABLE_freeze> I<obj>, I<cloning> @@ -596,7 +596,7 @@ Returned value: none. Predicates are not exportable. They must be called by explicitely prefixing them with the Storable package name. -=over +=over 4 =item C<Storable::last_op_in_netorder> @@ -623,7 +623,7 @@ serialization string? There are a few things you need to know however: -=over +=over 4 =item * diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm index 71f5b828d0..9c05dcd1f5 100644 --- a/ext/Sys/Syslog/Syslog.pm +++ b/ext/Sys/Syslog/Syslog.pm @@ -46,7 +46,7 @@ just like C<syslog(3)>. Syslog provides the functions: -=over +=over 4 =item openlog $ident, $logopt, $facility diff --git a/ext/Thread/Thread.pm b/ext/Thread/Thread.pm index f8a8a26bbc..3a545482a9 100644 --- a/ext/Thread/Thread.pm +++ b/ext/Thread/Thread.pm @@ -22,7 +22,7 @@ Thread - manipulate threads in Perl (EXPERIMENTAL, subject to change) $result = $t->eval; $t->detach; $flags = $t->flags; - + if ($t->done) { $t->join; } diff --git a/ext/Thread/Thread/Queue.pm b/ext/Thread/Thread/Queue.pm index 831573c726..8ace16d48b 100644 --- a/ext/Thread/Thread/Queue.pm +++ b/ext/Thread/Thread/Queue.pm @@ -59,7 +59,7 @@ before checking to make sure that it stays in a consistent state) =head1 SEE ALSO L<Thread> - + =cut sub new { diff --git a/ext/attrs/attrs.pm b/ext/attrs/attrs.pm index 2070632558..6c50beaa5d 100644 --- a/ext/attrs/attrs.pm +++ b/ext/attrs/attrs.pm @@ -31,7 +31,7 @@ C<attrs::get> on a subroutine reference or name returns its list of attribute names. Notice that C<attrs::get> is not exported. Valid attributes are as follows. -=over +=over 4 =item method diff --git a/jpl/JNI/JNI.pm b/jpl/JNI/JNI.pm index edbc1e6067..c3ade26ff7 100644 --- a/jpl/JNI/JNI.pm +++ b/jpl/JNI/JNI.pm @@ -269,6 +269,8 @@ JNI - Perl encapsulation of the Java Native Interface =head1 DESCRIPTION +This module provides an encapsulation in Perl of the Java Native Interface. + =head1 Exported constants JNI_ABORT diff --git a/lib/CPAN.pm b/lib/CPAN.pm index fdaadb3be7..7cab8c606d 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -6181,7 +6181,7 @@ beta and partially even alpha. In the following paragraphs only those methods are documented that have proven useful over a longer time and thus are unlikely to change. -=over +=over 4 =item CPAN::Author::as_glimpse() @@ -6746,7 +6746,7 @@ that you can configure ncftp so that it works for your firewall. Firewalls can be categorized into three basic types. -=over +=over 4 =item http firewall @@ -6780,7 +6780,7 @@ FTP connections need to be done in a passive mode. There are two that I can think off. -=over +=over 4 =item SOCKS @@ -6819,7 +6819,7 @@ Your milage may vary... =head1 FAQ -=over +=over 4 =item 1) diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm index 185a8ff142..57b8c8611c 100644 --- a/lib/Class/Struct.pm +++ b/lib/Class/Struct.pm @@ -361,7 +361,7 @@ optionally preceded by a C<'*'>. The accessor method provided by C<struct> for an element depends on the declared type of the element. -=over +=over 4 =item Scalar (C<'$'> or C<'*$'>) @@ -437,7 +437,7 @@ See Example 3 below for an example of initialization. =head1 EXAMPLES -=over +=over 4 =item Example 1 diff --git a/lib/Dumpvalue.pm b/lib/Dumpvalue.pm index c8282cfbd5..97946258a2 100644 --- a/lib/Dumpvalue.pm +++ b/lib/Dumpvalue.pm @@ -495,7 +495,7 @@ A new dumper is created by a call Recognized options: -=over +=over 4 =item C<arrayDepth>, C<hashDepth> @@ -563,7 +563,7 @@ method and set() method (which accept multiple arguments). =head2 Methods -=over +=over 4 =item dumpValue diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm index c4167a3026..b5a1bae5f6 100644 --- a/lib/ExtUtils/Embed.pm +++ b/lib/ExtUtils/Embed.pm @@ -295,7 +295,7 @@ ccdlflags(), xsi_header(), xsi_protos(), xsi_body() =head1 FUNCTIONS -=over +=over 4 =item xsinit() diff --git a/lib/ExtUtils/Installed.pm b/lib/ExtUtils/Installed.pm index 6961c6fdd4..b7ff8155b3 100644 --- a/lib/ExtUtils/Installed.pm +++ b/lib/ExtUtils/Installed.pm @@ -208,7 +208,7 @@ described below. =head1 FUNCTIONS -=over +=over 4 =item new() diff --git a/lib/ExtUtils/MM_Cygwin.pm b/lib/ExtUtils/MM_Cygwin.pm index abb491f1a2..45833ca259 100644 --- a/lib/ExtUtils/MM_Cygwin.pm +++ b/lib/ExtUtils/MM_Cygwin.pm @@ -103,7 +103,7 @@ ExtUtils::MM_Cygwin - methods to override UN*X behaviour in ExtUtils::MakeMaker See ExtUtils::MM_Unix for a documentation of the methods provided there. -=over +=over 4 =item canonpath diff --git a/lib/ExtUtils/MM_OS2.pm b/lib/ExtUtils/MM_OS2.pm index d6bbc1c76d..a4bcf73c37 100644 --- a/lib/ExtUtils/MM_OS2.pm +++ b/lib/ExtUtils/MM_OS2.pm @@ -14,6 +14,28 @@ ExtUtils::MakeMaker->import(qw( $Verbose &neatvalue)); unshift @MM::ISA, 'ExtUtils::MM_OS2'; +=pod + +=head1 NAME + +ExtUtils::MM_OS2 - methods to override UN*X behaviour in ExtUtils::MakeMaker + +=head1 SYNOPSIS + + use ExtUtils::MM_OS2; # Done internally by ExtUtils::MakeMaker if needed + +=head1 DESCRIPTION + +See ExtUtils::MM_Unix for a documentation of the methods provided +there. This package overrides the implementation of these methods, not +the semantics. + +=head1 METHODS + +=over 4 + +=cut + sub dlsyms { my($self,%attribs) = @_; @@ -120,19 +142,11 @@ sub export_list } 1; -__END__ - -=head1 NAME - -ExtUtils::MM_OS2 - methods to override UN*X behaviour in ExtUtils::MakeMaker -=head1 SYNOPSIS - - use ExtUtils::MM_OS2; # Done internally by ExtUtils::MakeMaker if needed +__END__ -=head1 DESCRIPTION +=pod -See ExtUtils::MM_Unix for a documentation of the methods provided -there. This package overrides the implementation of these methods, not -the semantics. +=back +=cut diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index b753e2a819..ef5b541057 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -41,7 +41,7 @@ the semantics. =head2 Methods always loaded -=over +=over 4 =item wraplist @@ -173,7 +173,7 @@ For overridden methods, documentation is limited to an explanation of why this method overrides the MM_Unix method; see the ExtUtils::MM_Unix documentation for more details. -=over +=over 4 =item guess_name (override) diff --git a/lib/ExtUtils/MM_Win32.pm b/lib/ExtUtils/MM_Win32.pm index 80e247d27c..709be20ecc 100644 --- a/lib/ExtUtils/MM_Win32.pm +++ b/lib/ExtUtils/MM_Win32.pm @@ -16,7 +16,7 @@ See ExtUtils::MM_Unix for a documentation of the methods provided there. This package overrides the implementation of these methods, not the semantics. -=over +=over 4 =cut diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm index 3ac0fbf862..244214a765 100644 --- a/lib/ExtUtils/Manifest.pm +++ b/lib/ExtUtils/Manifest.pm @@ -447,7 +447,7 @@ produced. All diagnostic output is sent to C<STDERR>. -=over +=over 4 =item C<Not in MANIFEST:> I<file> diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm index c06b393be3..5f5ea063c6 100644 --- a/lib/ExtUtils/Mksymlists.pm +++ b/lib/ExtUtils/Mksymlists.pm @@ -217,7 +217,7 @@ C<Mksymlists>, which is exported by default from C<ExtUtils::Mksymlists>. It takes one argument, a list of key-value pairs, in which the following keys are recognized: -=over +=over 4 =item DLBASE diff --git a/lib/ExtUtils/Packlist.pm b/lib/ExtUtils/Packlist.pm index 88ea206196..309d72764d 100644 --- a/lib/ExtUtils/Packlist.pm +++ b/lib/ExtUtils/Packlist.pm @@ -200,7 +200,7 @@ filename followed by the key=value pairs from the hash. Reading back the =head1 FUNCTIONS -=over +=over 4 =item new() diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index 94aac2dd44..297386f57b 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -95,7 +95,7 @@ would yield $dir eq 'Doc_Root:[Help]' $type eq '.Rnh' -=over +=over 4 =item C<basename> diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm index 60b0ec8e50..57c4005d99 100644 --- a/lib/File/Spec/VMS.pm +++ b/lib/File/Spec/VMS.pm @@ -26,7 +26,7 @@ See File::Spec::Unix for a documentation of the methods provided there. This package overrides the implementation of these methods, not the semantics. -=over +=over 4 =item eliminate_macros @@ -138,7 +138,7 @@ sub fixpath { =head2 Methods always loaded -=over +=over 4 =item canonpath (override) diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm index f5d6cda2bc..860ae0c2b2 100644 --- a/lib/File/Spec/Win32.pm +++ b/lib/File/Spec/Win32.pm @@ -23,7 +23,7 @@ See File::Spec::Unix for a documentation of the methods provided there. This package overrides the implementation of these methods, not the semantics. -=over +=over 4 =item devnull diff --git a/lib/FileHandle.pm b/lib/FileHandle.pm index 5eb3a89adc..cd80d19024 100644 --- a/lib/FileHandle.pm +++ b/lib/FileHandle.pm @@ -225,7 +225,7 @@ supported C<FileHandle> methods: Furthermore, for doing normal I/O you might need these: -=over +=over 4 =item $fh->print diff --git a/lib/Filter/Simple.pm b/lib/Filter/Simple.pm index d5aa55afdf..fc41362bd5 100644 --- a/lib/Filter/Simple.pm +++ b/lib/Filter/Simple.pm @@ -52,7 +52,6 @@ __END__ Filter::Simple - Simplified source filtering - =head1 SYNOPSIS # in MyFilter.pm: @@ -141,7 +140,7 @@ to the sequence C<die 'BANG' if $BANG> in any piece of code following a C<use BANG;> statement (until the next C<no BANG;> statement, if any): package BANG; - + use Filter::Util::Call ; sub import { @@ -198,7 +197,7 @@ contents of $_ to change the source code in the desired manner. In other words, the previous example, would become: package BANG; - + use Filter::Simple sub { s/BANG\s+BANG/die 'BANG' if \$BANG/g; }; @@ -218,7 +217,7 @@ list to the filtering subroutine, so the BANG.pm filter could easily be made parametric: package BANG; - + use Filter::Simple sub { my ($die_msg, $var_name) = @_; s/BANG\s+BANG/die '$die_msg' if \${$var_name}/g; diff --git a/lib/Getopt/Long.pm b/lib/Getopt/Long.pm index 472527d4a7..ff0475b34b 100644 --- a/lib/Getopt/Long.pm +++ b/lib/Getopt/Long.pm @@ -1326,7 +1326,7 @@ used on the command line. The argument specification can be -=over +=over 4 =item ! @@ -1352,7 +1352,7 @@ The C<+> specifier is ignored if the option destination is not a scalar. The option requires an argument of the given type. Supported types are: -=over +=over 4 =item s diff --git a/lib/Locale/Constants.pm b/lib/Locale/Constants.pm index cc11969c2c..957207ed90 100644 --- a/lib/Locale/Constants.pm +++ b/lib/Locale/Constants.pm @@ -31,7 +31,7 @@ Locale::Constants - constants for Locale codes =head1 SYNOPSIS use Locale::Constants; - + $codeset = LOCALE_CODE_ALPHA_2; =head1 DESCRIPTION diff --git a/lib/Locale/Country.pm b/lib/Locale/Country.pm index f60b1352b2..ea446ee5d9 100644 --- a/lib/Locale/Country.pm +++ b/lib/Locale/Country.pm @@ -7,13 +7,13 @@ Locale::Country - ISO codes for country identification (ISO 3166) =head1 SYNOPSIS use Locale::Country; - + $country = code2country('jp'); # $country gets 'Japan' $code = country2code('Norway'); # $code gets 'no' - + @codes = all_country_codes(); @names = all_country_names(); - + # add "uk" as a pseudo country code for United Kingdom Locale::Country::_alias_code('uk' => 'gb'); @@ -285,7 +285,7 @@ an ISO standard. If you would like 'uk' to work as the two-letter code for United Kingdom, use the following: use Locale::Country; - + Locale::Country::_alias_code('uk' => 'gb'); With this code, both "uk" and "gb" are valid codes for United Kingdom, @@ -325,7 +325,7 @@ The user is prompted for a country code, and then told the corresponding country name: $| = 1; # turn off buffering - + print "Enter country code: "; chop($code = <STDIN>); $country = code2country($code, LOCALE_CODE_ALPHA_2); diff --git a/lib/Locale/Language.pm b/lib/Locale/Language.pm index 391cffab78..c561157deb 100644 --- a/lib/Locale/Language.pm +++ b/lib/Locale/Language.pm @@ -7,10 +7,10 @@ Locale::Language - ISO two letter codes for language identification (ISO 639) =head1 SYNOPSIS use Locale::Language; - + $lang = code2language('en'); # $lang gets 'English' $code = language2code('French'); # $code gets 'fr' - + @codes = all_language_codes(); @names = all_language_names(); @@ -173,7 +173,7 @@ The user is prompted for a language code, and then told the corresponding language name: $| = 1; # turn off buffering - + print "Enter language code: "; chop($code = <STDIN>); $lang = code2language($code); diff --git a/lib/Term/ANSIColor.pm b/lib/Term/ANSIColor.pm index b61efcb045..09ca297d33 100644 --- a/lib/Term/ANSIColor.pm +++ b/lib/Term/ANSIColor.pm @@ -187,7 +187,7 @@ Term::ANSIColor - Color screen output using ANSI escape sequences This module has two interfaces, one through color() and colored() and the other through constants. - + color() takes any number of strings as arguments and considers them to be space-separated lists of attributes. It then forms and returns the escape sequence to set those attributes. It doesn't print it out, just returns diff --git a/lib/Test.pm b/lib/Test.pm index 89b9cec43f..19a9089978 100644 --- a/lib/Test.pm +++ b/lib/Test.pm @@ -151,7 +151,7 @@ __END__ =head1 NAME - Test - provides a simple framework for writing test scripts +Test - provides a simple framework for writing test scripts =head1 SYNOPSIS diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 55a84fe066..73f3f79119 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -650,7 +650,7 @@ test program. =over 4 -=item B<1..M> +=item B<'1..M'> This header tells how many tests there will be. It should be the first line output by your test program (but its okay if its preceded diff --git a/lib/Text/Wrap.pm b/lib/Text/Wrap.pm index 579e09b395..3c88508b36 100644 --- a/lib/Text/Wrap.pm +++ b/lib/Text/Wrap.pm @@ -120,7 +120,7 @@ B<Example 2> $huge = 'overflow'; B<Example 3> - + use Text::Wrap $Text::Wrap::columns = 72; diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm index f4c6193596..5b8423e943 100644 --- a/lib/Tie/Array.pm +++ b/lib/Tie/Array.pm @@ -179,7 +179,7 @@ For developers wishing to write their own tied arrays, the required methods are briefly defined below. See the L<perltie> section for more detailed descriptive, as well as example code: -=over +=over 4 =item TIEARRAY classname, LIST diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm index 81b0792249..638cdf7861 100644 --- a/lib/Tie/Handle.pm +++ b/lib/Tie/Handle.pm @@ -33,7 +33,7 @@ For developers wishing to write their own tied-handle classes, the methods are summarized below. The L<perltie> section not only documents these, but has sample code as well: -=over +=over 4 =item TIEHANDLE classname, LIST diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm index 7399d8b853..3231155c81 100644 --- a/lib/Tie/Hash.pm +++ b/lib/Tie/Hash.pm @@ -10,24 +10,24 @@ Tie::Hash, Tie::StdHash - base class definitions for tied hashes package NewHash; require Tie::Hash; - + @ISA = (Tie::Hash); - + sub DELETE { ... } # Provides needed method sub CLEAR { ... } # Overrides inherited method - - + + package NewStdHash; require Tie::Hash; - + @ISA = (Tie::StdHash); - + # All methods provided by default, define only those needing overrides sub DELETE { ... } - - + + package main; - + tie %new_hash, 'NewHash'; tie %new_std_hash, 'NewStdHash'; @@ -46,7 +46,7 @@ For developers wishing to write their own tied hashes, the required methods are briefly defined below. See the L<perltie> section for more detailed descriptive, as well as example code: -=over +=over 4 =item TIEHASH classname, LIST diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm index 39480c8a28..bcaad0b11e 100644 --- a/lib/Tie/Scalar.pm +++ b/lib/Tie/Scalar.pm @@ -47,7 +47,7 @@ For developers wishing to write their own tied-scalar classes, the methods are summarized below. The L<perltie> section not only documents these, but has sample code as well: -=over +=over 4 =item TIESCALAR classname, LIST diff --git a/lib/User/pwent.pm b/lib/User/pwent.pm index edd5f51dc7..91d23bd3f6 100644 --- a/lib/User/pwent.pm +++ b/lib/User/pwent.pm @@ -287,7 +287,7 @@ Tom Christiansen =head1 HISTORY -=over +=over 4 =item March 18th, 2000 diff --git a/lib/autouse.pm b/lib/autouse.pm index 179c382ca2..5e4f30f649 100644 --- a/lib/autouse.pm +++ b/lib/autouse.pm @@ -116,7 +116,7 @@ with the correct definitions. Using C<autouse> will move important steps of your program's execution from compile time to runtime. This can -=over +=over 4 =item * diff --git a/lib/overload.pm b/lib/overload.pm index 21a4b671ff..d355f6aa85 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -267,7 +267,7 @@ is called with arguments C<($a,undef,'')> when $a++ is executed. Two types of mutators have different calling conventions: -=over +=over 4 =item C<++> and C<--> @@ -450,7 +450,7 @@ A computer-readable form of the above table is available in the hash Inheritance interacts with overloading in two ways. -=over +=over 4 =item Strings as values of C<use overload> directive @@ -1028,7 +1028,7 @@ reference to the intermediate array, which keeps a reference to an actual array, and the access hash. The tie()ing object for the access hash is a reference to a reference to the actual array, so -=over +=over 4 =item * @@ -1058,8 +1058,8 @@ Put this in F<symbolic.pm> in your Perl library directory: } This module is very unusual as overloaded modules go: it does not -provide any usual overloaded operators, instead it provides the L<Last -Resort> operator C<nomethod>. In this example the corresponding +provide any usual overloaded operators, instead it provides the +L<Last Resort> operator C<nomethod>. In this example the corresponding subroutine returns an object which encapsulates operations done over the objects: C<new symbolic 3> contains C<['n', 3]>, C<2 + new symbolic 3> contains C<['+', 2, ['n', 3]]>. diff --git a/os2/OS2/ExtAttr/ExtAttr.pm b/os2/OS2/ExtAttr/ExtAttr.pm index bebbcc963e..c8b462c70c 100644 --- a/os2/OS2/ExtAttr/ExtAttr.pm +++ b/os2/OS2/ExtAttr/ExtAttr.pm @@ -133,7 +133,7 @@ OS2::ExtAttr - Perl access to extended attributes. tie %ea, 'OS2::ExtAttr', 'my.file'; print $ea{eaname}; $ea{myfield} = 'value'; - + untie %ea; =head1 DESCRIPTION diff --git a/os2/OS2/Process/Process.pm b/os2/OS2/Process/Process.pm index 88de2bfad5..556732e155 100644 --- a/os2/OS2/Process/Process.pm +++ b/os2/OS2/Process/Process.pm @@ -128,14 +128,14 @@ C<file_type(file)>, get_title() and C<set_title(newtitle)> are implemented. my_type() returns the type of the current process (one of "FS", "DOS", "VIO", "PM", "DETACH" and "UNKNOWN"), or C<undef> on error. -=over +=over 4 =item C<file_type(file)> returns the type of the executable file C<file>, or dies on error. The bits 0-2 of the result contain one of the values -=over +=over 4 =item C<T_NOTSPEC> (0) @@ -158,7 +158,7 @@ Application type is window-API. The remaining bits should be masked with the following values to determine the type of the executable: -=over +=over 4 =item C<T_BOUND> (8) @@ -204,46 +204,46 @@ to suppress). returns a list of the following data: -=over +=over 4 -=item +=item * Title of the process (in the C<Ctrl-Esc> list); -=item +=item * window handle of switch entry of the process (in the C<Ctrl-Esc> list); -=item +=item * window handle of the icon of the process; -=item +=item * process handle of the owner of the entry in C<Ctrl-Esc> list; -=item +=item * process id of the owner of the entry in C<Ctrl-Esc> list; -=item +=item * session id of the owner of the entry in C<Ctrl-Esc> list; -=item +=item * whether visible in C<Ctrl-Esc> list; -=item +=item * whether item cannot be switched to (note that it is not actually grayed in the C<Ctrl-Esc> list)); -=item +=item * whether participates in jump sequence; -=item +=item * program type. Possible values are: @@ -263,7 +263,6 @@ is a windowed WIN-OS/2 program, it runs in a PROG_WINDOWEDVDM session. Likewise, if it's a full-screen WIN-OS/2 program, it runs in a PROG_VDM session. - =back =item C<set_title(newtitle)> |