Mercurial > pub > Impl
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 {