summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl.straw/lib/Module/Build/PodParser.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/Module/Build/PodParser.pm')
-rwxr-xr-xMaster/tlpkg/tlperl.straw/lib/Module/Build/PodParser.pm106
1 files changed, 0 insertions, 106 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Module/Build/PodParser.pm b/Master/tlpkg/tlperl.straw/lib/Module/Build/PodParser.pm
deleted file mode 100755
index 225450c6b98..00000000000
--- a/Master/tlpkg/tlperl.straw/lib/Module/Build/PodParser.pm
+++ /dev/null
@@ -1,106 +0,0 @@
-package Module::Build::PodParser;
-
-use strict;
-use vars qw($VERSION);
-$VERSION = '0.3603';
-$VERSION = eval $VERSION;
-use vars qw(@ISA);
-
-sub new {
- # Perl is so fun.
- my $package = shift;
-
- my $self;
-
- # Try using Pod::Parser first
- if (eval{ require Pod::Parser; 1; }) {
- @ISA = qw(Pod::Parser);
- $self = $package->SUPER::new(@_);
- $self->{have_pod_parser} = 1;
- } else {
- @ISA = ();
- *parse_from_filehandle = \&_myparse_from_filehandle;
- $self = bless {have_pod_parser => 0, @_}, $package;
- }
-
- unless ($self->{fh}) {
- die "No 'file' or 'fh' parameter given" unless $self->{file};
- $self->{fh} = IO::File->new($self->{file}) or die "Couldn't open $self->{file}: $!";
- }
-
- return $self;
-}
-
-sub _myparse_from_filehandle {
- my ($self, $fh) = @_;
-
- local $_;
- while (<$fh>) {
- next unless /^=(?!cut)/ .. /^=cut/; # in POD
- last if ($self->{abstract}) = /^ (?: [a-z:]+ \s+ - \s+ ) (.*\S) /ix;
- }
-
- my @author;
- while (<$fh>) {
- next unless /^=head1\s+AUTHORS?/i ... /^=/;
- next if /^=/;
- push @author, $_ if /\@/;
- }
- return unless @author;
- s/^\s+|\s+$//g foreach @author;
-
- $self->{author} = \@author;
-
- return;
-}
-
-sub get_abstract {
- my $self = shift;
- return $self->{abstract} if defined $self->{abstract};
-
- $self->parse_from_filehandle($self->{fh});
-
- return $self->{abstract};
-}
-
-sub get_author {
- my $self = shift;
- return $self->{author} if defined $self->{author};
-
- $self->parse_from_filehandle($self->{fh});
-
- return $self->{author} || [];
-}
-
-################## Pod::Parser overrides ###########
-sub initialize {
- my $self = shift;
- $self->{_head} = '';
- $self->SUPER::initialize();
-}
-
-sub command {
- my ($self, $cmd, $text) = @_;
- if ( $cmd eq 'head1' ) {
- $text =~ s/^\s+//;
- $text =~ s/\s+$//;
- $self->{_head} = $text;
- }
-}
-
-sub textblock {
- my ($self, $text) = @_;
- $text =~ s/^\s+//;
- $text =~ s/\s+$//;
- if (uc $self->{_head} eq 'NAME') {
- my ($name, $abstract) = split( /\s+-\s+/, $text, 2 );
- $self->{abstract} = $abstract;
- } elsif ($self->{_head} =~ /^AUTHORS?$/i) {
- push @{$self->{author}}, $text if $text =~ /\@/;
- }
-}
-
-sub verbatim {}
-sub interior_sequence {}
-
-1;