view Lib/IMPL/DOM/Schema/SimpleNode.pm @ 37:c2e7f7c96bcd

performance improvements, DOM reworked (a little)
author Sergey
date Mon, 23 Nov 2009 00:59:06 +0300
parents 267460284fb3
children 16ada169ca75
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