glib async problem

--001a113fdf625fc3a90549794a90
Content-Type: text/plain; charset=UTF-8

Can anyone try this code and post if anything comes out? I don't get any
output. I suspect something is wrong on the lib level.

I'm on Windows 10 with Strawberry Perl 5.24 64bit btw.

======

#!/usr/bin/perl

use strict;
use warnings;

use IO::Async::Loop::Glib;
use Net::Async::HTTP;
use Gtk2 qw( -init );

my $loop = IO::Async::Loop::Glib->new;

my $ua = Net::Async::HTTP->new;
$loop->add( $ua );

recognition();

Gtk2->main;



sub recognition
{
   my $f = $ua->POST(
      "http://www.google.com",
      [
         test => "params",
         go => "here",
      ]
   )->then(
      # success
      sub {
         my ( $response ) = @_;

         print "response is: $response\n";
         Future->done;
      },

      # failure
      sub {
         my ( $error ) = @_;

         print "failure is $error\n";
         Future->done;
      },
   );

   $ua->adopt_future( $f );
}

--001a113fdf625fc3a90549794a90
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><span style=3D"font-size:12.8px">Can anyone try this code =
and post if anything comes out? I don&#39;t get any output. I suspect somet=
hing is wrong on the lib level.</span><div style=3D"font-size:12.8px">=C2=
=A0<div>I&#39;m on Windows 10 with Strawberry Perl 5.24 64bit btw.</div></d=
iv><div style=3D"font-size:12.8px"><br></div><div style=3D"font-size:12.8px=
">=3D=3D=3D=3D=3D=3D</div><div style=3D"font-size:12.8px"><br><div><div>#!/=
usr/bin/perl</div><div><br></div><div>use strict;</div><div>use warnings;</=
div><div><br></div><div>use IO::Async::Loop::Glib;</div><div>use Net::Async=
::HTTP;</div><div>use Gtk2 qw( -init );</div><div><br></div><div>my $loop =
=3D IO::Async::Loop::Glib-&gt;new;</div><div><br></div><div>my $ua =3D Net:=
:Async::HTTP-&gt;new;</div><div>$loop-&gt;add( $ua );</div><div><br></div><=
div>recognition();</div><div><br></div><div>Gtk2-&gt;main;</div><div><br></=
div><div><br></div><div><br></div><div>sub recognition</div><div>{</div><di=
v>=C2=A0 =C2=A0my $f =3D $ua-&gt;POST(</div><div>=C2=A0 =C2=A0 =C2=A0 &quot=
;<a href=3D"http://www.google.com/" target=3D"_blank">http://www.google.com=
</a>&quot;,</div><div>=C2=A0 =C2=A0 =C2=A0 [</div><div>=C2=A0 =C2=A0 =C2=A0=
 =C2=A0 =C2=A0test =3D&gt; &quot;params&quot;,</div><div>=C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0go =3D&gt; &quot;here&quot;,</div><div>=C2=A0 =C2=A0 =C2=
=A0 ]</div><div>=C2=A0 =C2=A0)-&gt;then(</div><div>=C2=A0 =C2=A0 =C2=A0 # s=
uccess</div><div>=C2=A0 =C2=A0 =C2=A0 sub {</div><div>=C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0my ( $response ) =3D @_;</div><div><br></div><div>=C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0print &quot;response is: $response\n&quot;;</div><d=
iv>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Future-&gt;done;</div><div>=C2=A0 =C2=
=A0 =C2=A0 },</div><div><br></div><div>=C2=A0 =C2=A0 =C2=A0 # failure</div>=
<div>=C2=A0 =C2=A0 =C2=A0 sub {</div><div>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0my ( $error ) =3D @_;</div><div><br></div><div>=C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0print &quot;failure is $error\n&quot;;</div><div>=C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0Future-&gt;done;</div><div>=C2=A0 =C2=A0 =C2=A0 },</div=
><div>=C2=A0 =C2=A0);</div><div><br></div><div>=C2=A0 =C2=A0$ua-&gt;adopt_f=
uture( $f );</div><div>}</div></div></div></div>

--001a113fdf625fc3a90549794a90--