trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm - diff

Return to Trango.pm CVS log

Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet

-version 1.44, 2007/06/05 20:54:05
+version 1.45, 2008/02/08 16:49:09
 Line 1
 Line 1
 Line 1
  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';
 Line 1065
 Line 1065
 Line 1065
          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