I've done something exactly like that. There is one additional bit in my code, though.

sub methodOne {
    my $self = shift;
    print "Error:  Use of undefined Abstract Method by $self\n";
}
[download]

That way, you know exactly which subclass isn't overriding it.