[libanyevent-handle-udp-perl] 27/60: Add sockname and peername methods

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libanyevent-handle-udp-perl.

commit 1e2573dfee929b421ec62c3aea57a08ac0af5e5f
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Sat May 26 22:55:16 2012 +0200

    Add sockname and peername methods
---
 lib/AnyEvent/Handle/UDP.pm |    9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lib/AnyEvent/Handle/UDP.pm b/lib/AnyEvent/Handle/UDP.pm
index c9d4a94..50414a9 100644
--- a/lib/AnyEvent/Handle/UDP.pm
+++ b/lib/AnyEvent/Handle/UDP.pm
@@ -22,6 +22,7 @@ use namespace::clean;
 has fh => (
 	is => 'ro',
 	default => sub { bless gensym(), 'IO::Socket' },
+	handles => [ qw/sockname peername/ ],
 );
 
 has _bind_addr => (
@@ -402,6 +403,14 @@ Try to send a message. If a socket is not connected a receptient address must al
 
 Reset the activity timeout, as if data was received or sent.
 
+=method sockname
+
+Get the local address, per C<getsockname>.
+
+=method peername
+
+Get the peer's address, per C<getpeername>.
+
 =method destroy
 
 Destroy the handle.

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libanyevent-handle-udp-perl.git