¿Cómo sobrescribir una función utilizada en un método de módulo?

Question

#!/usr/bin/env perl 
use warnings; 
use 5.012; 
use utf8; 

use WWW::Mechanize::Cached; 
use Some::Module qw(some_method); 

my $url = '...'; 
my $result = some_method($url); 

El some_method() se usa a sí mismo get() formulario LWP::Simple.
¿Cómo podría sobreescribir el get() con mi my_get() en este script?

sub my_get { 
    my $url; 
    my $mech = WWW::Mechanize::Cached->new(); 
    $mech->get($url); 
    my $content = $mech->content(format => 'text'); 
    return $content; 
} 

Answer 1

sub WWW::Mechanize::Cached::get { 
    # your code 
} 

O, si el método get es en realidad, como se da a entender en la cuestión, se hereda de LWP :: Simple -

sub LWP::Simple::get { 
    # your code 
}