Mercurial > pub > Impl

diff Lib/IMPL/Object/Disposable.pm @ 273:ad93c9f4dd93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
+Added support for destructors, (special method named DTOR)
author sergey
date Tue, 29 Jan 2013 17:19:10 +0400
parents 16ada169ca75
children 63709a4e6da0
line wrap: on
line diff
--- a/Lib/IMPL/Object/Disposable.pm	Mon Jan 28 17:24:37 2013 +0400
+++ b/Lib/IMPL/Object/Disposable.pm	Tue Jan 29 17:19:10 2013 +0400
@@ -9,7 +9,7 @@
     bless $this, 'IMPL::Object::Disposed';
 }
 
-sub DESTROY {
+sub DTOR {
     my ($this) = @_;
 
     warn sprintf('The object %s were marked as disposable but isn\'t disposed properly', $this->can('ToString') ? $this->ToString() : (ref $this || $this) );