On Tue, 5 May 2009, Jared Johnson wrote:

> In current qp it would be about like so:
>
> sub hook_pre_connection {
>     my ($self,$transaction,%arg) = @_;
>     my $port = $arg{local_port};
> }
>
> -Jared

Exactly what I want. Thanks.

Always more than one way to do it. (But there's still room for more
complete documentation!)

Reply via email to