АН
package Core;
package Kernel::Object {
sub new {
$class = shift;
bless {}, $class;
};
};
1;
Size: a a a
АН
package Core;
package Kernel::Object {
sub new {
$class = shift;
bless {}, $class;
};
};
1;
SZ
W
SZ
package Core;
sub Kernel::Object::new { bless {}, shift }
1;
АН
W
W
W
АН
D
D
AP
SZ
D
SZ
D
D
D
AK
AK