SZ
Size: a a a
SZ
SZ
AK
SZ
$a = "xxx";
$xxx::f = 2;
sub cl { eval "scalar keys %{$_[0]::}" or eval "require $_[0]" or die $@ }
cl("strict");
cl("xxx");
cl("blah");
P
$a = "xxx";
$xxx::f = 2;
sub cl { eval "scalar keys %{$_[0]::}" or eval "require $_[0]" or die $@ }
cl("strict");
cl("xxx");
cl("blah");
AK
$a = "xxx";
$xxx::f = 2;
sub cl { eval "scalar keys %{$_[0]::}" or eval "require $_[0]" or die $@ }
cl("strict");
cl("xxx");
cl("blah");
AK
SZ
ММ
SZ
ММ
ММ
ДЛ
ММ
ДЛ
IB
AK
ММ
AK