Perl OO问题,继承 - 调用父方法

Question

为什么我无法在以下代码中使用子对象调用parent的testmethod？

    use strict;
    use Data::Dumper;

    my $a = C::Main->new('Email');
    $a->testmethod();

    package C::Main;


    sub new {
        my $class = shift;
        my $type  = shift;
        $class .= "::" . $type;
        my $fmgr = bless {}, $class;
        $fmgr->init(@_);
        return $fmgr;
    }

    sub init {
        my $fmgr = shift;
        $fmgr;
    }

    sub testmethod {
        print "SSS";
    }

    package C::Main::Email;
    use Net::FTP;

    @C::Main::Email::ISA = qw( C::Main );

    sub init {
        my $fmgr = shift;
        my $ftp = $fmgr->{ftp} = Net::FTP->new( $_[0] );
        $fmgr;
    }

    package C::Main::FTP;
    use strict;
    use Net::FTP;

    @C::Main::Email::FTP = qw( C::Main );

    sub init {
        my $fmgr = shift;
        $fmgr;
    }

Answer 1

这是因为赋值@ISA是在运行时完成的,因此在您尝试调用该方法之后.

您可以通过周围的方式使其工作BEGIN,将其移动到编译时:

BEGIN { our @ISA = qw( C::Main ) }

或者你可以做

use base qw( C::Main );

这也是在编译时完成的.两种变体都能解决您的问题.