如何生成abstract method

如何生成abstract method
小弟想在perl的Person Object中生成abstract method, 即
sub save{
my($self) = $_[0];
my($flagBoolean) = $self->{"flag"};
if ($flagBoolean eq "1")
{
update();
}else{
insert();
}
}

sub update{
}

sub insert{
}

希望update和insert都是abstract method,调用时自动根据继承的Female.pm中的实际update和insert方法来实现功能.
小弟是java delveloper,不了解如何在Perl中实现abstract method.希望大侠给一段code让我参考.

package Person;
里面的 update 和 insert 如果没有定义的话，就会调用父类的对应方法。

package Person;----@.
package Person;

@Person::ISA = qw/Female/;

然后sub update和sub insert不用定义，自动继承Female的方法.