Mercurial > pub > Impl

comparison Lib/IMPL/Object/Abstract.pm @ 144:b56ebc31bf18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Empty nodes no more created while transforming a post request to the DOM document minor speed improvements to the object CTOR caching Added support for a secure processing (and 'laundering' ) a CGI parameters Many minor fixes
author wizard
date Tue, 13 Jul 2010 02:05:38 +0400
parents a7efb3117295
children eb3e9861a761
comparison
equal deleted inserted replaced
143:d9dd3500ead3 144:b56ebc31bf18
27 push @sequence,@$superSequence; 27 push @sequence,@$superSequence;
28 } else { 28 } else {
29 push @sequence, sub { 29 push @sequence, sub {
30 my $this = shift; 30 my $this = shift;
31 $this->$_($mapper->(@_)) foreach @$superSequence; 31 $this->$_($mapper->(@_)) foreach @$superSequence;
32 }; 32 } if @$superSequence;
33 } 33 }
34 } else { 34 } else {
35 warn "Unsupported mapper type, in '$class' for the super class '$super'" if $mapper; 35 warn "Unsupported mapper type, in '$class' for the super class '$super'" if $mapper;
36 push @sequence, sub { 36 push @sequence, sub {
37 my $this = shift; 37 my $this = shift;
38 $this->$_() foreach @$superSequence; 38 $this->$_() foreach @$superSequence;
39 }; 39 } if @$superSequence;
40 } 40 }
41 } 41 }
42 42
43 push @sequence, *{"${class}::CTOR"}{CODE} if *{"${class}::CTOR"}{CODE}; 43 push @sequence, *{"${class}::CTOR"}{CODE} if *{"${class}::CTOR"}{CODE};
44 44