ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Leschenko                     2:5020/400     16 Dec 2003  14:25:55
 To : Andrew Alakozow
 Subject : Re: наследование DBI
 -------------------------------------------------------------------------------- 
 

 Andrew Alakozow wrote:
 
 > SL> Создавал свой подкласс, но соединить его с Apache::DBI не получилось.
 > SL> (хотя и пробовал загружать первым Apache::DBI).
 >
 > SL> Или использвать cun&paste? :(
 >
 > Делегирование вместо наследования не подойдет? 
  
   Подходит. Сейчас так и сделано, но хотелось бы 'красивее' :)
   Залез в DBI.pm и заметил там проверку на $ENV{'MOD_PERL'}, но 
   дальше разбираться времени нет - не настолько это важная проблема :(
   Вот и спросил - может кто-то ее уже решал.
 
 > http://magnonel.guild.net/~schwern/talks/Sufficiently_Encapsulated_Magic/sli
 > des/slide035.html до slide39.html.
  
 кстати, из slide39.html :
 
      sub delegate {
         my($class, $meth_name) = @_;
 
         my $full_name = $class.'::'.$meth_name;
         *{$full_name} = sub {
             my($self) = shift;
             my $socket = $self->{socket};
 
             # Like $socket->$meth_name(@_);
             @_ = ($socket, @_);
             my $method  = $socket->can($meth_name);
             goto &$method;
       ^^^^^^^^^^^^^^^^^^^
 почему не просто $socket->$meth_name(@_) ? strict это позволяет.
         };
      }
 
   
 
 -- 
 Best regards,
 Sergey
 --- ifmail v.2.15dev5.1
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор