--- a/Lib/IMPL/DOM/Navigator.pm	Fri Aug 28 16:26:20 2009 +0400
+++ b/Lib/IMPL/DOM/Navigator.pm	Wed Sep 02 17:47:44 2009 +0400
@@ -2,10 +2,78 @@
 use strict;
 use warnings;
 
-require Exporter;
-our @ISA = qw(Exporter);
-our @EXPORT_OK = qw();
+use base qw(IMPL::Object);
+use IMPL::Class::Property;
+use IMPL::Class::Property::Direct;
+BEGIN {
+    public _direct property Path => prop_get | owner_set;
+    public _direct property Current => prop_get | owner_set;
+}
+
+sub CTOR {
+    my ($this,$CurrentNode) = @_;
+    
+    $this->{$Current} = $CurrentNode or die IMPL::InvalidArgumentException("A starting node is a required paramater");
+}
 
+sub Navigate {
+    my ($this,$query) = @_;
+    
+    if ( my ($newNode) = $this->{$Current}->selectNodes($query) ) {
+        push @{$this->{$Path}}, $this->{$Current};
+        return $this->{$Current} = $newNode;
+    } else {
+        return undef;
+    }
+}
 
+sub Back {
+    my ($this) = @_;
+    
+    if ( my $newNode = $this->{$Path} ? pop @{$this->{$Path}} : undef ) {
+        return $this->{$Current} = $newNode;
+    } else {
+        return undef;
+    }
+}
+
+sub PathToString {
+    my $this = shift;
+    
+    join('/',map $_->nodeName, $this->{$Path} ? (@{$this->{$Path}}, $this->{$Current}) : $this->{$Current});
+}
 
 1;
+
+__END__
+=pod
+
+=head1 DESCRIPTION
+
+������ ��� �������� �� ������ DOM ��������.
+
+=head1 METHODS
+
+=over
+
+=item C<$obj->new($nodeStart)>
+
+������� ������ ���������� � ��������� ��������� ��������.
+
+=item C<$obj->Navigate($query)>
+
+������� � ����� ���� ��������� ������ C<$query>. �� ������ ������ �������� �����
+���� ������ ��� ���� � ����� ���� ������ ������ ����. ���� �� ������� ������ ��
+�������, ������� �� ����� �����������.
+
+���������� ���� ����� ���� � ������� �������, ���� C<undef>.
+
+=item C<$obj->Back()>
+
+������������ � ���������� ����, ���� ������� ����.
+
+���������� ���� ���� � ������� �������, ���� C<undef>.
+
+=back
+
+=cut
\ No newline at end of file