Mercurial > pub > Impl

comparison Lib/IMPL/Object/Abstract.pm @ 197:6b1dda998839

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added IMPL::declare, IMPL::require, to simplify module definitions IMPL::Transform now admires object inheritance while searching for the transformation Added HTTP some exceptions IMPL::Web::Application::RestResource almost implemented
author sergey
date Thu, 19 Apr 2012 02:10:02 +0400
parents 4d0e1962161c
children ad93c9f4dd93
comparison
equal deleted inserted replaced
196:a705e848dcc7 197:6b1dda998839
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 } if @$superSequence; 32 } if @$superSequence;
33 } 33 }
34 } elsif ($mapper and not ref $mapper and $mapper eq '@_') {
35 push @sequence,@$superSequence;
34 } else { 36 } else {
35 warn "Unsupported mapper type, in '$class' for the super class '$super'" if $mapper; 37 warn "Unsupported mapper type, in '$class' for the super class '$super'" if $mapper;
36 push @sequence, sub { 38 push @sequence, sub {
37 my $this = shift; 39 my $this = shift;
38 $this->$_() foreach @$superSequence; 40 $this->$_() foreach @$superSequence;