Skip to content

Instantly share code, notes, and snippets.

my $count = 0;
loop { 1 if $count %% 1 }
@kanatohodets
kanatohodets / mojo-unix-sock.pl
Last active November 8, 2019 04:09
Mojo::UserAgent over a unix socket
#!/usr/bin/env perl
use strict;
use warnings;
use 5.20.0;
use IO::Socket::UNIX;
use Mojo::Util qw(monkey_patch);
use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;