Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM localization
author cin
date Thu, 23 Jan 2014 17:26:34 +0400
parents ced5937ff21a
children 4edd36025051
comparison
equal deleted inserted replaced
382:99ac2e19c0cc 383:2f16f13b000c
1 package IMPL::DOM::Schema::Node; 1 package IMPL::DOM::Schema::Node;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use parent qw(IMPL::DOM::Node);
6 use IMPL::Class::Property;
7 use IMPL::DOM::Property qw(_dom);
8
9 use IMPL::Const qw(:prop); 5 use IMPL::Const qw(:prop);
10 use IMPL::declare { 6 use IMPL::declare {
7 require => {
8 Label => 'IMPL::DOM::Schema::Label'
9 },
11 base => [ 10 base => [
12 'IMPL::DOM::Node' => sub { 11 'IMPL::DOM::Node' => sub {
13 my %args = @_; 12 my %args = @_;
14 delete @args{qw( 13 delete @args{qw(
15 minOccur 14 minOccur
31 }; 30 };
32 31
33 sub _getLabel { 32 sub _getLabel {
34 my ($this) = @_; 33 my ($this) = @_;
35 34
36 35 $this->{$label} ||= Label->new($this->document->stringMap, $this->name );
37 } 36 }
38 37
39 sub CTOR { 38 sub CTOR {
40 my ($this,%args) = @_; 39 my ($this,%args) = @_;
41 40