Mercurial > pub > Impl
view Lib/IMPL/DOM/Schema/SimpleNode.pm @ 100:df6b4f054957
Schema in progress
Added simple mailer
author | wizard |
---|---|
date | Thu, 06 May 2010 00:54:17 +0400 |
parents | 16ada169ca75 |
children | c289ed9662ca |
line wrap: on
line source
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