view release on metacpan or  search on metacpan

t/02-prima-http.t  view on Meta::CPAN

use AnyEvent::HTTP;
use Prima;
use Prima::Application;

use Test::HTTP::LocalServer;

my $server = Test::HTTP::LocalServer->spawn();

my $mw = Prima::MainWindow->new();

use Data::Dumper;
my $res;

my $timer;
my $web_request;
my $answer;

my $start_request; $start_request = AnyEvent->timer(
    after => 2,
    cb => sub {
        $timer++;