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';