在使用 AnyEvent::WebSocket::Client 进行 WebSocket 客户端开发时，如果发现完成回调函数未被调用，可能是由于以下原因：

1. WebSocket 连接未成功建立：在连接 WebSocket 服务器时，可能由于网络问题或服务器配置问题导致连接失败。可以使用 on_connect_error 回调函数来处理连接错误，并查看错误信息。

use AnyEvent::WebSocket::Client;

my $client = AnyEvent::WebSocket::Client->new;

my $condvar = $client->connect("ws://example.com")->cb(sub {
    my $connection = eval { shift->recv };
    if ($@) {
        # 连接错误处理
        print "连接错误: $@";
        return;
    }
    
    # 连接成功，处理 WebSocket 消息
    $connection->on(each_message => sub {
        my ($connection, $message) = @_;
        # 处理消息
    });
    
    # 连接关闭处理
    $connection->on(finish => sub {
        my ($connection, $code, $reason) = @_;
        # 连接关闭处理
    });
});

$condvar->recv;

2. 没有正确设置完成回调函数：在 on_connect 回调函数中，需要设置完成回调函数来处理连接完成的事件。如果未设置完成回调函数，可能导致完成回调函数未被调用。

use AnyEvent::WebSocket::Client;

my $client = AnyEvent::WebSocket::Client->new;

my $condvar = $client->connect("ws://example.com")->cb(sub {
    my $connection = eval { shift->recv };
    if ($@) {
        # 连接错误处理
        print "连接错误: $@";
        return;
    }
    
    # 设置完成回调函数
    $connection->on(finish => sub {
        my ($connection, $code, $reason) = @_;
        # 连接关闭处理
    });
    
    # 连接成功，处理 WebSocket 消息
    $connection->on(each_message => sub {
        my ($connection, $message) = @_;
        # 处理消息
    });
});

$condvar->recv;

确保以上两个方面都正确设置后，完成回调函数应该会被调用。如果仍然未被调用，可以查看 AnyEvent::WebSocket::Client 的文档或官方示例进行排查。