view Lib/IMPL/DOM/Schema/Node.pm @ 266:89179bb8c388

*corrected TTView to handle plain (and undefined) values *added URL generating methods to Application::Action *fixed the compare validatior for schemas
author cin
date Mon, 14 Jan 2013 03:10:06 +0400
parents f48a1a9f4fa2
children 4ddb27ff4a0b
line wrap: on
line source

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

use parent qw(IMPL::DOM::Node);
use IMPL::Class::Property;
use IMPL::DOM::Property qw(_dom);
use IMPL::Class::Property::Direct;

BEGIN {
    public _dom _direct property minOccur => prop_all;
    public _dom _direct property maxOccur => prop_all;
    public _dom _direct property type => prop_all;
    public _dom _direct property name => prop_all;
    public _dom _direct property display => prop_all;
    public _dom _direct property display_no => prop_all;
    public _dom _direct property display_blame => prop_all;
}

our %CTOR = (
    'IMPL::DOM::Node' => sub {
        my %args = @_;
        delete @args{qw(
            minOccur
            maxOccur
            type
            name
            display
            display_no
            display_blame
        )} ;
        $args{nodeName} ||= 'Node';
        %args
    }
);

sub CTOR {
    my ($this,%args) = @_;
    
    $this->{$minOccur} = defined $args{minOccur} ? $args{minOccur} : 1;
    $this->{$maxOccur} = defined $args{maxOccur} ? $args{maxOccur} : 1;
    $this->{$type} = $args{type};
    $this->{$name} = $args{name} or die new IMPL::InvalidArgumentException('Argument is required','name');
    $this->{$display} = $args{display} if $args{display};
    $this->{$display_no} = $args{display_no} if $args{display};
    $this->{$display_blame} = $args{display_blame} if $args{display};
}

sub Validate {
    my ($this,$node) = @_;
    
    if (my $schemaType = $this->{$type} ? $this->document->resolveType($this->{$type}) : undef ) {
        my @errors = $schemaType->Validate($node,{Source => $this});
        return @errors;
    } else {
        return ();
    }
}

sub isOptional {
    my ($this) = @_;
    
    return $this->{$minOccur} ? 0 : 1;
}

sub isMultiple {
    my ($this) = @_;
    
    return ($this->{$maxOccur} eq 'unbounded' || $this->{$maxOccur} > 1 ) ? 1 : 0; 
}

sub inflateValue {
    $_[1];
}

sub inflator { undef }

sub qname {
    $_[0]->nodeName.'[name='.$_[0]->{$name}.']';
}

1;

__END__
=pod

=head1 SYNOPSIS

package SchemaEntity;
use parent qw(IMPL::DOM::Schema::Node);

sub Validate {
    my ($this,$node) = @_;
}

=head1 DESCRIPTION

Базовый класс для элементов схемы. Также позволяет объявлять узлы определенного типа.

=head1 MEMBERS

=head2 PROPERTIES

=over

=item C<[get,set] minOccur>

C<default: 1>.

Минимальное количество повторений узла.

=item C<[get,set] maxOccur>

C<default: 1>.

Максимальное количество повторений узла

=item C<[get,set] type>

C<default: undef>

Имя типа из схемы.

=item C<[get,set] name>

Имя узла.

=item C<[get,set] display>

Имя узла для отображения.

=item C<[get,set] display_no>

Имя узла для отображения (родительный падеж).

=item C<[get,set] display_blame>

Имя узла для отображения (винительный падеж).

=back

=cut