perl - AnyEvent でデータの読み取りを停止する方法

Question

Perl のAnyEventを使用して、いくつかのプロキシ スクリプトを実行してきました。

Agent<->Proxy-Server<->client

私のプログラムは、このセットアップでプロキシ サーバーとして機能します。

AnyEvent ::Handleで、エージェントからのデータの読み取りを停止し、クライアントがデータを取得した後に再開するにはどうすればよいですか?

部品コード:

$hdl->on_read( 
    sub {
        my $h = shift;
        $h->stop_read;
        print $h->rbuf;
        $h->push_write("Hello there");
    }
);

最近$handle->stop_read、エージェントon_readイベントに追加しましたが、機能しません。エージェントは常にデータを取得します。