LWP::UserAgentからFurlに置き換えてみた

Perl

レガシーコードの置き換え。そして高速になった！

use LWP::UserAgent;
use Furl;
sub get_html
{
	my ($url, $opt) = @_;
	if($opt && $opt eq "lwp") {
		my $lwp = LWP::UserAgent->new();
		my $res = $lwp->get($url);
		unless ($res->is_success) {
			return;
		}
		my $html = $res->decoded_content;
		return $html;
	}
	else {
		my $furl = Furl->new();
		my $res = $furl->get($url);
		unless($res->is_success) {
			return;
		}
		my $http_response = $res->as_http_response;
		my $html = $res->decoded_content;
		return $html;
	}
}