package A;

sub new {
	bless {}, shift;
}

sub doit {
	my $self = shift;
	warn 'A::doit';
}

1;

##</code><code>##

package B;

use base 'A';

sub doit {
	my $self = shift;
	
	warn 'B::doit';
	$self->SUPER::doit();
}

1;

##</code><code>##

package C;

use base 'B';

1;

##</code><code>##

package D;

sub new {
	bless {}, shift;
}

sub doit {
	my $self = shift;
	warn 'D::doit';
}

1;

##</code><code>##

use C;

my $c = new C;
$c->doit();

##</code><code>##

use C;
use D;

unshift @C::ISA, 'D';
*C::doit = \&B::doit;

my $c = new C;
$c->doit();