use Mojo::UserAgent instead of Mojo::Client

diff --git a/README b/README
index 4dd9f76..c0fd38f 100644 (file)
--- a/README
+++ b/README
@@ -77,7 +77,7 @@ Angular examples available:
 
 CouchDB examples:
 
-       couchdb-changes.pl - simple _changes feed watcher using Mojo::Client documented at
+       couchdb-changes.pl - simple _changes feed watcher using Mojo::UserAgent documented at
 
                http://wiki.apache.org/couchdb/HTTP_database_API#Changes
 

diff --git a/angular-replicate.pl b/angular-replicate.pl
index ad8c807..2010754 100755 (executable)
--- a/angular-replicate.pl
+++ b/angular-replicate.pl
@@ -2,7 +2,7 @@
 use warnings;
 use strict;
 
-use Mojo::Client;
+use Mojo::UserAgent;
 use Data::Dump qw(dump);
 
 use lib 'common/mojo/lib';
@@ -12,7 +12,7 @@ my ( $from, $to ) = @ARGV;
 die "usage: $0 http://from/data/database/ http://to/data/database/\n"
 unless $from && $to;
 
-my $client = Mojo::Client->new;
+my $client = Mojo::UserAgent->new;
 
 my $got = $client->get( $from )->res->json;
 warn "# from $from ",dump($got);

diff --git a/angular-server.pl b/angular-server.pl
index 57e40a4..d5bced9 100755 (executable)
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -6,6 +6,7 @@ use Mojolicious::Lite;
 use Data::Dump qw(dump);
 use Time::HiRes;
 use Clone qw(clone);
+use Mojo::UserAgent;
 
 sub new_uuid { Time::HiRes::time * 100000 }
 
@@ -14,7 +15,7 @@ sub new_uuid { Time::HiRes::time * 100000 }
 # http://angular.getangular.com/data
 
 my $couchdb = 'http://localhost:5984';
-my $client = Mojo::Client->new;
+my $client = Mojo::UserAgent->new;
 
 sub _couchdb_put {
        my ( $url, $data ) = @_;

diff --git a/couchdb-changes.pl b/couchdb-changes.pl
index 41fcc8b..3cb1637 100755 (executable)
--- a/couchdb-changes.pl
+++ b/couchdb-changes.pl
@@ -7,13 +7,13 @@ use strict;
 
 use lib 'common/mojo/lib';
 
-use Mojo::Client;
+use Mojo::UserAgent;
 use Mojo::JSON;
 
 my $url = 'http://localhost:5984/monitor/_changes?feed=continuous;include_docs=true;since=';
 my $seq = 0;
 
-my $client = Mojo::Client->new;
+my $client = Mojo::UserAgent->new;
 my $json   = Mojo::JSON->new;
 my $error;