Mercurial > pub > Impl
view Lib/IMPL/Object/AutoDispose.pm @ 276:8a5da17d7ef9
*IMPL::Class refactoring property definition mechanism (incomplete).
author | sergey |
---|---|
date | Thu, 31 Jan 2013 17:37:44 +0400 |
parents | 6253872024a4 |
children |
line wrap: on
line source
package IMPL::Object::AutoDispose; use strict; sub new { my $self = shift; if (ref $self) { return ${$self}->new(@_); } else { my $obj = shift; return bless \$obj, $self; } } sub isa { ${shift(@_)}->isa(@_); } sub can { ${shift(@_)}->can(@_); } sub DESTROY { ${shift(@_)}->Dispose(); } sub AUTOLOAD { our $AUTOLOAD; my ($method) = ($AUTOLOAD =~ m/(\w+)$/); no strict 'refs'; goto &{*{$AUTOLOAD} = sub { ${shift(@_)}->$method(@_); }}; } 1;