comparison Lib/IMPL/DOM/Schema/SimpleNode.pm @ 124:e30bdd040fe3

IMPL::Web::TT::Form concept
author wizard
date Thu, 10 Jun 2010 02:45:59 +0400
parents 196bf443b5e1
children 1e7f03414b65
comparison
equal deleted inserted replaced
123:1d7e370a91fa 124:e30bdd040fe3
10 public _direct property inflator => prop_get; 10 public _direct property inflator => prop_get;
11 public _direct property messageInflateError => prop_get; 11 public _direct property messageInflateError => prop_get;
12 } 12 }
13 13
14 our %CTOR = ( 14 our %CTOR = (
15 'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'SimpleNode'; %args} 15 'IMPL::DOM::Schema::Node' => sub {
16 my %args = @_;
17 $args{nodeName} ||= 'SimpleNode';
18 delete @args{qw(inflator messageInflateError)};
19 %args
20 }
16 ); 21 );
17 22
18 sub CTOR { 23 sub CTOR {
19 my ($this,%args) = @_; 24 my ($this,%args) = @_;
20 25