npm - javonet-nodejs-sdk - Versions diffs - 2.0.1 → 2.0.5 - Mend

javonet-nodejs-sdk 2.0.1 → 2.0.5

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (940) hide show

package/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/Windows.pm DELETED Viewed

@@ -1,234 +0,0 @@
-package Module::Build::Platform::Windows;
-use strict;
-use warnings;
-our $VERSION = '0.4232';
-$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

package/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/aix.pm DELETED Viewed

@@ -1,39 +0,0 @@
-package Module::Build::Platform::aix;
-use strict;
-use warnings;
-our $VERSION = '0.4232';
-$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

package/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/cygwin.pm DELETED Viewed

@@ -1,54 +0,0 @@
-package Module::Build::Platform::cygwin;
-use strict;
-use warnings;
-our $VERSION = '0.4232';
-$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

package/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/darwin.pm DELETED Viewed

@@ -1,39 +0,0 @@
-package Module::Build::Platform::darwin;
-use strict;
-use warnings;
-our $VERSION = '0.4232';
-$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

package/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/Platform/os2.pm DELETED Viewed

@@ -1,48 +0,0 @@
-package Module::Build::Platform::os2;
-use strict;
-use warnings;
-our $VERSION = '0.4232';
-$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

package/Binaries/Perl/Linux/X64/deps/lib/perl5/Module/Build/PodParser.pm DELETED Viewed

@@ -1,63 +0,0 @@
-package Module::Build::PodParser;
-use strict;
-use warnings;
-our $VERSION = '0.4232';
-$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} || [];
-}