#!/usr/bin/perl

use common::sense;
use AnyEvent::HTTP;
use Data::Dumper;


sub do {
    my $iter = shift;
    # It will resolve every timeout problems, but it is not question
    # AnyEvent->now_update;
    my $cv = AnyEvent->condvar; 
    $cv->begin;
    http_get
        'https://imasheep.hurrdurr.org/category/about.html',
        timeout => 2,
        sub {
            my ($body, $hdr) = @_;
            say "$iter $hdr->{Status}";
            unless ($hdr->{Status} == 200) {
                warn Data::Dumper->Dump([$hdr],['hdr']);
            }
            $cv->end;
        }
    ;
    my $timer = AnyEvent->timer(
        after => 300,
        cb    => sub { warn "Exit by timer"; $cv->send },
    );
    my ($n, $t) = (AnyEvent->now,  AnyEvent->time);
    my $d = $t-$n; 
    say "$iter diff = $d, time = $t, now = $n";
    $cv->recv;
}

for (1..4) {
    &do($_);
    sleep(5);
}