comparison Lib/IMPL/DOM/Node.pm @ 124:e30bdd040fe3

IMPL::Web::TT::Form concept
author wizard
date Thu, 10 Jun 2010 02:45:59 +0400
parents a7efb3117295
children e6447ad85cb4
comparison
equal deleted inserted replaced
123:1d7e370a91fa 124:e30bdd040fe3
38 if ( exists $args{document} ) { 38 if ( exists $args{document} ) {
39 $this->{$document} = delete $args{document}; 39 $this->{$document} = delete $args{document};
40 weaken($this->{$document}); 40 weaken($this->{$document});
41 } 41 }
42 42
43 $this->{$_propertyMap} = \%args; 43 while ( my ($key,$value) = each %args ) {
44 $this->nodeProperty($key,$value);
45 }
44 } 46 }
45 47
46 sub insertNode { 48 sub insertNode {
47 my ($this,$node,$pos) = @_; 49 my ($this,$node,$pos) = @_;
48 50