Mercurial > pub > Impl

comparison Lib/IMPL/Object/Abstract.pm @ 63:76b878ad6596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added serialization support for the IMPL::Object::List More intelligent Exception message Fixed encoding support in the actions Improoved tests Minor fixes
author wizard
date Mon, 15 Mar 2010 02:38:09 +0300
parents 16ada169ca75
children dc1da0389db7
comparison
equal deleted inserted replaced
62:c64bd1bf727d 63:76b878ad6596
111 my $methodName = substr $AUTOLOAD,11; 111 my $methodName = substr $AUTOLOAD,11;
112 no strict 'refs'; 112 no strict 'refs';
113 $sub = $_->can($methodName) and $sub->(@_) foreach @{caller().'::ISA'}; 113 $sub = $_->can($methodName) and $sub->(@_) foreach @{caller().'::ISA'};
114 } 114 }
115 115
116 1;
117
118 __END__
119
116 =pod 120 =pod
117 =h1 SYNOPSIS 121 =head1 SYNOPSIS
118 122
119 package MyBaseObject; 123 package MyBaseObject;
120 use base qw(IMPL::Object::Abstract); 124 use base qw(IMPL::Object::Abstract);
121 125
122 sub new { 126 sub new {
125 129
126 sub surrogate { 130 sub surrogate {
127 # own implementation of the surrogate operator 131 # own implementation of the surrogate operator
128 } 132 }
129 133
130 =h1 DESCRIPTION 134 =head1 DESCRIPTION
131 135
132 Реализация механизма вызова конструкторов и других вспомогательных вещей, кроме операторов 136 Реализация механизма вызова конструкторов и других вспомогательных вещей, кроме операторов
133 создания экземпляров. 137 создания экземпляров.
134 =cut 138 =cut
135
136 1;