会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
763天前到处都是羊，不想上班0(回)
843天前
鸽子
0(回)
847天前#----------------------------- |
my $proto = shift; |
my $class = ref ( $proto ) || $proto; |
my $parent = ref ( $proto ) && $proto; |
#----------------------------- |
$ob1 = SomeClass-> |
new() |
; |
# later on |
$ob2 = ( ref $ob1 )-> |
new(); |
#----------------------------- |
$ob1 = Widget->new(); |
$ob2 = $ob1->new(); |
#----------------------------- |
sub new |
{ |
my $proto = shift; |
my $class = ref ( $proto ) || $proto; |
my $parent = ref ( $proto ) && $proto; |
my $self; |
# check whether we're shadowing a new from @ISA |
if (@ISA && $proto->SUPER::can('new') ) { |
$self = $proto->SUPER::new(@_); |
} else { |
$self = {}; |
bless ($self, $proto); |
} |
bless($self, $class); |
$self->{PARENT} = $parent; |
$self->{START} = time(); # init data fields |
$self->{AGE} = 0; |
return $self; |
} |
#----------------------------- |
