DoubleDi

/* Запуск программы */
start :- /* создаём диалоговое окно */
         new(DW, dialog('Окно моей программы')),
/* создаём поле Picture для вывода графических
фигур и задаём его размеры */
         new(Picture, picture),
         send(Picture, width(350)),
         send(Picture, height(350)),
/*добавляем в это диалоговое окно список
объектов*/send_list(DW,append, /*графическое поле*/

DoubleDi

{
        $type typemap__struct = ($type)$arg;
        SV *x;
        SV *y;
        sv_setnv(x, typemap__struct->x);
        sv_setnv(y, typemap__struct->y);
        HV *point = newHV();
        hv_store((HV *)point, \"x\", 1, x, 0);
        hv_store((HV *)point, \"y\", 1, y, 0);
        SV *ref = newRV_inc((SV*)point);

DoubleDi

use strict;
use warnings;
use feature "say";

use AnyEvent::HTTP;
use Web::Query;
use DDP;

my $index = 1;
my $results_hash = {};