From: Dobrica Pavlinusic Date: Tue, 27 Sep 2011 10:11:17 +0000 (+0200) Subject: use Mojo::UserAgent instead of Mojo::Client X-Git-Url: http://git.rot13.org/?p=angular-mojolicious.git;a=commitdiff_plain;h=537a640293a41d173bc596417b42b80846ae7d1a use Mojo::UserAgent instead of Mojo::Client --- diff --git a/README b/README index 4dd9f76..c0fd38f 100644 --- 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 --- 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 --- 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 --- 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;