Mercurial > pub > Impl
view Lib/IMPL/Object/Disposable.pm @ 287:2d253e6e4a88
*TTView refactoring
author | cin |
---|---|
date | Tue, 19 Feb 2013 03:05:10 +0400 |
parents | ad93c9f4dd93 |
children | 63709a4e6da0 |
line wrap: on
line source
package IMPL::Object::Disposable; use strict; 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 superDispose { my ($this) = @_; my $package = caller; no strict 'refs'; ($_.'::Dispose')->($this) foreach @{$package.'::ISA'}; } 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;