Mercurial > pub > Impl
comparison Lib/IMPL/Object/Abstract.pm @ 24:7f00786f8210
Первая рабочая реазизация схемы и навигаторов
author | Sergey |
---|---|
date | Mon, 05 Oct 2009 00:48:49 +0400 |
parents | 78cd38551534 |
children | 0004faa276dc |
comparison
equal
deleted
inserted
replaced
23:716b287d4795 | 24:7f00786f8210 |
---|---|
78 | 78 |
79 sub _pass_throgh_mapper { | 79 sub _pass_throgh_mapper { |
80 @_; | 80 @_; |
81 } | 81 } |
82 | 82 |
83 sub PassArgs { | |
84 \&_pass_throgh_mapper; | |
85 } | |
86 | |
83 sub PassThroughArgs { | 87 sub PassThroughArgs { |
84 my $class = shift; | 88 my $class = shift; |
85 $class = ref $class || $class; | 89 $class = ref $class || $class; |
86 no strict 'refs'; | 90 no strict 'refs'; |
87 no warnings 'once'; | 91 no warnings 'once'; |