Furlでサーバへの接続に掛かった時間とレスポンスに掛かった時間を取得する方法 - Hateburo: kazeburo hatenablog

AnyEvent::HTTPの続き package MyFurl::HTTP; use strict; use warnings; use base qw/Furl::HTTP/; use...概要を表示 AnyEvent::HTTPの続き package MyFurl::HTTP; use strict; use warnings; use base qw/Furl::HTTP/; use Time::HiRes; sub response_time { if ( @_ > 1 ) { $_[0]->{times} = $_[1]; } $_[0]->{times}; } sub connect : method { my($self, $host, $port, $timeout_at) = @_; push @{$self->response_time}, Time::HiRes::time; my $ret = $self->SUPER::connect($host, $port, $timeout_at); push @{$self->response_time}, Time::H

• 興味深い