102     my $self = shift;

   102     my $self = shift;

   103 

   103 

   104     local $/ = "\r";    # CR is the delimiter

   104     local $/ = "\r";    # CR is the delimiter

   105 

   105 

   106     local $_ = $self->{socket}->getline;

   106     local $_ = $self->{socket}->getline;

   108     $self->{last_result} = new Quancom::Result($_);

   107     $self->{last_result} = new Quancom::Result($_);

   109 

   108 

   110 }

   109 }

   111 

   110 

   112 1;

   111 1;