[tools] testbot/TestAgent: Add documentation for new().

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 testbot/lib/WineTestBot/TestAgent.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/testbot/lib/WineTestBot/TestAgent.pm b/testbot/lib/WineTestBot/TestAgent.pm
index 6c4e6444d..096c3eaea 100644
--- a/testbot/lib/WineTestBot/TestAgent.pm
+++ b/testbot/lib/WineTestBot/TestAgent.pm
@@ -95,6 +95,19 @@ sub trace_speed($$)
     }
 }

+=pod
+=over 12
+
+=item C<new()>
+
+Creates a connection to a TestAgent server.
+
+Note that the resources, including the network connection and ssh tunnel,
+are automatically released when this object goes out of scope.
+
+=back
+=cut
+
 sub new($$$;$)
 {
   my ($class, $Hostname, $Port, $Tunnel) = @_;