Mercurial > pub > Impl

comparison Lib/IMPL/Object/Abstract.pm @ 339:97628101b765

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring: application now holds a security object factory rather than a security object
author cin
date Wed, 19 Jun 2013 03:25:44 +0400
parents c6d0f889ef87
children 82b6c967bcf1
comparison
equal deleted inserted replaced
338:c78dfbe658bd 339:97628101b765
147 147
148 package self; 148 package self;
149 149
150 our $AUTOLOAD; 150 our $AUTOLOAD;
151 sub AUTOLOAD { 151 sub AUTOLOAD {
152 goto &{caller(). substr $AUTOLOAD,6}; 152 goto &{caller(). substr $AUTOLOAD,4};
153 } 153 }
154 154
155 package supercall; 155 package supercall;
156 156
157 our $AUTOLOAD; 157 our $AUTOLOAD;
158 sub AUTOLOAD { 158 sub AUTOLOAD {
159 my $sub; 159 my $sub;
160 my $methodName = substr $AUTOLOAD,11; 160 my $methodName = substr $AUTOLOAD,9;
161 no strict 'refs'; 161 no strict 'refs';
162 $sub = $_->can($methodName) and $sub->(@_) foreach @{caller().'::ISA'}; 162 $sub = $_->can($methodName) and $sub->(@_) foreach @{caller().'::ISA'};
163 } 163 }
164 164
165 1; 165 1;