+ $ua->on(start => sub {
+ my ($ua, $tx) = @_;
+ while (my ($k, $v) = each %args) {
+ dbg("AsyncMsg: attaching header $k: $v") if isdbg('async');
+ $tx->req->headers->header($k => $v);
+ }
+ if (defined $data) {
+ dbg("AsyncMsg: body ='$data'") if isdbg('async');
+ $tx->req->body($data);
+ }
+ });
+
+