小编Mio*_*nyr的帖子

我想在子类中替换父函数(Somefunc),所以当我调用Main过程时它应该失败.

Perl有可能吗？

码:

package Test;

use strict;
use warnings;

sub Main()
{
    SomeFunc() or die "Somefunc returned 0";
}

sub SomeFunc()
{
    return 1;
}

package Test2;

use strict;
use warnings;

our @ISA = ("Test");

sub SomeFunc()
{
    return 0;
}

package main;

Test2->Main();