summaryrefslogtreecommitdiff
path: root/ext/Pod-Html/lib
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2021-08-22 23:22:45 +0000
committerJames E Keenan <jkeenan@cpan.org>2021-08-23 01:47:47 +0000
commitb2a21b5cd49a33cd078c64d0918a98320fb79a77 (patch)
tree9e269bdc056bcbdaf711c4fb36ce5d2ae50f902a /ext/Pod-Html/lib
parentb33902f54359a709bf04c14e2458c127cf8d9b90 (diff)
downloadperl-b2a21b5cd49a33cd078c64d0918a98320fb79a77.tar.gz
Pod-Html: remove commented-out code
Make use of Exporter consistent.
Diffstat (limited to 'ext/Pod-Html/lib')
-rw-r--r--ext/Pod-Html/lib/Pod/Html.pm10
-rw-r--r--ext/Pod-Html/lib/Pod/Html/Util.pm3
2 files changed, 1 insertions, 12 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm
index 67084ce934..9b44a09173 100644
--- a/ext/Pod-Html/lib/Pod/Html.pm
+++ b/ext/Pod-Html/lib/Pod/Html.pm
@@ -24,7 +24,6 @@ use Pod::Html::Util qw(
relativize_url
);
use locale; # make \w work right in non-ASCII lands
-use Data::Dumper;
=head1 NAME
@@ -239,12 +238,6 @@ This program is distributed under the Artistic License.
=cut
-
-my $Podroot;
-
-#my %Pages = (); # associative array used to find the location
- # of pages referenced by L<> links.
-
sub new {
my $class = shift;
return bless {}, $class;
@@ -380,12 +373,10 @@ sub refine_globals {
# Is the above not just "$self->{Htmlfileurl} = $self->{Htmlfile}"?
$self->{Htmlfileurl} = unixify($self->{Htmlfile});
}
- #return $self;
return { %{$self} };
}
sub generate_cache {
- #my ($self, $Pagesref) = @_;
my $self = shift;
my $pwd = getcwd();
chdir($self->{Podroot}) ||
@@ -427,7 +418,6 @@ sub generate_cache {
print $cache "$key $self->{Pages}->{$key}\n";
}
close $cache or die "error closing $self->{Dircache}: $!";
- #return %{$Pagesref};
}
sub _transform {
diff --git a/ext/Pod-Html/lib/Pod/Html/Util.pm b/ext/Pod-Html/lib/Pod/Html/Util.pm
index 57153b604e..57fcab95cf 100644
--- a/ext/Pod-Html/lib/Pod/Html/Util.pm
+++ b/ext/Pod-Html/lib/Pod/Html/Util.pm
@@ -1,10 +1,9 @@
package Pod::Html::Util;
use strict;
-require Exporter;
+use Exporter 'import';
our $VERSION = 1.33; # Please keep in synch with lib/Pod/Html.pm
$VERSION = eval $VERSION;
-our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
anchorify
html_escape