NAME

App::BCSSH::Proxy - ssh-agent proxy with message intercept

SYNOPSIS

my $proxy = App::BCSSH::Proxy->new(
    agent_path => $agent_path,
    handlers => {
        (BCSSH_COMMAND) => sub {
            my ($message, $send, $socket) = @_;
            ...;
        },
    },
);
$ENV{SSH_AUTH_SOCK} = $proxy->socket_path;
$proxy->proxy(\*STDIN);