2007-09-04から1日間の記事一覧
package MySocket; use strict; use warnings; use base qw( IO::Socket::INET ); use Scalar::Util qw( refaddr ); { my $data_ref = {}; my @functions = qw( hogehoge1 hogehoge2 ); no strict 'refs'; # copy routines into IO::Socket for my $f (@func…