===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/06/05 20:54:05	1.44
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2008/02/08 16:49:09	1.45
@@ -1,6 +1,6 @@
 package Net::Telnet::Trango;
 
-# $RedRiver: Trango.pm,v 1.43 2007/05/21 20:45:48 andrew Exp $
+# $RedRiver: Trango.pm,v 1.44 2007/06/05 19:54:05 mike Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -1065,6 +1065,32 @@
         push @decoded, $decoded if defined $decoded;
     }
     return \@decoded;
+}
+
+#=item _decode_linktest
+
+sub _decode_linktest {
+    my @lines = @_;
+    my %decoded;
+    foreach my $line (@lines) {
+
+        if ($line =~ s/^(\d+) \s*//xms) {
+            my $line_id = $1;
+            my $d = _decode_lines($line . "\n");
+            $decoded{tests}[$line_id] = $d;
+        }
+
+        else {
+            my $d = _decode_lines($line . "\n");
+            if ($d) {
+                while (my ($k, $v) = each %{ $d }) {
+                    $decoded{$k} = $v;
+                }
+           }
+        }
+
+    }
+    return \%decoded;
 }
 
 #=item _decode_sulog