Mercurial > pub > Impl

annotate lib/IMPL/Object/AutoDispose.pm @ 420:df591e3afd10 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author cin
date Sat, 25 Feb 2017 22:35:26 +0300
parents c6e90e02dd17
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
407
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
1 package IMPL::Object::AutoDispose;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
2 use strict;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
3
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
4 sub new {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
5 my $self = shift;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
6
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
7 if (ref $self) {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
8 return ${$self}->new(@_);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
9 } else {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
10 my $obj = shift;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
11 return bless \$obj, $self;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
12 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
13 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
14
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
15 sub isa {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
16 ${shift(@_)}->isa(@_);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
17 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
18
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
19 sub can {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
20 ${shift(@_)}->can(@_);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
21 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
22
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
23 sub DESTROY {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
24 ${shift(@_)}->Dispose();
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
25 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
26
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
27 sub AUTOLOAD {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
28 our $AUTOLOAD;
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
29 my ($method) = ($AUTOLOAD =~ m/(\w+)$/);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
30
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
31 no strict 'refs';
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
32
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
33 goto &{*{$AUTOLOAD} = sub {
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
34 ${shift(@_)}->$method(@_);
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
35 }};
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
36 }
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
37
c6e90e02dd17 renamed Lib->lib
cin
parents:
diff changeset
38 1;