annotate Lib/IMPL/DOM/Navigator.pm @ 32:56cef8e3cda6

+1
author Sergey
date Mon, 09 Nov 2009 01:39:31 +0300
parents 7f00786f8210
children a8086f85a571
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
1 package IMPL::DOM::Navigator;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
2 use strict;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
3 use warnings;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
4
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
5 use base qw(IMPL::Object);
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
6 use IMPL::Class::Property;
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
7 use IMPL::Class::Property::Direct;
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
8 BEGIN {
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
9 private _direct property _path => prop_all;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
10 private _direct property _state => prop_all;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
11 private _direct property _savedstates => prop_all;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
12 public property Current => {get => \&_getCurrent};
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
13 }
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
14
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
15 sub CTOR {
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
16 my ($this,$CurrentNode) = @_;
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
17
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
18 die IMPL::InvalidArgumentException("A starting node is a required paramater") unless $CurrentNode;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
19
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
20 $this->{$_state} = { alternatives => [ $CurrentNode ], current => 0 };
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
21 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
22
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
23 sub _getCurrent {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
24 $_[0]->{$_state}{alternatives}[$_[0]->{$_state}{current}]
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
25 }
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
26
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
27 sub Navigate {
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
28 my ($this,@path) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
29
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
30 return unless @path;
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
31
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
32 foreach my $query (@path) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
33 if (my $current = $this->Current) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
34
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
35 my @alternatives = $this->Current->selectNodes($query);
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
36
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
37 unless (@alternatives) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
38 $this->advanceNavigator or return undef;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
39 @alternatives = $this->Current->selectNodes($query);
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
40 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
41
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
42 push @{$this->{$_path}},$this->{$_state};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
43 $this->{$_state} = {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
44 alternatives => \@alternatives,
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
45 current => 0,
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
46 query => $query
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
47 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
48 } else {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
49 return undef;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
50 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
51 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
52
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
53 return $this->Current;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
54 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
55
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
56 sub selectNodes {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
57 my ($this,@path) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
58
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
59 return internalSelectNodes($this->Current,@path);
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
60 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
61
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
62 sub internalSelectNodes {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
63 my $node = shift;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
64 my $query = shift;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
65
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
66 if (@_) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
67 return map internalSelectNodes($_,@_), $node->selectNodes($query);
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
68 } else {
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
69 return $node->selectNodes($query);
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
70 }
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
71 }
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
72
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
73 sub internalNavigateNodeSet {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
74 my ($this,@nodeSet) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
75
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
76 push @{$this->{$_path}}, $this->{$_state};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
77
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
78 $this->{$_state} = {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
79 alternatives => \@nodeSet,
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
80 current => 0
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
81 };
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
82
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
83 return $this->Current;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
84 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
85
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
86 sub fetch {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
87 my ($this) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
88
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
89 my $result = $this->Current;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
90 $this->advanceNavigator;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
91 return $result;
18
818c74b038ae DOM Schema + tests
Sergey
parents: 13
diff changeset
92 }
818c74b038ae DOM Schema + tests
Sergey
parents: 13
diff changeset
93
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
94 sub advanceNavigator {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
95 my ($this) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
96
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
97 $this->{$_state}{current}++;
18
818c74b038ae DOM Schema + tests
Sergey
parents: 13
diff changeset
98
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
99 if (@{$this->{$_state}{alternatives}} <= $this->{$_state}{current}) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
100 if ( exists $this->{$_state}{query} ) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
101 my $query = $this->{$_state}{query};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
102
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
103 $this->Back or return 0; # that meams the end of the history
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
104
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
105 undef while ( $this->advanceNavigator and not $this->Navigate($query));
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
106
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
107 return $this->Current ? 1 : 0;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
108 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
109 return 0;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
110 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
111
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
112 return 1;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
113 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
114
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
115 sub doeach {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
116 my ($this,$code) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
117 local $_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
118
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
119 do {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
120 for (my $i = $this->{$_state}{current}; $i < @{$this->{$_state}{alternatives}}; $i++) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
121 $_ = $this->{$_state}{alternatives}[$i];
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
122 $code->();
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
123 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
124 $this->{$_state}{current} = @{$this->{$_state}{alternatives}};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
125 } while ($this->advanceNavigator);
18
818c74b038ae DOM Schema + tests
Sergey
parents: 13
diff changeset
126 }
818c74b038ae DOM Schema + tests
Sergey
parents: 13
diff changeset
127
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
128 sub Back {
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
129 my ($this,$steps) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
130
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
131 $steps ||= 1;
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
132
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
133 if ($this->{$_path} and @{$this->{$_path}}) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
134
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
135 $steps = @{$this->{$_path}} - 1 if $steps >= @{$this->{$_path}};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
136
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
137 ($this->{$_state}) = splice @{$this->{$_path}},-$steps;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
138
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
139 $this->Current;
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
140 } else {
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
141 return undef;
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
142 }
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
143 }
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
144
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
145 sub PathToString {
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
146 my ($this,$delim) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
147
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
148 $delim ||= '/';
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
149
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
150 join($delim,map $_->{alternatives}[$_->{current}]->nodeName, $this->{$_path} ? (@{$this->{$_path}}, $this->{$_state}) : $this->{$_state});
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
151 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
152
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
153 sub clone {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
154 my ($this) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
155
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
156 my $newNavi = __PACKAGE__->surrogate;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
157
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
158 $newNavi->{$_path} = [ map { { %{ $_ } } } @{$this->{$_path}} ] if $this->{$_path};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
159 $newNavi->{$_state} = { %{$this->{$_state}} };
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
160
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
161 return $newNavi;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
162
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
163 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
164
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
165 sub saveState {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
166 my ($this) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
167
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
168 my %state;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
169
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
170 $state{path} = [ map { { %{ $_ } } } @{$this->{$_path}} ] if $this->{$_path};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
171 $state{state} = { %{$this->{$_state}} };
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
172
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
173 push @{$this->{$_savedstates}}, \%state;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
174 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
175
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
176 sub restoreState {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
177 my ($this) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
178
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
179 if ( my $state = pop @{$this->{$_savedstates}||[]} ) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
180 $this->{$_path} = $state->{path};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
181 $this->{$_state} = $state->{state};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
182 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
183 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
184
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
185 sub applyState {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
186 my ($this) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
187
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
188 pop @{$this->{$_savedstates}||[]};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
189 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
190
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
191 sub dosafe {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
192 my ($this,$transaction) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
193
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
194 $this->saveState();
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
195
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
196 my $result;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
197
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
198 eval {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
199 $result = $transaction->();
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
200 };
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
201
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
202 if ($@) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
203 $this->restoreState();
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
204 return undef;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
205 } else {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
206 $this->applyState();
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
207 return $result;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
208 }
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
209 }
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
210
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
211 1;
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
212
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
213 __END__
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
214 =pod
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
215
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
216 =head1 DESCRIPTION
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
217
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
218 DOM .
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
219
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
220 ().
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
221
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
222 , ,
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
223 .
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
224
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
225 =head1 METHODS
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
226
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
227 =over
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
228
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
229 =item C<$obj->new($nodeStart)>
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
230
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
231 .
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
232
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 18
diff changeset
233 =item C<$obj->Navigate([$query,...])>
11
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
234
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
235 C<$query>.
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
236 .
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
237 , .
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
238
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
239 , C<undef>.
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
240
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
241 =item C<$obj->Back()>
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
242
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
243 , .
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
244
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
245 , C<undef>.
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
246
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
247 =back
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
248
75980091813b DOM и навигация
Sergey
parents: 0
diff changeset
249 =cut