← Back to branch summary

~ubuntu-branches/ubuntu/saucy/padre/saucy-proposed

« back to all changes in this revision

Viewing changes to lib/Padre/Task/LWP.pm

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, gregor herrmann, Dominique Dumont
  • Date: 2012-01-04 12:04:20 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20120104120420-i5oybqwf91m1d3il
Tags: 0.92.ds1-1
[ gregor herrmann ]
* Remove debian/source/local-options; abort-on-upstream-changes
  and unapply-patches are default in dpkg-source since 1.16.1.
* Swap order of alternative (build) dependencies after the perl
  5.14 transition.

[ Dominique Dumont ]
* Imported Upstream version 0.92.ds1
* removed fix-spelling patch (applied upstream)
* lintian-override: use wildcard to avoid listing a gazillion files
* updated size of some 'not-real-man-page' entries
* rules: remove dekstop cruft (replaced by a file provided in debian
  directory)
* control: removed Breaks statement. Add /me to uploaders. Updated
  dependencies
* rules: make sure that non-DFSG file (i.e. the cute butterfly, sigh)
  is not distributed

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Task/LWP.pm
26
26
use 5.008005;
27
27
use strict;
28
28
use warnings;
29
 
use Params::Util ();
30
 
use Padre::Task  ();
 
29
use Padre::Constant ();
 
30
use Params::Util    ();
 
31
use Padre::Task     ();
31
32
 
32
 
our $VERSION = '0.90';
 
33
our $VERSION = '0.92';
33
34
our @ISA     = 'Padre::Task';
34
35
 
35
36
use Class::XSAccessor {
100
101
 
101
102
=cut
102
103
 
 
104
 
 
105
 
 
106
 
 
107
 
103
108
######################################################################
104
109
# Padre::Task Methods
105
110
 
139
144
                agent   => "Padre/$VERSION",
140
145
                timeout => 60,
141
146
        );
142
 
        $useragent->env_proxy;
 
147
        $useragent->env_proxy unless Padre::Constant::WIN32;
143
148
 
144
149
        # Execute the request.
145
150
        # It's not up to us to judge success or failure at this point,
146
151
        # we just do the heavy lifting of the request itself.
147
 
        $self->handle->status(
 
152
        $self->tell_status(
148
153
                join ' ', $method, $url, '...',
149
 
        ) if $self->running;
 
154
        );
150
155
 
151
156
        $self->{response} = $useragent->request($request);
152
157
 
153
 
        $self->handle->status(
 
158
        $self->tell_status(
154
159
                join ' ', $method, $url, '-->',
155
160
                $self->{response}->code,
156
161
                $self->{response}->message,
157
 
        ) if $self->running;
 
162
        );
158
163
 
159
164
        # Remove the CODE references from the response.
160
165
        # They aren't needed any more, and they won't survive