Size: a a a
АК
>perl -e "my $s={};print($s.'!')"HASH(0x1362e64)!SZ
>perl -e "my $s={};print($s.'!')"HASH(0x1362e64)!VG
АК
TLObject->new('ClassName',{});TLObject::new('ClassName',{});sub new { my($self,$class,$data) = @_;VG
АК
Telegram::Updates::GetDifference->new(
date => $self->{session}{date},
pts => $self->{session}{pts},
qts => -1,
);
VG
АК
SZ
SZ
АК
{@_} ?SZ
sub new {@_ == 1 && ref $_[0] eq "HASH" and @_ = %{$_[0]}; goto &SUPER::new}SZ
VG
АК
sub new {@_ == 1 && ref $_[0] eq "HASH" and @_ = %{$_[0]}; goto &SUPER::new}scalar(@_) == 1 спасибо!АК
MA
AP
$class->new(), у меня так сделано: базовый класс по потребности подгружает потомка (конкретную реализацию оаутх), затем вызывает его ньюSZ