summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Benchmark.pm6
-rw-r--r--lib/Class/Struct.pm32
-rw-r--r--lib/DB.pm6
-rw-r--r--lib/DBM_Filter.pm2
-rw-r--r--lib/DBM_Filter/compress.pm2
-rw-r--r--lib/DBM_Filter/encode.pm2
-rw-r--r--lib/DBM_Filter/int32.pm2
-rw-r--r--lib/DBM_Filter/null.pm2
-rw-r--r--lib/DBM_Filter/utf8.pm4
-rw-r--r--lib/English.pm5
-rw-r--r--lib/ExtUtils/XSSymSet.pm3
-rw-r--r--lib/File/Basename.pm16
-rw-r--r--lib/Getopt/Std.pm3
-rw-r--r--lib/PerlIO.pm5
-rw-r--r--lib/Tie/Array.pm8
-rw-r--r--lib/Tie/Hash.pm10
-rw-r--r--lib/Tie/Scalar.pm3
-rw-r--r--lib/deprecate.pm4
-rw-r--r--lib/integer.pm2
-rw-r--r--lib/perl5db.pl3
-rw-r--r--lib/strict.pm6
-rw-r--r--lib/version.pod4
-rw-r--r--lib/version/Internals.pod3
-rw-r--r--lib/vmsish.pm6
24 files changed, 77 insertions, 62 deletions
diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index f507efa907..836669c523 100644
--- a/lib/Benchmark.pm
+++ b/lib/Benchmark.pm
@@ -221,7 +221,8 @@ difference between each pair of tests.
C<cmpthese> can also be passed the data structure that timethese() returns:
- $results = timethese( -1, { a => "++\$i", b => "\$i *= 2" } ) ;
+ $results = timethese( -1,
+ { a => "++\$i", b => "\$i *= 2" } ) ;
cmpthese( $results );
in case you want to see both sets of results.
@@ -231,7 +232,8 @@ that is RESULTSHASHREF; otherwise that is COUNT.
Returns a reference to an ARRAY of rows, each row is an ARRAY of cells from the
above chart, including labels. This:
- my $rows = cmpthese( -1, { a => '++$i', b => '$i *= 2' }, "none" );
+ my $rows = cmpthese( -1,
+ { a => '++$i', b => '$i *= 2' }, "none" );
returns a data structure like:
diff --git a/lib/Class/Struct.pm b/lib/Class/Struct.pm
index ecb623199f..0bd04863e3 100644
--- a/lib/Class/Struct.pm
+++ b/lib/Class/Struct.pm
@@ -262,10 +262,11 @@ Class::Struct - declare struct-like datatypes as Perl classes
struct( ELEMENT_NAME => ELEMENT_TYPE, ... );
# Declare struct at compile time
- use Class::Struct CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ];
- use Class::Struct CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE, ... };
+ use Class::Struct CLASS_NAME => [ELEMENT_NAME => ELEMENT_TYPE, ...];
+ use Class::Struct CLASS_NAME => {ELEMENT_NAME => ELEMENT_TYPE, ...};
- # declare struct at compile time, based on array, implicit class name:
+ # declare struct at compile time, based on array, implicit
+ # class name:
package CLASS_NAME;
use Class::Struct ELEMENT_NAME => ELEMENT_TYPE, ... ;
@@ -475,11 +476,12 @@ type C<Timeval>.
tv_usecs => '$', # microseconds
]);
- # create an object:
- my $t = Rusage->new(ru_utime=>Timeval->new(), ru_stime=>Timeval->new());
+ # create an object:
+ my $t = Rusage->new(ru_utime=>Timeval->new(),
+ ru_stime=>Timeval->new());
- # $t->ru_utime and $t->ru_stime are objects of type Timeval.
- # set $t->ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec.
+ # $t->ru_utime and $t->ru_stime are objects of type Timeval.
+ # set $t->ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec.
$t->ru_utime->tv_secs(100);
$t->ru_utime->tv_usecs(0);
$t->ru_stime->tv_secs(5);
@@ -549,16 +551,16 @@ that are passed on to the nested struct's constructor.
];
- my $cat = Cat->new( name => 'Socks',
- kittens => ['Monica', 'Kenneth'],
- markings => { socks=>1, blaze=>"white" },
- breed => Breed->new(name=>'short-hair', cross=>1),
- or: breed => {name=>'short-hair', cross=>1},
+ my $cat = Cat->new( name => 'Socks',
+ kittens => ['Monica', 'Kenneth'],
+ markings => { socks=>1, blaze=>"white" },
+ breed => Breed->new(name=>'short-hair', cross=>1),
+ or: breed => {name=>'short-hair', cross=>1},
);
print "Once a cat called ", $cat->name, "\n";
print "(which was a ", $cat->breed->name, ")\n";
- print "had two kittens: ", join(' and ', @{$cat->kittens}), "\n";
+ print "had 2 kittens: ", join(' and ', @{$cat->kittens}), "\n";
=back
@@ -629,7 +631,7 @@ Originally C<Class::Template> by Dean Roehrich.
# - Now using my() rather than local().
#
# Uses perl5 classes to create nested data types.
- # This is offered as one implementation of Tom Christiansen's "structs.pl"
- # idea.
+ # This is offered as one implementation of Tom Christiansen's
+ # "structs.pl" idea.
=cut
diff --git a/lib/DB.pm b/lib/DB.pm
index 63e6f10f4d..c183d127d7 100644
--- a/lib/DB.pm
+++ b/lib/DB.pm
@@ -559,7 +559,8 @@ DB - programmatic interface to the Perl debugging API
CLIENT->register() # register a client package name
CLIENT->done() # de-register from the debugging API
CLIENT->skippkg('hide::hide') # ask DB not to stop in this package
- CLIENT->cont([WHERE]) # run some more (until BREAK or another breakpt)
+ CLIENT->cont([WHERE]) # run some more (until BREAK or
+ # another breakpointt)
CLIENT->step() # single step
CLIENT->next() # step over
CLIENT->ret() # return from current subroutine
@@ -588,7 +589,8 @@ DB - programmatic interface to the Perl debugging API
CLIENT->stop(FILE,LINE) # when execution stops
CLIENT->idle() # while stopped (can be a client event loop)
CLIENT->cleanup() # just before exit
- CLIENT->output(LIST) # called to print any output that API must show
+ CLIENT->output(LIST) # called to print any output that
+ # the API must show
=head1 DESCRIPTION
diff --git a/lib/DBM_Filter.pm b/lib/DBM_Filter.pm
index 3421848eca..07a501e8c3 100644
--- a/lib/DBM_Filter.pm
+++ b/lib/DBM_Filter.pm
@@ -230,7 +230,7 @@ DBM_Filter -- Filter DBM keys/values
=head1 SYNOPSIS
use DBM_Filter ;
- use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
+ use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
$db = tie %hash, ...
diff --git a/lib/DBM_Filter/compress.pm b/lib/DBM_Filter/compress.pm
index b9f7dea92b..73315594db 100644
--- a/lib/DBM_Filter/compress.pm
+++ b/lib/DBM_Filter/compress.pm
@@ -29,7 +29,7 @@ DBM_Filter::compress - filter for DBM_Filter
=head1 SYNOPSIS
- use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
+ use SDBM_File; # or DB_File, GDBM_File, NDBM_File, ODBM_File
use DBM_Filter ;
$db = tie %hash, ...
diff --git a/lib/DBM_Filter/encode.pm b/lib/DBM_Filter/encode.pm
index fedb692811..5da7b354fc 100644
--- a/lib/DBM_Filter/encode.pm
+++ b/lib/DBM_Filter/encode.pm
@@ -46,7 +46,7 @@ DBM_Filter::encode - filter for DBM_Filter
=head1 SYNOPSIS
- use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
+ use SDBM_File; # or DB_File, GDBM_File, NDBM_File, ODBM_File
use DBM_Filter ;
$db = tie %hash, ...
diff --git a/lib/DBM_Filter/int32.pm b/lib/DBM_Filter/int32.pm
index d8fa5424af..916523f634 100644
--- a/lib/DBM_Filter/int32.pm
+++ b/lib/DBM_Filter/int32.pm
@@ -29,7 +29,7 @@ DBM_Filter::int32 - filter for DBM_Filter
=head1 SYNOPSIS
- use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
+ use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
use DBM_Filter ;
$db = tie %hash, ...
diff --git a/lib/DBM_Filter/null.pm b/lib/DBM_Filter/null.pm
index ffa10e92f2..fa63945ae5 100644
--- a/lib/DBM_Filter/null.pm
+++ b/lib/DBM_Filter/null.pm
@@ -27,7 +27,7 @@ DBM_Filter::null - filter for DBM_Filter
=head1 SYNOPSIS
- use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
+ use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
use DBM_Filter ;
$db = tie %hash, ...
diff --git a/lib/DBM_Filter/utf8.pm b/lib/DBM_Filter/utf8.pm
index 677e66156b..f13fd8b6b4 100644
--- a/lib/DBM_Filter/utf8.pm
+++ b/lib/DBM_Filter/utf8.pm
@@ -28,8 +28,8 @@ DBM_Filter::utf8 - filter for DBM_Filter
=head1 SYNOPSIS
- use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
- use DBM_Filter ;
+ use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
+ use DBM_Filter;
$db = tie %hash, ...
$db->Filter_Push('utf8');
diff --git a/lib/English.pm b/lib/English.pm
index f629068d4a..a1da7046ea 100644
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -12,8 +12,9 @@ English - use nice English (or awk) names for ugly punctuation variables
=head1 SYNOPSIS
use English;
- use English qw( -no_match_vars ) ; # Avoids regex performance penalty
- # in perl 5.16 and earlier
+ use English qw( -no_match_vars ) ; # Avoids regex performance
+ # penalty in perl 5.16 and
+ # earlier
...
if ($ERRNO =~ /denied/) { ... }
diff --git a/lib/ExtUtils/XSSymSet.pm b/lib/ExtUtils/XSSymSet.pm
index 7ef2df39b2..1aee2d7f2b 100644
--- a/lib/ExtUtils/XSSymSet.pm
+++ b/lib/ExtUtils/XSSymSet.pm
@@ -143,7 +143,8 @@ ExtUtils::XSSymSet - keep sets of symbol names palatable to the VMS linker
$set = new ExtUtils::XSSymSet;
while ($sym = make_symbol()) { $set->addsym($sym); }
foreach $safesym ($set->all_trimmed) {
- print "Processing $safesym (derived from ",$self->get_orig($safesym),")\n";
+ print "Processing $safesym (derived from ",
+ $self->get_orig($safesym), ")\n";
do_stuff($safesym);
}
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm
index ad98d24d19..4783192035 100644
--- a/lib/File/Basename.pm
+++ b/lib/File/Basename.pm
@@ -64,14 +64,14 @@ fileparse_set_fstype($^O);
=item C<fileparse>
X<fileparse>
- my($filename, $directories, $suffix) = fileparse($path);
- my($filename, $directories, $suffix) = fileparse($path, @suffixes);
- my $filename = fileparse($path, @suffixes);
+ my($filename, $dirs, $suffix) = fileparse($path);
+ my($filename, $dirs, $suffix) = fileparse($path, @suffixes);
+ my $filename = fileparse($path, @suffixes);
-The C<fileparse()> routine divides a file path into its $directories, $filename
+The C<fileparse()> routine divides a file path into its $dirs, $filename
and (optionally) the filename $suffix.
-$directories contains everything up to and including the last
+$dirs contains everything up to and including the last
directory separator in the $path including the volume (if applicable).
The remainder of the $path is the $filename.
@@ -95,7 +95,7 @@ If type is non-Unix (see L</fileparse_set_fstype>) then the pattern
matching for suffix removal is performed case-insensitively, since
those systems are not case-sensitive when opening existing files.
-You are guaranteed that C<$directories . $filename . $suffix> will
+You are guaranteed that C<$dirs . $filename . $suffix> will
denote the same location as the original $path.
=cut
@@ -250,10 +250,10 @@ C<fileparse()>.
Only on VMS (where there is no ambiguity between the file and directory
portions of a path) and AmigaOS (possibly due to an implementation quirk in
this module) does C<dirname()> work like C<fileparse($path)>, returning just the
-$directories.
+$dirs.
# On VMS and AmigaOS
- my $directories = dirname($path);
+ my $dirs = dirname($path);
When using Unix or MSDOS syntax this emulates the C<dirname(1)> shell function
which is subtly different from how C<fileparse()> works. It returns all but
diff --git a/lib/Getopt/Std.pm b/lib/Getopt/Std.pm
index 01968b39e8..2f0f659283 100644
--- a/lib/Getopt/Std.pm
+++ b/lib/Getopt/Std.pm
@@ -13,7 +13,8 @@ getopt, getopts - Process single-character switches with switch clustering
getopts('oif:'); # -o & -i are boolean flags, -f takes an argument
# Sets $opt_* as a side effect.
getopts('oif:', \%opts); # options as above. Values in %opts
- getopt('oDI'); # -o, -D & -I take arg. Sets $opt_* as a side effect.
+ getopt('oDI'); # -o, -D & -I take arg.
+ # Sets $opt_* as a side effect.
getopt('oDI', \%opts); # -o, -D & -I take arg. Values in %opts
=head1 DESCRIPTION
diff --git a/lib/PerlIO.pm b/lib/PerlIO.pm
index c94685bbf9..f45116f990 100644
--- a/lib/PerlIO.pm
+++ b/lib/PerlIO.pm
@@ -35,9 +35,10 @@ PerlIO - On demand loader for PerlIO layers and root of PerlIO::* name space
=head1 SYNOPSIS
- open($fh,"<:crlf", "my.txt"); # support platform-native and CRLF text files
+ open($fh, "<:crlf", "my.txt"); # support platform-native and
+ # CRLF text files
- open($fh,"<","his.jpg"); # portably open a binary file for reading
+ open($fh, "<", "his.jpg"); # portably open a binary file for reading
binmode($fh);
Shell:
diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm
index 767cfdd77a..aa8cd4099e 100644
--- a/lib/Tie/Array.pm
+++ b/lib/Tie/Array.pm
@@ -128,10 +128,10 @@ Tie::Array - base class for tied arrays
sub FETCH { ... }
sub FETCHSIZE { ... }
- sub STORE { ... } # mandatory if elements writeable
- sub STORESIZE { ... } # mandatory if elements can be added/deleted
- sub EXISTS { ... } # mandatory if exists() expected to work
- sub DELETE { ... } # mandatory if delete() expected to work
+ sub STORE { ... } # mandatory if elements writeable
+ sub STORESIZE { ... } # mandatory if elements can be added/deleted
+ sub EXISTS { ... } # mandatory if exists() expected to work
+ sub DELETE { ... } # mandatory if delete() expected to work
# optional methods - for efficiency
sub CLEAR { ... }
diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm
index 1acd829c34..d944cd1f72 100644
--- a/lib/Tie/Hash.pm
+++ b/lib/Tie/Hash.pm
@@ -22,7 +22,8 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes
@ISA = qw(Tie::StdHash);
- # All methods provided by default, define only those needing overrides
+ # All methods provided by default, define
+ # only those needing overrides
# Accessors access the storage in %{$_[0]};
# TIEHASH should return a reference to the actual storage
sub DELETE { ... }
@@ -32,10 +33,11 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes
@ISA = qw(Tie::ExtraHash);
- # All methods provided by default, define only those needing overrides
+ # All methods provided by default, define
+ # only those needing overrides
# Accessors access the storage in %{$_[0][0]};
- # TIEHASH should return an array reference with the first element being
- # the reference to the actual storage
+ # TIEHASH should return an array reference with the first element
+ # being the reference to the actual storage
sub DELETE {
$_[0][1]->('del', $_[0][0], $_[1]); # Call the report writer
delete $_[0][0]->{$_[1]}; # $_[0]->SUPER::DELETE($_[1])
diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm
index 24e4ae79c3..48bd9ac6e9 100644
--- a/lib/Tie/Scalar.pm
+++ b/lib/Tie/Scalar.pm
@@ -22,7 +22,8 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars
@ISA = qw(Tie::StdScalar);
- # All methods provided by default, so define only what needs be overridden
+ # All methods provided by default, so define
+ # only what needs be overridden
sub FETCH { ... }
diff --git a/lib/deprecate.pm b/lib/deprecate.pm
index 7562c698f8..9d7436e5fe 100644
--- a/lib/deprecate.pm
+++ b/lib/deprecate.pm
@@ -75,9 +75,9 @@ deprecate - Perl pragma for deprecating the core version of a module
=head1 SYNOPSIS
- use deprecate; # always deprecate the module in which this occurs
+ use deprecate; # always deprecate the module in which this occurs
- use if $] > 5.010, 'deprecate'; # conditionally deprecate the module
+ use if $] > 5.010, 'deprecate'; # conditionally deprecate the module
=head1 DESCRIPTION
diff --git a/lib/integer.pm b/lib/integer.pm
index caa1ea6951..df39e76248 100644
--- a/lib/integer.pm
+++ b/lib/integer.pm
@@ -38,7 +38,7 @@ integers, i.e., -(2**31) .. (2**31-1) on 32-bit architectures, and
$z = 2.7;
$a = 2**31 - 1; # Largest positive integer on 32-bit machines
$, = ", ";
- print $x, -$x, $x + $y, $x - $y, $x / $y, $x * $y, $y == $z, $a, $a + 1;
+ print $x, -$x, $x+$y, $x-$y, $x/$y, $x*$y, $y==$z, $a, $a+1;
will print: 5.8, -5, 7, 3, 2, 10, 1, 2147483647, -2147483648
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index ee272a84bc..a26151b5e8 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1362,7 +1362,8 @@ the R command stuffed into the environment variables.
PERLDB_RESTART - flag only, contains no restart data itself.
PERLDB_HIST - command history, if it's available
PERLDB_ON_LOAD - breakpoints set by the rc file
- PERLDB_POSTPONE - subs that have been loaded/not executed, and have actions
+ PERLDB_POSTPONE - subs that have been loaded/not executed,
+ and have actions
PERLDB_VISITED - files that had breakpoints
PERLDB_FILE_... - breakpoints for a file
PERLDB_OPT - active options
diff --git a/lib/strict.pm b/lib/strict.pm
index 63a89dd8f4..5093e8c831 100644
--- a/lib/strict.pm
+++ b/lib/strict.pm
@@ -129,9 +129,9 @@ is a simple identifier (no colons) and that it appears in curly braces or
on the left hand side of the C<< => >> symbol.
use strict 'subs';
- $SIG{PIPE} = Plumber; # blows up
- $SIG{PIPE} = "Plumber"; # just fine: quoted string is always ok
- $SIG{PIPE} = \&Plumber; # preferred form
+ $SIG{PIPE} = Plumber; # blows up
+ $SIG{PIPE} = "Plumber"; # fine: quoted string is always ok
+ $SIG{PIPE} = \&Plumber; # preferred form
=back
diff --git a/lib/version.pod b/lib/version.pod
index f4328f5439..40ceee2063 100644
--- a/lib/version.pod
+++ b/lib/version.pod
@@ -17,7 +17,7 @@ version - Perl extension for Version Objects
# Declaring an old-style decimal $VERSION (use quotes!)
- our $VERSION = "1.0203"; # recommended
+ our $VERSION = "1.0203"; # recommended
use version; our $VERSION = version->parse("1.0203"); # formal
use version; our $VERSION = version->parse("1.02_03"); # alpha
@@ -251,7 +251,7 @@ True if and only if the version object was created with a underscore, e.g.
True only if the version object is a dotted-decimal version, e.g.
- version->parse('v1.2.0')->is_qv; # TRUE
+ version->parse('v1.2.0')->is_qv; # TRUE
version->declare('v1.2')->is_qv; # TRUE
qv('1.2')->is_qv; # TRUE
version->parse('1.2')->is_qv; # FALSE
diff --git a/lib/version/Internals.pod b/lib/version/Internals.pod
index f2b3e81475..d0b2c13da4 100644
--- a/lib/version/Internals.pod
+++ b/lib/version/Internals.pod
@@ -548,7 +548,8 @@ a normalized or reduced form (no extraneous zeros), and with a leading 'v':
print $ver->stringify; # ditto
print $ver; # ditto
print $nver->normal; # prints as v1.2.0
- print $nver->stringify; # prints as 1.002, see "Stringification"
+ print $nver->stringify; # prints as 1.002,
+ # see "Stringification"
In order to preserve the meaning of the processed version, the
normalized representation will always contain at least three sub terms.
diff --git a/lib/vmsish.pm b/lib/vmsish.pm
index 653f840562..0dd24b7f12 100644
--- a/lib/vmsish.pm
+++ b/lib/vmsish.pm
@@ -60,12 +60,12 @@ symbol $STATUS will still have the termination status, but with a
high-order bit set:
EXAMPLE:
- $ perl -e"exit 44;" Non-hushed error exit
- %SYSTEM-F-ABORT, abort DCL message
+ $ perl -e"exit 44;" Non-hushed error exit
+ %SYSTEM-F-ABORT, abort DCL message
$ show sym $STATUS
$STATUS == "%X0000002C"
- $ perl -e"use vmsish qw(hushed); exit 44;" Hushed error exit
+ $ perl -e"use vmsish qw(hushed); exit 44;" Hushed error exit
$ show sym $STATUS
$STATUS == "%X1000002C"
View Lorry Controller Status