javonet-ruby-sdk 2.5.14 → 2.5.15

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/Windows.pm

@@ -1,234 +0,0 @@
-package Module::Build::Platform::Windows;
-
-use strict;
-use warnings;
-our $VERSION = '0.4234';
-$VERSION = eval $VERSION;
-
-use Config;
-use File::Basename;
-use File::Spec;
-
-use Module::Build::Base;
-
-our @ISA = qw(Module::Build::Base);
-
-
-sub manpage_separator {
-    return '.';
-}
-
-sub have_forkpipe { 0 }
-
-sub _detildefy {
-  my ($self, $value) = @_;
-  $value =~ s,^~(?= [/\\] | $ ),$ENV{HOME},x
-    if $ENV{HOME};
-  return $value;
-}
-
-sub ACTION_realclean {
-  my ($self) = @_;
-
-  $self->SUPER::ACTION_realclean();
-
-  my $basename = basename($0);
-  $basename =~ s/(?:\.bat)?$//i;
-
-  if ( lc $basename eq lc $self->build_script ) {
-    if ( $self->build_bat ) {
-      $self->log_verbose("Deleting $basename.bat\n");
-      my $full_progname = $0;
-      $full_progname =~ s/(?:\.bat)?$/.bat/i;
-
-      # Voodoo required to have a batch file delete itself without error;
-      # Syntax differs between 9x & NT: the later requires a null arg (???)
-      require Win32;
-      my $null_arg = (Win32::IsWinNT()) ? '""' : '';
-      my $cmd = qq(start $null_arg /min "\%comspec\%" /c del "$full_progname");
-
-      open(my $fh, '>>', "$basename.bat")
-        or die "Can't create $basename.bat: $!";
-      print $fh $cmd;
-      close $fh ;
-    } else {
-      $self->delete_filetree($self->build_script . '.bat');
-    }
-  }
-}
-
-sub make_executable {
-  my $self = shift;
-
-  $self->SUPER::make_executable(@_);
-
-  foreach my $script (@_) {
-
-    # Native batch script
-    if ( $script =~ /\.(bat|cmd)$/ ) {
-      $self->SUPER::make_executable($script);
-      next;
-
-    # Perl script that needs to be wrapped in a batch script
-    } else {
-      my %opts = ();
-      if ( $script eq $self->build_script ) {
-        $opts{ntargs}    = q(-x -S %0 --build_bat %*);
-        $opts{otherargs} = q(-x -S "%0" --build_bat %1 %2 %3 %4 %5 %6 %7 %8 %9);
-      }
-
-      my $out = eval {$self->pl2bat(in => $script, update => 1, %opts)};
-      if ( $@ ) {
-        $self->log_warn("WARNING: Unable to convert file '$script' to an executable script:\n$@");
-      } else {
-        $self->SUPER::make_executable($out);
-      }
-    }
-  }
-}
-
-sub pl2bat {
-  my $self = shift;
-  my %opts = @_;
-  require ExtUtils::PL2Bat;
-  return ExtUtils::PL2Bat::pl2bat(%opts);
-}
-
-
-sub _quote_args {
-  # Returns a string that can become [part of] a command line with
-  # proper quoting so that the subprocess sees this same list of args.
-  my ($self, @args) = @_;
-
-  my @quoted;
-
-  for (@args) {
-    if ( /^[^\s*?!\$<>;|'"\[\]\{\}]+$/ ) {
-      # Looks pretty safe
-      push @quoted, $_;
-    } else {
-      # XXX this will obviously have to improve - is there already a
-      # core module lying around that does proper quoting?
-      s/"/\\"/g;
-      push @quoted, qq("$_");
-    }
-  }
-
-  return join " ", @quoted;
-}
-
-
-sub split_like_shell {
-  # As it turns out, Windows command-parsing is very different from
-  # Unix command-parsing.  Double-quotes mean different things,
-  # backslashes don't necessarily mean escapes, and so on.  So we
-  # can't use Text::ParseWords::shellwords() to break a command string
-  # into words.  The algorithm below was bashed out by Randy and Ken
-  # (mostly Randy), and there are a lot of regression tests, so we
-  # should feel free to adjust if desired.
-
-  (my $self, local $_) = @_;
-
-  return @$_ if defined() && ref() eq 'ARRAY';
-
-  my @argv;
-  return @argv unless defined() && length();
-
-  my $length = length;
-  m/\G\s*/gc;
-
-  ARGS: until ( pos == $length ) {
-    my $quote_mode;
-    my $arg = '';
-    CHARS: until ( pos == $length ) {
-      if ( m/\G((?:\\\\)+)(?=\\?(")?)/gc ) {
-          if (defined $2) {
-              $arg .= '\\' x (length($1) / 2);
-          }
-          else {
-              $arg .= $1;
-          }
-      }
-      elsif ( m/\G\\"/gc ) {
-        $arg .= '"';
-      }
-      elsif ( m/\G"/gc ) {
-        if ( $quote_mode && m/\G"/gc ) {
-            $arg .= '"';
-        }
-        $quote_mode = !$quote_mode;
-      }
-      elsif ( !$quote_mode && m/\G\s+/gc ) {
-        last;
-      }
-      elsif ( m/\G(.)/sgc ) {
-        $arg .= $1;
-      }
-    }
-    push @argv, $arg;
-  }
-
-  return @argv;
-}
-
-
-# system(@cmd) does not like having double-quotes in it on Windows.
-# So we quote them and run it as a single command.
-sub do_system {
-  my ($self, @cmd) = @_;
-
-  my $cmd = $self->_quote_args(@cmd);
-  my $status = system($cmd);
-  if ($status and $! =~ /Argument list too long/i) {
-    my $env_entries = '';
-    foreach (sort keys %ENV) { $env_entries .= "$_=>".length($ENV{$_})."; " }
-    warn "'Argument list' was 'too long', env lengths are $env_entries";
-  }
-  return !$status;
-}
-
-# Copied from ExtUtils::MM_Win32
-sub _maybe_command {
-    my($self,$file) = @_;
-    my @e = exists($ENV{'PATHEXT'})
-          ? split(/;/, $ENV{PATHEXT})
-	  : qw(.com .exe .bat .cmd);
-    my $e = '';
-    for (@e) { $e .= "\Q$_\E|" }
-    chop $e;
-    # see if file ends in one of the known extensions
-    if ($file =~ /($e)$/i) {
-	return $file if -e $file;
-    }
-    else {
-	for (@e) {
-	    return "$file$_" if -e "$file$_";
-	}
-    }
-    return;
-}
-
-
-1;
-
-__END__
-
-=head1 NAME
-
-Module::Build::Platform::Windows - Builder class for Windows platforms
-
-=head1 DESCRIPTION
-
-The sole purpose of this module is to inherit from
-C<Module::Build::Base> and override a few methods.  Please see
-L<Module::Build> for the docs.
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams@cpan.org>, Randy W. Sims <RandyS@ThePierianSpring.org>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3)
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/aix.pm

@@ -1,39 +0,0 @@
-package Module::Build::Platform::aix;
-
-use strict;
-use warnings;
-our $VERSION = '0.4234';
-$VERSION = eval $VERSION;
-use Module::Build::Platform::Unix;
-
-our @ISA = qw(Module::Build::Platform::Unix);
-
-# This class isn't necessary anymore, but we can't delete it, because
-# some people might still have the old copy in their @INC, containing
-# code we don't want to execute, so we have to make sure an upgrade
-# will replace it with this empty subclass.
-
-1;
-__END__
-
-
-=head1 NAME
-
-Module::Build::Platform::aix - Builder class for AIX platform
-
-=head1 DESCRIPTION
-
-This module provides some routines very specific to the AIX
-platform.
-
-Please see the L<Module::Build> for the general docs.
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams@cpan.org>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/cygwin.pm

@@ -1,54 +0,0 @@
-package Module::Build::Platform::cygwin;
-
-use strict;
-use warnings;
-our $VERSION = '0.4234';
-$VERSION = eval $VERSION;
-use Module::Build::Platform::Unix;
-
-our @ISA = qw(Module::Build::Platform::Unix);
-
-sub manpage_separator {
-   '.'
-}
-
-# Copied from ExtUtils::MM_Cygwin::maybe_command()
-# If our path begins with F</cygdrive/> then we use the Windows version
-# to determine if it may be a command.  Otherwise we use the tests
-# from C<ExtUtils::MM_Unix>.
-
-sub _maybe_command {
-    my ($self, $file) = @_;
-
-    if ($file =~ m{^/cygdrive/}i) {
-        require Module::Build::Platform::Windows;
-        return Module::Build::Platform::Windows->_maybe_command($file);
-    }
-
-    return $self->SUPER::_maybe_command($file);
-}
-
-1;
-__END__
-
-
-=head1 NAME
-
-Module::Build::Platform::cygwin - Builder class for Cygwin platform
-
-=head1 DESCRIPTION
-
-This module provides some routines very specific to the cygwin
-platform.
-
-Please see the L<Module::Build> for the general docs.
-
-=head1 AUTHOR
-
-Initial stub by Yitzchak Scott-Thoennes <sthoenna@efn.org>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/darwin.pm

@@ -1,39 +0,0 @@
-package Module::Build::Platform::darwin;
-
-use strict;
-use warnings;
-our $VERSION = '0.4234';
-$VERSION = eval $VERSION;
-use Module::Build::Platform::Unix;
-
-our @ISA = qw(Module::Build::Platform::Unix);
-
-# This class isn't necessary anymore, but we can't delete it, because
-# some people might still have the old copy in their @INC, containing
-# code we don't want to execute, so we have to make sure an upgrade
-# will replace it with this empty subclass.
-
-1;
-__END__
-
-
-=head1 NAME
-
-Module::Build::Platform::darwin - Builder class for Mac OS X platform
-
-=head1 DESCRIPTION
-
-This module provides some routines very specific to the Mac OS X
-platform.
-
-Please see the L<Module::Build> for the general docs.
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams@cpan.org>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/os2.pm

@@ -1,48 +0,0 @@
-package Module::Build::Platform::os2;
-
-use strict;
-use warnings;
-our $VERSION = '0.4234';
-$VERSION = eval $VERSION;
-use Module::Build::Platform::Unix;
-
-our @ISA = qw(Module::Build::Platform::Unix);
-
-sub manpage_separator { '.' }
-
-sub have_forkpipe { 0 }
-
-# Copied from ExtUtils::MM_OS2::maybe_command
-sub _maybe_command {
-    my($self,$file) = @_;
-    $file =~ s,[/\\]+,/,g;
-    return $file if -x $file && ! -d _;
-    return "$file.exe" if -x "$file.exe" && ! -d _;
-    return "$file.cmd" if -x "$file.cmd" && ! -d _;
-    return;
-}
-
-1;
-__END__
-
-
-=head1 NAME
-
-Module::Build::Platform::os2 - Builder class for OS/2 platform
-
-=head1 DESCRIPTION
-
-This module provides some routines very specific to the OS/2
-platform.
-
-Please see the L<Module::Build> for the general docs.
-
-=head1 AUTHOR
-
-Ken Williams <kwilliams@cpan.org>
-
-=head1 SEE ALSO
-
-perl(1), Module::Build(3), ExtUtils::MakeMaker(3)
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/PodParser.pm

@@ -1,70 +0,0 @@
-package Module::Build::PodParser;
-
-use strict;
-use warnings;
-our $VERSION = '0.4234';
-$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 /^ =encoding \s+ (\S+)/ix;
-    binmode $fh, ":encoding($1)";
-    last;
-  }
-  seek $fh, 0, 0;
-
-  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} || [];
-}