Logioniz

#!/use/bin/perl
use Mojo::Base -strict;
use Socket qw/:DEFAULT SOCK_NONBLOCK/;
use Data::Dumper;
use EV;

my $host="localhost";
my $port="3000";

socket(my $sock, PF_INET, SOCK_STREAM | SOCK_NONBLOCK, getprotobyname('tcp'));

Logioniz

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netdb.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/epoll.h>
#include <errno.h>

Logioniz

use Mojo::Base -strict;

use Mojo::IOLoop;
use Mojolicious::Lite;
use Test::More;
use Test::Mojo;

get '/' => sub {
  my $c = shift->render_later;
  $c->inactivity_timeout(40);

Logioniz

PS1='${debian_chroot:+($debian_chroot)}\[\033[01;34m\]\u\[\033[01;32m\]@\[\033[01;31m\]\h\[\033[00m\]:\[\033[01;35m\]\w\[\033[01;31m\]$(__git_ps1 " (%s) ")\[\033[01;32m\]\$ \[\033[00m\]'


function svndiff () { svn diff $@ | colordiff; }

PATH=$PATH:/home/logioniz/Scripts

Logioniz

#!/usr/bin/perl

use Mojo::Base -strict;
use Mojo::Util 'encode';
use Mojo::UserAgent;

say Mojo::UserAgent->new->post('http://127.0.0.1:3000/' => form => {
  file_name_1 => [
    { 
      # file => '/path/to/file',

Logioniz

#!/usr/bin/perl

use strict;
use warnings;

use v5.10;

use Mojo::UserAgent;

say Mojo::UserAgent->new->post('http://127.0.0.1:3000/' => form => {

Logioniz

#!/usr/bin/perl
package A1;

use Data::Dumper;

our $AUTOLOAD;

sub new { my $class = shift; bless {@_}, ref $class || $class };

sub AUTOLOAD {

Logioniz

#!/usr/bin/perl

use strict;
use warnings;

use v5.10;

use Mojolicious::Lite;

get  '/login' => sub { shift->render } => 'login';

Logioniz

#!/usr/bin/perl

use strict;
use warnings;

use v5.10;

use Mojolicious::Lite;
use Mojo::IOLoop;

Logioniz

#!/usr/bin/perl

# Run with command perl 1.pl get /

package AAA;

use Scalar::Util 'weaken';

sub new {
        my ($class, $app) = @_;