diff Lib/IMPL/DOM/Schema/Node.pm @ 383:2f16f13b000c

DOM localization
author cin
date Thu, 23 Jan 2014 17:26:34 +0400
parents ced5937ff21a
children 4edd36025051
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/Node.pm	Thu Jan 23 02:35:28 2014 +0400
+++ b/Lib/IMPL/DOM/Schema/Node.pm	Thu Jan 23 17:26:34 2014 +0400
@@ -2,12 +2,11 @@
 use strict;
 use warnings;
 
-use parent qw(IMPL::DOM::Node);
-use IMPL::Class::Property;
-use IMPL::DOM::Property qw(_dom);
-
 use IMPL::Const qw(:prop);
 use IMPL::declare {
+	require => {
+		Label => 'IMPL::DOM::Schema::Label'
+	},
 	base => [
 		'IMPL::DOM::Node' => sub {
 	        my %args = @_;
@@ -33,7 +32,7 @@
 sub _getLabel {
 	my ($this) = @_;
 	
-	
+	$this->{$label} ||= Label->new($this->document->stringMap, $this->name ); 
 }
 
 sub CTOR {