npm - javonet-nodejs-sdk - Versions diffs - 2.4.7 → 2.4.9 - Mend

javonet-nodejs-sdk 2.4.7 → 2.4.9

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 (934) hide show

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Cache.pm CHANGED Viewed

@@ -54,7 +54,7 @@ use Digest::MD5 2.35 ();
 use Params::Util     qw{_INSTANCE _SCALAR};
 use PPI::Document    ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 use constant VMS => !! ( $^O eq 'VMS' );

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Document/File.pm CHANGED Viewed

@@ -22,7 +22,7 @@ use Carp          ();
 use Params::Util  qw{_STRING _INSTANCE};
 use PPI::Document ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = 'PPI::Document';

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Document/Fragment.pm CHANGED Viewed

@@ -21,7 +21,7 @@ within it, and it does not represent a scope.
 use strict;
 use PPI::Document ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = 'PPI::Document';

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Document/Normalized.pm CHANGED Viewed

@@ -45,7 +45,7 @@ use Scalar::Util qw{refaddr reftype blessed};
 use Params::Util qw{_INSTANCE _ARRAY};
 use PPI::Util    ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 use overload 'bool' => \&PPI::Util::TRUE;
 use overload '=='   => 'equal';

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Document.pm CHANGED Viewed

@@ -75,7 +75,7 @@ use PPI::Node                     ();
 use overload 'bool' => \&PPI::Util::TRUE;
 use overload '""'   => 'content';
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our ( $errstr, @ISA ) = ( "", "PPI::Node" );

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Dumper.pm CHANGED Viewed

@@ -35,7 +35,7 @@ generate the dump content itself.
 use strict;
 use Params::Util qw{_INSTANCE};
-our $VERSION = '1.278';
+our $VERSION = '1.279';

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Element.pm CHANGED Viewed

@@ -25,12 +25,11 @@ use strict;
 use Clone 0.30      ();
 use Scalar::Util    qw{refaddr};
 use Params::Util    qw{_INSTANCE _ARRAY};
-use List::Util      ();
 use PPI::Util       ();
 use PPI::Node       ();
-use PPI::Singletons '%_PARENT';
+use PPI::Singletons '%_PARENT', '%_POSITION_CACHE';
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our $errstr = "";
@@ -259,9 +258,7 @@ sub next_sibling {
 	my $key      = refaddr $self;
 	my $parent   = $_PARENT{$key} or return '';
 	my $elements = $parent->{children};
-	my $position = List::Util::first {
-		refaddr $elements->[$_] == $key
-		} 0..$#$elements;
+	my $position = $parent->__position($self);
 	$elements->[$position + 1] || '';
 }
@@ -282,9 +279,7 @@ sub snext_sibling {
 	my $key      = refaddr $self;
 	my $parent   = $_PARENT{$key} or return '';
 	my $elements = $parent->{children};
-	my $position = List::Util::first {
-		refaddr $elements->[$_] == $key
-		} 0..$#$elements;
+	my $position = $parent->__position($self);
 	while ( defined(my $it = $elements->[++$position]) ) {
 		return $it if $it->significant;
 	}
@@ -307,9 +302,7 @@ sub previous_sibling {
 	my $key      = refaddr $self;
 	my $parent   = $_PARENT{$key} or return '';
 	my $elements = $parent->{children};
-	my $position = List::Util::first {
-		refaddr $elements->[$_] == $key
-		} 0..$#$elements;
+	my $position = $parent->__position($self);
 	$position and $elements->[$position - 1] or '';
 }
@@ -330,9 +323,7 @@ sub sprevious_sibling {
 	my $key      = refaddr $self;
 	my $parent   = $_PARENT{$key} or return '';
 	my $elements = $parent->{children};
-	my $position = List::Util::first {
-		refaddr $elements->[$_] == $key
-		} 0..$#$elements;
+	my $position = $parent->__position($self);
 	while ( $position-- and defined(my $it = $elements->[$position]) ) {
 		return $it if $it->significant;
 	}
@@ -844,8 +835,10 @@ sub _clear {
 # ->delete means our reference count has probably fallen to zero.
 # Therefore we don't need to remove ourselves from our parent,
 # just the index ( just in case ).
-### XS -> PPI/XS.xs:_PPI_Element__DESTROY 0.900+
-sub DESTROY { delete $_PARENT{refaddr $_[0]} }
+sub DESTROY {
+  delete $_PARENT{refaddr $_[0]};
+  delete $_POSITION_CACHE{refaddr $_[0]};
+}
 # Operator overloads
 sub __equals  { ref $_[1] and refaddr($_[0]) == refaddr($_[1]) }

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Exception/ParserRejection.pm CHANGED Viewed

@@ -3,7 +3,7 @@ package PPI::Exception::ParserRejection;
 use strict;
 use PPI::Exception ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = 'PPI::Exception';

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Exception.pm CHANGED Viewed

@@ -24,7 +24,7 @@ of this class.
 use strict;
 use Params::Util qw{_INSTANCE};
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 =head1 METHODS

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Find.pm CHANGED Viewed

@@ -74,7 +74,7 @@ caught by the Find object and returned as an error.
 use strict;
 use Params::Util qw{_INSTANCE};
-our $VERSION = '1.278';
+our $VERSION = '1.279';

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Lexer.pm CHANGED Viewed

@@ -60,7 +60,7 @@ use PPI             ();
 use PPI::Exception  ();
 use PPI::Singletons '%_PARENT';
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our $errstr = "";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Node.pm CHANGED Viewed

@@ -51,12 +51,11 @@ L<PPI::Element> objects also apply to C<PPI::Node> objects.
 use strict;
 use Carp            ();
 use Scalar::Util    qw{refaddr};
-use List::Util      ();
 use Params::Util    qw{_INSTANCE _CLASS _CODELIKE _NUMBER};
 use PPI::Element    ();
-use PPI::Singletons '%_PARENT';
+use PPI::Singletons '%_PARENT', '%_POSITION_CACHE';
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Element";
@@ -510,9 +509,7 @@ sub remove_child {
 	# Find the position of the child
 	my $key = refaddr $child;
-	my $p   = List::Util::first {
-		refaddr $self->{children}[$_] == $key
-	} 0..$#{$self->{children}};
+	my $p   = $self->__position($child);
 	return undef unless defined $p;
 	# Splice it out, and remove the child's parent entry
@@ -702,68 +699,74 @@ sub DESTROY {
 		}
 	}
-	# Remove us from our parent node as normal
-	delete $_PARENT{refaddr $_[0]};
+	$_[0]->SUPER::DESTROY;
 }
-# Find the position of a child
 sub __position {
-	my $key = refaddr $_[1];
-	List::Util::first { refaddr $_[0]{children}[$_] == $key } 0..$#{$_[0]{children}};
+	my ( $self, $child ) = @_;
+	my $key = refaddr $child;
+	return undef unless #
+		my $elements = $self->{children};
+	if (defined (my $position = $_POSITION_CACHE{$key})) {
+		my $maybe_child = $elements->[$position];
+		return $position if defined $maybe_child and refaddr $maybe_child == $key;
+	}
+	delete $_POSITION_CACHE{$key};
+	$_POSITION_CACHE{refaddr $elements->[$_]} = $_ for 0 .. $#{$elements};
+	return $_POSITION_CACHE{$key};
 }
 # Insert one or more elements before a child
 sub __insert_before_child {
-	my $self = shift;
-	my $key  = refaddr shift;
-	my $p    = List::Util::first {
-	         refaddr $self->{children}[$_] == $key
-	         } 0..$#{$self->{children}};
-	foreach ( @_ ) {
+	my ( $self, $child, @insertions ) = @_;
+	my $key  = refaddr $child;
+	my $p    = $self->__position($child);
+	foreach ( @insertions ) {
 		Scalar::Util::weaken(
 			$_PARENT{refaddr $_} = $self
 			);
 	}
-	splice( @{$self->{children}}, $p, 0, @_ );
+	splice( @{$self->{children}}, $p, 0, @insertions );
 	1;
 }
 # Insert one or more elements after a child
 sub __insert_after_child {
-	my $self = shift;
-	my $key  = refaddr shift;
-	my $p    = List::Util::first {
-	         refaddr $self->{children}[$_] == $key
-	         } 0..$#{$self->{children}};
-	foreach ( @_ ) {
+	my ( $self, $child, @insertions ) = @_;
+	my $key  = refaddr $child;
+	my $p    = $self->__position($child);
+	foreach ( @insertions ) {
 		Scalar::Util::weaken(
 			$_PARENT{refaddr $_} = $self
 			);
 	}
-	splice( @{$self->{children}}, $p + 1, 0, @_ );
+	splice( @{$self->{children}}, $p + 1, 0, @insertions );
 	1;
 }
 # Replace a child
 sub __replace_child {
-	my $self = shift;
-	my $old_child_addr  = refaddr shift;
+	my ( $self, $old_child, @replacements ) = @_;
+	my $old_child_addr  = refaddr $old_child;
 	# Cache parent of new children
-	my $old_child_index = List::Util::first {
-	         refaddr $self->{children}[$_] == $old_child_addr
-	         } 0..$#{$self->{children}};
+	my $old_child_index = $self->__position($old_child);
 	return undef if !defined $old_child_index;
-	foreach ( @_ ) {
+	foreach ( @replacements ) {
 		Scalar::Util::weaken(
 			$_PARENT{refaddr $_} = $self
 			);
 	}
 	# Replace old child with new children
-	splice( @{$self->{children}}, $old_child_index, 1, @_ );
+	splice( @{$self->{children}}, $old_child_index, 1, @replacements );
 	# Uncache parent of old child
 	delete $_PARENT{$old_child_addr};

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Normal/Standard.pm CHANGED Viewed

@@ -18,7 +18,7 @@ B<Move along, nothing to see here>.
 use strict;
-our $VERSION = '1.278';
+our $VERSION = '1.279';

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Normal.pm CHANGED Viewed

@@ -42,7 +42,7 @@ use PPI::Document::Normalized ();
 use PPI::Normal::Standard     ();
 use PPI::Singletons           '%LAYER';
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 # With the registration mechanism in place, load in the main set of
 # normalization methods to initialize the store.

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Singletons.pm CHANGED Viewed

@@ -5,12 +5,13 @@ package PPI::Singletons;
 use strict;
 use Exporter     ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA       = 'Exporter';
-our @EXPORT_OK = qw{ %_PARENT %OPERATOR %MAGIC %LAYER $CURLY_SYMBOL %QUOTELIKE %KEYWORDS };
+our @EXPORT_OK = qw{ %_PARENT %_POSITION_CACHE %OPERATOR %MAGIC %LAYER $CURLY_SYMBOL %QUOTELIKE %KEYWORDS };
 our %_PARENT; # Master Child -> Parent index
+our %_POSITION_CACHE; # cache for position in parent
 # operator index
 our %OPERATOR = map { $_ => 1 } (

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Break.pm CHANGED Viewed

@@ -40,7 +40,7 @@ to, or the structure to break out of.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Compound.pm CHANGED Viewed

@@ -53,7 +53,7 @@ standard L<PPI::Statement>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Data.pm CHANGED Viewed

@@ -43,7 +43,7 @@ Perl code itself.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/End.pm CHANGED Viewed

@@ -47,7 +47,7 @@ provided by L<PPI::Statement>, L<PPI::Node> and L<PPI::Element>.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Expression.pm CHANGED Viewed

@@ -38,7 +38,7 @@ provided by L<PPI::Statement>, L<PPI::Node> and L<PPI::Element>.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Given.pm CHANGED Viewed

@@ -34,7 +34,7 @@ standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Include/Perl6.pm CHANGED Viewed

@@ -41,7 +41,7 @@ string and will not be parsed by PPI.
 use strict;
 use PPI::Statement::Include ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement::Include";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Include.pm CHANGED Viewed

@@ -48,7 +48,7 @@ use strict;
 use PPI::Statement                 ();
 use PPI::Statement::Include::Perl6 ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Null.pm CHANGED Viewed

@@ -43,7 +43,7 @@ provided by L<PPI::Statement>, L<PPI::Node> and L<PPI::Element>.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Package.pm CHANGED Viewed

@@ -41,7 +41,7 @@ L<PPI::Statement>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Scheduled.pm CHANGED Viewed

@@ -56,7 +56,7 @@ may have 'sub' in front of them.
 use strict;
 use PPI::Statement::Sub ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement::Sub";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Sub.pm CHANGED Viewed

@@ -35,7 +35,7 @@ use List::Util     ();
 use Params::Util   qw{_INSTANCE};
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Unknown.pm CHANGED Viewed

@@ -35,7 +35,7 @@ L<PPI::Element>.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/UnmatchedBrace.pm CHANGED Viewed

@@ -47,7 +47,7 @@ L<PPI::Element>.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/Variable.pm CHANGED Viewed

@@ -42,7 +42,7 @@ use strict;
 use Params::Util               qw{_INSTANCE};
 use PPI::Statement::Expression ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement::Expression";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement/When.pm CHANGED Viewed

@@ -42,7 +42,7 @@ standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Statement ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Statement";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Statement.pm CHANGED Viewed

@@ -153,7 +153,7 @@ use PPI::Node      ();
 use PPI::Exception ();
 use PPI::Singletons '%_PARENT';
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Node";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/Block.pm CHANGED Viewed

@@ -43,7 +43,7 @@ standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/Condition.pm CHANGED Viewed

@@ -38,7 +38,7 @@ the standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/Constructor.pm CHANGED Viewed

@@ -33,7 +33,7 @@ the standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/For.pm CHANGED Viewed

@@ -34,7 +34,7 @@ standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/Given.pm CHANGED Viewed

@@ -34,7 +34,7 @@ standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/List.pm CHANGED Viewed

@@ -37,7 +37,7 @@ use strict;
 use Carp           ();
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/Subscript.pm CHANGED Viewed

@@ -39,7 +39,7 @@ standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/Unknown.pm CHANGED Viewed

@@ -40,7 +40,7 @@ standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure/When.pm CHANGED Viewed

@@ -34,7 +34,7 @@ standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
 use strict;
 use PPI::Structure ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Structure";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Structure.pm CHANGED Viewed

@@ -95,7 +95,7 @@ use PPI::Node      ();
 use PPI::Exception ();
 use PPI::Singletons '%_PARENT';
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Node";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/ArrayIndex.pm CHANGED Viewed

@@ -27,7 +27,7 @@ L<PPI::Token> and L<PPI::Element> classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Token";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Attribute.pm CHANGED Viewed

@@ -33,7 +33,7 @@ L<PPI::Token> and L<PPI::Element> parent classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Token";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/BOM.pm CHANGED Viewed

@@ -42,7 +42,7 @@ L<PPI::Token> and L<PPI::Element> classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Token";

package/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Cast.pm CHANGED Viewed

@@ -32,7 +32,7 @@ L<PPI::Token> and L<PPI::Element> classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.278';
+our $VERSION = '1.279';
 our @ISA = "PPI::Token";