pub/Impl: Lib/IMPL/DOM/Navigator.pm comparison

code cleaning

comparison

equal deleted inserted replaced

-:2530d1bb9638
+:a4d9126edcbb
 if (my $current = $this->Current) {
 my @alternatives = $current->selectNodes($query);
 unless (@alternatives) {
-$current = $this->advanceNavigator or return undef;
+$current = $this->advanceNavigator or return;
 @alternatives = $current->selectNodes($query);
 }
 push @{$this->{$_path}},$this->{$_state};
 $this->{$_state} = {
 query => $query
 };
 $node = $alternatives[0];
 } else {
-return undef;
+return;
 }
 }
 $node;
 }
 if (@{$this->{$_state}{alternatives}} <= $this->{$_state}{current}) {
 if ( exists $this->{$_state}{query} ) {
 my $query = $this->{$_state}{query};
-$this->Back or return undef; # that meams the end of the history
+$this->Back or return; # that meams the end of the history
 undef while ( $this->advanceNavigator and not $this->Navigate($query));
 return $this->Current;
 }
-return undef;
+return;
 }
 return $this->Current;
 }
 $this->{$_state} = (splice @{$this->{$_path}},-$steps)[0];
 }
 $this->Current if defined wantarray;
 } else {
-return undef;
+return;
 }
 }
 sub PathToString {
 my ($this,$delim) = @_;
 my ($this,$index) = @_;
 if (my $state = $this->{$_path} ? $this->{$_path}->[$index] : undef ) {
 return $state->{alternatives}[$state->{current}]
 } else {
-return undef;
+return;
 }
 }
 sub clone {
 my ($this) = @_;
 $result = $transaction->();
 };
 if ($@) {
 $this->restoreState();
-return undef;
+return;
 } else {
 $this->applyState();
 return $result;
 }
 }

Mercurial > pub > Impl