Element.pm in javonet-ruby-sdk-2.1.9

- old
+ new

@@ -28,11 +28,11 @@
 use List::Util      ();
 use PPI::Util       ();
 use PPI::Node       ();
 use PPI::Singletons '%_PARENT';
 
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 
 our $errstr = "";
 
 use overload 'bool' => \&PPI::Util::TRUE;
 use overload '""'   => 'content';
@@ -254,12 +254,12 @@
 
 =cut
 
 sub next_sibling {
 	my $self     = shift;
-	my $parent   = $_PARENT{refaddr $self} or return '';
 	my $key      = refaddr $self;
+	my $parent   = $_PARENT{$key} or return '';
 	my $elements = $parent->{children};
 	my $position = List::Util::first {
 		refaddr $elements->[$_] == $key
 		} 0..$#$elements;
 	$elements->[$position + 1] || '';
@@ -277,12 +277,12 @@
 
 =cut
 
 sub snext_sibling {
 	my $self     = shift;
-	my $parent   = $_PARENT{refaddr $self} or return '';
 	my $key      = refaddr $self;
+	my $parent   = $_PARENT{$key} or return '';
 	my $elements = $parent->{children};
 	my $position = List::Util::first {
 		refaddr $elements->[$_] == $key
 		} 0..$#$elements;
 	while ( defined(my $it = $elements->[++$position]) ) {
@@ -302,12 +302,12 @@
 
 =cut
 
 sub previous_sibling {
 	my $self     = shift;
-	my $parent   = $_PARENT{refaddr $self} or return '';
 	my $key      = refaddr $self;
+	my $parent   = $_PARENT{$key} or return '';
 	my $elements = $parent->{children};
 	my $position = List::Util::first {
 		refaddr $elements->[$_] == $key
 		} 0..$#$elements;
 	$position and $elements->[$position - 1] or '';
@@ -325,11 +325,11 @@
 
 =cut
 
 sub sprevious_sibling {
 	my $self     = shift;
-	my $parent   = $_PARENT{refaddr $self} or return '';
 	my $key      = refaddr $self;
+	my $parent   = $_PARENT{$key} or return '';
 	my $elements = $parent->{children};
 	my $position = List::Util::first {
 		refaddr $elements->[$_] == $key
 		} 0..$#$elements;
 	while ( $position-- and defined(my $it = $elements->[$position]) ) {