perl – 如何覆盖模块方法中使用的函数？

发布时间：2020-12-15 21:51:06 所属栏目：大数据来源：网络整理

导读：#!/usr/bin/env perluse 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()

#!/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;
}

解决方法

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

或者,如果get方法实际上就像你在问题中所暗示的那样,继承自LWP :: Simple –

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!