comparison Lib/IMPL/DOM/Schema/SimpleType.pm @ 152:1e7f03414b65

DOM: schema improvements DOM: saving to XML::Writer feature
author wizard
date Thu, 23 Sep 2010 03:58:43 +0400
parents e30bdd040fe3
children 76515373dac0
comparison
equal deleted inserted replaced
151:e36ffd8c29db 152:1e7f03414b65
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::DOM::Schema::SimpleNode); 5 use base qw(IMPL::DOM::Schema::SimpleNode);
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 use IMPL::Class::Property::Direct; 7 use IMPL::Class::Property::Direct;
8 use IMPL::DOM::Property qw(_dom);
8 9
9 BEGIN { 10 BEGIN {
10 public _direct property nativeType => prop_get; 11 public _dom _direct property nativeType => prop_get;
11 public _direct property messageWrongType => prop_get; 12 public _dom _direct property messageWrongType => prop_get;
12 } 13 }
13 14
14 our %CTOR = ( 15 our %CTOR = (
15 'IMPL::DOM::Schema::SimpleNode' => sub { 16 'IMPL::DOM::Schema::SimpleNode' => sub {
16 my %args = @_; 17 my %args = @_;