Mercurial > pub > Impl

diff Lib/IMPL/Object/Abstract.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents d1676be8afcc
children 6b1dda998839
line wrap: on
line diff
--- a/Lib/IMPL/Object/Abstract.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Object/Abstract.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -19,25 +19,25 @@
     my $refCTORS = *{"${class}::CTOR"}{HASH};
       
     foreach my $super ( @{"${class}::ISA"} ) {
-		my $superSequence = $cacheCTOR{$super} || cache_ctor($super);
-		
-		my $mapper = $refCTORS ? $refCTORS->{$super} : undef;
-		if (ref $mapper eq 'CODE') {
-		    if ($mapper == *_pass_through_mapper{CODE}) {
-				push @sequence,@$superSequence;
-		    } else {
-				push @sequence, sub {
-				    my $this = shift;
-				    $this->$_($mapper->(@_)) foreach @$superSequence;
-				} if @$superSequence;
-		    }
-		} else {
-		    warn "Unsupported mapper type, in '$class' for the super class '$super'" if $mapper;
-		    push @sequence, sub {
-				my $this = shift;
-				$this->$_() foreach @$superSequence;
-		    } if @$superSequence;
-		}
+        my $superSequence = $cacheCTOR{$super} || cache_ctor($super);
+        
+        my $mapper = $refCTORS ? $refCTORS->{$super} : undef;
+        if (ref $mapper eq 'CODE') {
+            if ($mapper == *_pass_through_mapper{CODE}) {
+                push @sequence,@$superSequence;
+            } else {
+                push @sequence, sub {
+                    my $this = shift;
+                    $this->$_($mapper->(@_)) foreach @$superSequence;
+                } if @$superSequence;
+            }
+        } else {
+            warn "Unsupported mapper type, in '$class' for the super class '$super'" if $mapper;
+            push @sequence, sub {
+                my $this = shift;
+                $this->$_() foreach @$superSequence;
+            } if @$superSequence;
+        }
     }
     
     push @sequence, *{"${class}::CTOR"}{CODE} if *{"${class}::CTOR"}{CODE};
@@ -47,11 +47,11 @@
 }
 
 sub dump_ctor {
-	my ($self) = @_;
-	$self = ref $self || $self;
-	
-	warn "dumping $self .ctor";
-	warn "$_" foreach @{$cacheCTOR{$self}||[]};
+    my ($self) = @_;
+    $self = ref $self || $self;
+    
+    warn "dumping $self .ctor";
+    warn "$_" foreach @{$cacheCTOR{$self}||[]};
 }
 
 sub callCTOR {
@@ -68,7 +68,7 @@
 }
 
 sub typeof {
-	ref $_[0] || $_[0];
+    ref $_[0] || $_[0];
 }
 
 sub isDisposed {