SZ
Size: a a a
SZ
SZ
SZ
AT
Do not export method names!Почему экспортировать имена методов — плохая идея?
W
warstone@dev:~/t$ cat Qwe.pmА теперь представьте что у вас 100500 методов. Это во-первых засрет стеш пакета и Перл будет тормозить (Это причина почему Каталист тормозит в том числе).
package Qwe;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(method);
sub new { bless \{}, ref $_[0] || $_[0] || __PACKAGE__ }
sub method { print "Bingo! object: $_[0]\n" }
1;
warstone@dev:~/t$ cat xxx.pl
#!/usr/local/bin/perl
use lib::abs qw/./;
use Qwe;
method();
warstone@dev:~/t$ perl xxx.pl
Bingo! object:
ВР
IB
AP
АН
values @{%$offset{topics}}
RL
ММ
values @{%$offset{topics}}
ММ
ММ
ММ
АН
АН
ММ
ММ
ММ
АН