Perl - 无法为子类创建类变量

Question

我正在创建一个基类为 Net::SSH2 的子类.当我尝试添加一个类变量时，我收到错误消息 -

Not a HASH reference at F:\temp\fooA.pl line 17.

如果我在没有 Net::SSH2 的情况下做同样的事情然后它工作正常。

这是代码:

use strict;

my $x = Foo->new();

package Foo;

use base qw (Net::SSH2);

sub new {
    my ($class, %args) = @_;

    my $self = $class->SUPER::new(%args);
    $self->{'key'} = 'value';
    bless $self, $class;
    return $self;
}

Answer 1

很简单:Net::SSH2 不返回哈希引用，而是一个有福的标量:

use Scalar::Util qw(reftype);
print reftype($self) . "\n";  # SCALAR

BTW:依赖第三方代码的实现细节总是很危险的。

一个可能的解决方案是使用由内而外的对象:

package Foo;

use Scalar::Util qw( refaddr );
use base qw( Net::SSH2 );

my %keys;

sub new {
    my ( $class, %args ) = @_;

    my $self = $class->SUPER::new ( %args );

    $keys{ refaddr ( $self ) } = 'value';

    bless $self, $class;
    return $self;
}