comparison Lib/IMPL/Profiler/Memory.pm @ 189:08015e2803f1

IMPL::Vew::Web - fixed memory leaks, more tests
author cin
date Wed, 04 Apr 2012 02:49:45 +0400
parents 029c9610528c
children cd1ff7029a63
comparison
equal deleted inserted replaced
188:029c9610528c 189:08015e2803f1
76 return $this->{objects} = [ grep defined($_), @{$this->{objects}}]; 76 return $this->{objects} = [ grep defined($_), @{$this->{objects}}];
77 } 77 }
78 78
79 sub Dump { 79 sub Dump {
80 my $this = shift; 80 my $this = shift;
81 return Data::Dumper->Dump($this->{objects}); 81 return Data::Dumper->Dump([$this->{objects}]);
82 } 82 }
83 83
84 sub isLeak { 84 sub isLeak {
85 my ($this) = @_; 85 my ($this) = @_;
86 $this->Purge(); 86 $this->Purge();