Как переписать функцию, используемую в модуле-методе?

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.
Как я мог переписать get() с моим my_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 :: Simple -

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