diff Lib/IMPL/DOM/Navigator/Builder.pm @ 12:955b2324c1bf

Работа над навигаторами и схемой DOM модели
author Sergey
date Mon, 31 Aug 2009 01:37:43 +0400
parents
children bb8d67f811ea
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/DOM/Navigator/Builder.pm	Mon Aug 31 01:37:43 2009 +0400
@@ -0,0 +1,38 @@
+package IMPL::DOM::Navigator::Builder;
+use strict;
+use warnings;
+
+use base qw(IMPL::DOM::Navigator);
+
+use IMPL::Class::Property;
+
+BEGIN {
+    public property SchemaNavigator => prop_get | owner_set;
+}
+
+1;
+
+=pod
+
+=head1 SYNOPSIS
+
+my $nav = new IMPL::DOM::Navigator::Builder(Schema => $mySchema);
+
+# set position to root
+$nav->InitRoot();
+
+# go to node 'Person' and create one if not exists
+$nav->NavigateAuto("Person");
+
+# set some node properties
+$nav->nodeCurrent->Name("Smith");
+$nav->nodeCurrent->Age("20");
+
+# navigate to node 'Address' and create one if not exists
+$nav->NavigateAuto("Address");
+
+=head1 DESCRIPTION
+
+,        
+
+=cut
\ No newline at end of file