package MyMLH; 
use MIME::Lite::HTML;
@ISA = "MIME::Lite::HTML";

sub absURL($,$){ 
    return "PONIES!"; 
}


##</code><code>##

 
use MyMLH; 
print MyMLH::absURL; 

##</code><code>##

 

sub MIME::Lite::HTML::absURL($,$){ 


##</code><code>##

 

sub parse () { 

my $self = shift; 

    sub private_sub { 
       
       # calls, "absUrl" in the module itself, 
       # and not my overridden version
       # (I think!) 
       return absUrl('this', 'that'); 
    }
 
    private_sub(); 

}