### ----------------------------------------------------
### -- LibCurl
### -- Licenses: NASA-1.3
### -- Authors: Curt Tilmes <Curt.Tilmes@nasa.gov>
### -- File: eg/progressfunc.raku
### ----------------------------------------------------
#!/usr/bin/env raku
use LibCurl::Easy;

sub xferinfo(LibCurl::Easy $easy, $dltotal, $dlnow, $ultotal, $ulnow)
{
    say "$dltotal $dlnow $ultotal $ulnow";
    return 0;
}

my $curl = LibCurl::Easy.new(URL => 'http://example.com/',
                             xferinfofunction => &xferinfo).perform;

say $curl.statusline;


