モジュールメソッドで使用されている関数を上書きする方法は？

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); 

some_method()は、それ自体get()フォームLWP::Simpleを使用します。
my_get()でget()を上書きするにはどうしたらいいですか？

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 
} 

OR、get方法は、あなたが質問に暗示するように、シンプル:: LWPから継承され、実際にある場合 -

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