How to rewrite a function used in a modular method?

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() uses get() LWP::Simple form.
How can I overwrite get() my my_get() in this 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 } 

OR, if the get method is actually, as you imply in the question, inherited from LWP :: Simple -

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