मॉड्यूल-विधि में उपयोग किए गए फ़ंक्शन को ओवरराइट कैसे करें?

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 
} 

या, यदि get विधि, वास्तव में है के रूप में आप प्रश्न में नहीं दिखाते, LWP से प्राप्त होती है :: सरल -

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