koorchik

# Private accessors/methods with correct "caller"

use Sub::Name;

# Помещаем ссылку на локальную анонимную функцию в локальную переменную 
# и присваиваем ей имя "name"
my $name = subname "name" => sub { 
   my $self = shift; 
   ... 
} 

koorchik

# Private accessors/methods

# Помещаем ссылку на локальную анонимную функцию в локальную переменную
my $name = sub { 
   my $self = shift; 
   ... 
} 

# Используем как обыкновенный метод, но доступен оно только внутри класса
$self->$name(); 

koorchik

127.0.0.1:5000

Start Time: Wed Apr 13 2011 01:51:13 GMT+0300 (EEST)

(P) t=1302648673017 [st=    0] +SOCKET_ALIVE               [dt=62501]
                                --> source_dependency = {"id":67944,"type":4}
(P) t=1302648673017 [st=    0]    +TCP_CONNECT             [dt=    1]
                                   --> address_list = ["127.0.0.1:5000"]
(P) t=1302648673017 [st=    0]        TCP_CONNECT_ATTEMPT  [dt=    1]
                                      --> address = "127.0.0.1:5000"

koorchik

use Getopt::Long;
use Data::Dumper;
use Locale::gettext;
use POSIX();
use Math::Trig;
use IO::File;
use Time::HiRes qw(gettimeofday);

use SDL;
use SDL::App;