couchdb/couchdb-changes.pl

   1 #!/usr/bin/perl
   2
   3 # http://wiki.apache.org/couchdb/HTTP_database_API#Changes
   4
   5 use warnings;
   6 use strict;
   7
   8 use LWP::UserAgent;
   9 use Data::Dump qw(dump);
  10
  11 my $ua = LWP::UserAgent->new;
  12 $ua->timeout( 60 * 60 );
  13 $ua->env_proxy;
  14
  15 my $response = $ua->get(
  16         'http://localhost:5984/monitor/_changes?feed=continuous'
  17         , ':content_cb' => sub {
  18                 my ( $data, $response, $protocol ) = @_;
  19                 warn dump( $data );
  20         }
  21 );
  22
  23 if ($response->is_success) {
  24         print $response->decoded_content;  # or whatever
  25 }
  26 else {
  27         die $response->status_line;
  28 }
  29