[ViewVC] Diff of: cvs/AnyEvent-FCP/FCP.pm

Comparing AnyEvent-FCP/FCP.pm (file contents):
Revision 1.17 by root, Sat Sep 5 19:36:12 2015 UTC vs.
Revision 1.18 by root, Thu Dec 3 19:07:57 2015 UTC

 use common::sense;
 use Carp;
-our $VERSION = '0.3';
+our $VERSION = 0.4;
 use Scalar::Util ();
 use AnyEvent;
 use AnyEvent::Handle;
    my $self = bless {
       host       => $ENV{FREDHOST} || "127.0.0.1",
       port       => $ENV{FREDPORT} || 9481,
       timeout    => 3600 * 2,
+      keepalive  => 9 * 60,
       name       => time.rand.rand.rand, # lame
       @_,
       queue      => [],
       req        => {},
       prefix     => "..:aefcpid:$rand:",
       idseq      => "a0",
    }, $class;
    {
       Scalar::Util::weaken (my $self = $self);
+      $self->{kw} = AE::timer $self->{keepalive}, $self->{keepalive}, sub {
+         $self->{hdl}->push_write ("\n");
+      };
       our $ENDMESSAGE = qr<\012(EndMessage|Data)\012>;
       # these are declared here for performance reasons
       my ($k, $v, $type);
       $self->{hdl} = new AnyEvent::Handle
          connect  => [$self->{host} => $self->{port}],
          timeout  => $self->{timeout},
          on_error => sub {
-            warn "@_\n";#d#
+            warn "$self->{host}: $_[2]\n";#d#
             exit 1;
          },
          on_read  => $on_read,
          on_eof   => $self->{on_eof} || sub { },
       ;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines