Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/SimpleNode.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 267460284fb3 |
children | c289ed9662ca |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/SimpleNode.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/IMPL/DOM/Schema/SimpleNode.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,29 +1,29 @@ -package IMPL::DOM::Schema::SimpleNode; -use strict; -use warnings; - -use base qw(IMPL::DOM::Schema::Node); - -our %CTOR = ( - 'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'SimpleNode'; %args} -); - -sub Validate { - my ($this,$node) = @_; - - map $_->Validate($node), @{$this->childNodes}; -} - -1; - -__END__ - -=pod - -=head1 DESCRIPTION - -Узел имеющий простое значение. Данный узел может содержать ограничения -на простое значение. - - -=cut \ No newline at end of file +package IMPL::DOM::Schema::SimpleNode; +use strict; +use warnings; + +use base qw(IMPL::DOM::Schema::Node); + +our %CTOR = ( + 'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'SimpleNode'; %args} +); + +sub Validate { + my ($this,$node) = @_; + + map $_->Validate($node), @{$this->childNodes}; +} + +1; + +__END__ + +=pod + +=head1 DESCRIPTION + +Узел имеющий простое значение. Данный узел может содержать ограничения +на простое значение. + + +=cut