|
7
|
1 package IMPL::DOM::Schema::Item;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use base qw(IMPL::DOM::Node);
|
|
|
6 use IMPL::Class::Property;
|
|
|
7 use IMPL::DOM::Property qw(_dom);
|
|
|
8 use IMPL::Class::Property::Direct;
|
|
|
9
|
|
|
10 BEGIN {
|
|
|
11 public _dom property minOccur => prop_all;
|
|
|
12 public _dom property maxOccur => prop_all;
|
|
|
13 public _direct property Schema => prop_get;
|
|
|
14 }
|
|
|
15
|
|
|
16 __PACKAGE__->PassThroughArgs;
|
|
|
17
|
|
|
18 sub CTOR {
|
|
|
19 my ($this,%args) = @_;
|
|
|
20
|
|
|
21 $this->minOccur($args{minOcuur});
|
|
|
22 $this->maxOccur($args{maxOccur});
|
|
|
23 $this->{$Schema} = $args{Schema} or die new IMPL::InvalidArgumentException("A schema should be specified");
|
|
|
24 }
|
|
|
25
|
|
|
26 1;
|
|
|
27
|
|
|
28 __END__
|
|
|
29 =pod
|
|
|
30
|
|
|
31 =head1 SYNOPSIS
|
|
|
32
|
|
|
33 package Restriction;
|
|
|
34 use base qw(IMPL::DOM::Schema::Item);
|
|
|
35
|
|
|
36 sub Validate {
|
|
|
37 my ($this,$node) = @_;
|
|
|
38 }
|
|
|
39
|
|
|
40 =head1 DESCRIPTION
|
|
|
41
|
|
|
42 .
|
|
|
43
|
|
|
44 =cut
|
