diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2000-12-05 16:23:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-06 16:09:09 +0000 |
| commit | b75c8c73cd7f3c92a16e03fb046f4e2a99363bc7 (patch) | |
| tree | 5fb2cf9e3d6c40bda2bc9505b5cb8026acdb24dc /lib/Pod | |
| parent | d2ab394d8cfda924d5c38dd9722ad367a06ffeca (diff) | |
| download | perl-b75c8c73cd7f3c92a16e03fb046f4e2a99363bc7.tar.gz | |
$VERSION crusade, strict, tests, etc... all over lib/
Message-ID: <20001205212328.C6473@blackrider.aocn.com>
Carp::Heavy parts not very applicable because of recent changes.
p4raw-id: //depot/perl@8013
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Functions.pm | 20 | ||||
| -rw-r--r-- | lib/Pod/Html.pm | 1 |
2 files changed, 12 insertions, 9 deletions
diff --git a/lib/Pod/Functions.pm b/lib/Pod/Functions.pm index 44619d53d8..960b847394 100644 --- a/lib/Pod/Functions.pm +++ b/lib/Pod/Functions.pm @@ -2,12 +2,16 @@ package Pod::Functions; #:vi:set ts=20 +our $VERSION = '1.00'; + require Exporter; @ISA = qw(Exporter); @EXPORT = qw(%Kinds %Type %Flavor %Type_Description @Type_Order); -%Type_Description = ( +our(%Kinds, %Type, %Flavor); + +our %Type_Description = ( 'ARRAY' => 'Functions for real @ARRAYs', 'Binary' => 'Functions for fixed length data or records', 'File' => 'Functions for filehandles, files, or directories', @@ -30,7 +34,7 @@ require Exporter; 'Namespace' => 'Keywords altering or affecting scoping of identifiers', ); -@Type_Order = qw{ +our @Type_Order = qw{ String Regexp Math @@ -57,20 +61,20 @@ while (<DATA>) { chomp; s/#.*//; next unless $_; - ($name, $type, $text) = split " ", $_, 3; + my($name, $type, $text) = split " ", $_, 3; $Type{$name} = $type; $Flavor{$name} = $text; - for $type ( split /[,\s]+/, $type ) { - push @{$Kinds{$type}}, $name; + for my $t ( split /[,\s]+/, $type ) { + push @{$Kinds{$t}}, $name; } } close DATA; unless (caller) { - foreach $type ( @Type_Order ) { - $list = join(", ", sort @{$Kinds{$type}}); - $typedesc = $Type_Description{$type} . ":"; + foreach my $type ( @Type_Order ) { + my $list = join(", ", sort @{$Kinds{$type}}); + my $typedesc = $Type_Description{$type} . ":"; write; } } diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index f70a42bccc..43168231f3 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -12,7 +12,6 @@ use Config; use Cwd; use File::Spec::Unix; use Getopt::Long; -use Pod::Functions; use locale; # make \w work right in non-ASCII lands |