Mercurial > pub > Impl
view Lib/IMPL/Object/Disposable.pm @ 367:608e74bc309f
form metadata, mostly done
author | cin |
---|---|
date | Tue, 03 Dec 2013 17:55:36 +0400 |
parents | 63709a4e6da0 |
children |
line wrap: on
line source
package IMPL::Object::Disposable; use strict; require IMPL::Object::AutoDispose; our $Strict = 1; sub Dispose { my ($this) = @_; bless $this, 'IMPL::Object::Disposed'; } 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) ); } sub AutoPtr { IMPL::Object::AutoDispose->new(shift); } package IMPL::Object::Disposed; our $AUTOLOAD; sub AUTOLOAD { return if $AUTOLOAD eq __PACKAGE__.'::DESTROY'; die new IMPL::Exception('Object have been disposed',$AUTOLOAD); } sub isDisposed { 1; } 1;