view Lib/IMPL/DOM/Schema/ComplexNode.pm @ 8:fffb153be599

DOM Schema
author Sergey
date Tue, 25 Aug 2009 17:36:37 +0400
parents 94d47b388442
children 5899df8c289e
line wrap: on
line source

package IMPL::DOM::Schema::ComplexNode;
use strict;
use warnings;

use base qw(IMPL::DOM::Schema::Item);
use IMPL::Class::Property;

BEGIN {
    public property nodeType => prop_all;
    public property content => {
        get => \&_getContent,
        set => \&_setContent
    }
}

__PACKAGE__->PassThroughArgs;

sub _getContent {
    $_[0]->firstChild;
}

sub _setContent {
    $_[0]->firstChild($_[1]);
}

sub Validate {
    my ($this,$node) = @_;
    
    if (my $type = $this->nodeType) {
        my $schemaType = $this->Schema->ResolveType($type);
        return $schemaType->Validate($node);
    } else {
        my @errors;
        push @errors, $_->Validate foreach @{$this->childNodes};
        
        return @errors;
    }
}

1;

__END__

=pod

=head1 DESCRIPTION

Описывает сложный узел. Требует либо соответствие структуры, либо соответствия
типу.

Дочерними элементами могут быть правила контроля свойств и т.п.
Первым дочерним элементом может быть только содержимое узла, см. C<content>

=head2 PROPERTIES

=over

=item C<nodeType>

Тип описанный в схеме, экземпляром которого является данный узел. При этом
свойство C<content> должно быть пустым.

=item C<content>

Содержимое узла, может быть либо C<IMPL::DOM::Schema::NodeSet> либо
C<IMPL::DOM::Schema::NodeList>, в зависимости от того важен порядок или нет.
Это свойство ссылается на первый дочерний элемент узла.

=back

=cut