=================================================================== RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v retrieving revision 1.23 retrieving revision 1.24 diff -u -r1.23 -r1.24 --- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm 2007/01/08 22:16:29 1.23 +++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm 2007/01/17 19:00:51 1.24 @@ -1,5 +1,5 @@ package Net::Telnet::Trango; -# $RedRiver: Trango.pm,v 1.21 2006/10/05 17:10:39 andrew Exp $ +# $RedRiver: Trango.pm,v 1.23 2007/01/08 22:16:29 mike Exp $ use strict; use warnings; use base 'Net::Telnet'; @@ -14,13 +14,13 @@ use Net::Telnet::Trango; my $t = new Net::Telnet::Trango ( Timeout => 5 ); - + $t->open( Host => $fox ) or die "Error connecting: $!"; $t->login('password') or die "Couldn't log in: $!"; - + # Do whatever - + $t->exit; $t->close; @@ -37,6 +37,10 @@ None +=head1 METHODS + +=over + =cut our $VERSION = '0.01'; @@ -160,7 +164,7 @@ =pod -=head1 METHODS +=back =head2 ACCESSORS