Commit 070471a7c152f6d2f5189bbd1e0e82b66d5e2ae2
- Diff rendering mode:
- inline
- side by side
lib/LWP/Protocol.pm
(2 / 2)
|   | |||
| 103 | 103 | elsif (!ref($arg) && length($arg)) { | |
| 104 | 104 | open(my $fh, ">", $arg) || die "Can't write to '$arg': $!"; | |
| 105 | 105 | push(@{$response->{handlers}{response_data}}, sub { | |
| 106 | print $fh $_[2] || die "Can't write to '$arg': $!"; | ||
| 106 | print $fh $_[3] || die "Can't write to '$arg': $!"; | ||
| 107 | 107 | 1; | |
| 108 | 108 | }); | |
| 109 | 109 | push(@{$response->{handlers}{response_done}}, sub { | |
| … | … | ||
| 113 | 113 | } | |
| 114 | 114 | elsif (ref($arg) eq 'CODE') { | |
| 115 | 115 | push(@{$response->{handlers}{response_data}}, sub { | |
| 116 | &$arg($_[2], $_[0], $self); | ||
| 116 | &$arg($_[3], $_[0], $self); | ||
| 117 | 117 | 1; | |
| 118 | 118 | }); | |
| 119 | 119 | } |
lib/LWP/UserAgent.pm
(1 / 1)
|   | |||
| 616 | 616 | push(@{$response->{handlers}{response_data}}, sub { | |
| 617 | 617 | print "P\n"; | |
| 618 | 618 | return unless $parser; | |
| 619 | $parser->parse($_[2]) or undef($parser); | ||
| 619 | $parser->parse($_[3]) or undef($parser); | ||
| 620 | 620 | }); | |
| 621 | 621 | ||
| 622 | 622 | } : undef, |

