Mercurial > pub > Impl

diff Lib/IMPL/Profiler.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 44977efed303
children c8fe3f84feba
line wrap: on
line diff
--- a/Lib/IMPL/Profiler.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Profiler.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -19,45 +19,45 @@
         warn "profiler enabled";
         
         unshift @INC, sub {
-			my ($self,$filename) = @_;
-			
-			(my $module = $filename) =~ s/\//::/g;
-			$module =~ s/\.\w+$//;
-			
-			return unless $module =~ $Filter;
-			
-			foreach my $dir (@INC) {
-				my $fullName = "$dir/$filename";
-				if (-f $fullName) {
-					open my $hmod, $fullName or	die "$fullName: $!" if $!;
+            my ($self,$filename) = @_;
+            
+            (my $module = $filename) =~ s/\//::/g;
+            $module =~ s/\.\w+$//;
+            
+            return unless $module =~ $Filter;
+            
+            foreach my $dir (@INC) {
+                my $fullName = "$dir/$filename";
+                if (-f $fullName) {
+                    open my $hmod, $fullName or    die "$fullName: $!" if $!;
 
-					
+                    
 
-					my @source;					
-					local $/ = "\n";
-					while (my $line = <$hmod>) {
-						last if $line =~ /^\s*__END__/;
-						push @source, $line;
-					}
-					
-					undef $hmod;
-					
-					push @source,
-					"IMPL::Profiler::trap_all(__PACKAGE__);\n",
-					"1;\n";
-					
-					
-					return (sub {
-						if (@source) {
-							$_ = shift @source;
-							return 1;
-						} else {
-							return 0;
-						}
-					}, undef );
-				}
-			}
-		};
+                    my @source;                    
+                    local $/ = "\n";
+                    while (my $line = <$hmod>) {
+                        last if $line =~ /^\s*__END__/;
+                        push @source, $line;
+                    }
+                    
+                    undef $hmod;
+                    
+                    push @source,
+                    "IMPL::Profiler::trap_all(__PACKAGE__);\n",
+                    "1;\n";
+                    
+                    
+                    return (sub {
+                        if (@source) {
+                            $_ = shift @source;
+                            return 1;
+                        } else {
+                            return 0;
+                        }
+                    }, undef );
+                }
+            }
+        };
         
         no warnings 'once';
         *CORE::GLOBAL::caller = sub {
@@ -113,43 +113,43 @@
         return;
     }
     {
-	    package IMPL::Profiler::Proxy;
-	    no warnings 'redefine';
-	    my $sub = sub {
-	        my $t0 = [Time::HiRes::gettimeofday];
-	        my @arr;
-	        my $scalar;
-	        my $entry = $prevCode;
-	        my ($timeOwn,$timeTotal);
-	        my $context = wantarray;
-	        {
-	            local $InvokeTime = 0;
-	            #warn "\t"x$level,"enter ${class}::$method";
-	            $level ++;
-	            if ($context) {
-	                @arr = &$entry(@_);
-	            } else {
-	                if (defined $context) {
-	                    $scalar = &$entry(@_);
-	                } else {
-	                    &$entry(@_);
-	                }
-	            }
-	            $timeTotal = Time::HiRes::tv_interval($t0);
-	            $timeOwn = $timeTotal - $InvokeTime;
-	        }
-	        $InvokeInfo{"${class}::${method}"}{Count} ++;
-	        $InvokeInfo{"${class}::${method}"}{Total} += $timeTotal;
-	        $InvokeInfo{"${class}::${method}"}{Own} += $timeOwn;
-	        $InvokeTime += $timeTotal;
-	        $level --;
-	        #warn "\t"x$level,"leave ${class}::$method";
-	        return $context ? @arr : $scalar;
-	    };
-	    if ($proto) {
-	        Scalar::Util::set_prototype($sub => $proto);
-	    }
-	    *{"${class}::${method}"} = $sub;
+        package IMPL::Profiler::Proxy;
+        no warnings 'redefine';
+        my $sub = sub {
+            my $t0 = [Time::HiRes::gettimeofday];
+            my @arr;
+            my $scalar;
+            my $entry = $prevCode;
+            my ($timeOwn,$timeTotal);
+            my $context = wantarray;
+            {
+                local $InvokeTime = 0;
+                #warn "\t"x$level,"enter ${class}::$method";
+                $level ++;
+                if ($context) {
+                    @arr = &$entry(@_);
+                } else {
+                    if (defined $context) {
+                        $scalar = &$entry(@_);
+                    } else {
+                        &$entry(@_);
+                    }
+                }
+                $timeTotal = Time::HiRes::tv_interval($t0);
+                $timeOwn = $timeTotal - $InvokeTime;
+            }
+            $InvokeInfo{"${class}::${method}"}{Count} ++;
+            $InvokeInfo{"${class}::${method}"}{Total} += $timeTotal;
+            $InvokeInfo{"${class}::${method}"}{Own} += $timeOwn;
+            $InvokeTime += $timeTotal;
+            $level --;
+            #warn "\t"x$level,"leave ${class}::$method";
+            return $context ? @arr : $scalar;
+        };
+        if ($proto) {
+            Scalar::Util::set_prototype($sub => $proto);
+        }
+        *{"${class}::${method}"} = $sub;
     }
     
 }