zakame

FROM perl:5.32-slim-buster

RUN cpanm -nq Mojolicious

COPY app.pl /

CMD ["/usr/local/bin/perl", "/app.pl", "daemon", "-l", "http://*:8080"]

zakame

#!/usr/bin/env perl
use Mojolicious::Lite;

package Model::FileWatch {
  use Mojo::Base 'Mojo::EventEmitter';
  use Mojo::Promise;
  use IO::File;

  has 'file';

zakame

#!/usr/bin/env perl
# Perl 5 version of https://gist.github.com/benjchristensen/4671081
# Using IO::Async and Future
use strict;
use warnings;
use feature 'say';
use curry;

use Future;
use IO::Async::Function;

zakame

#!/usr/bin/env perl
use Mojo::Base -strict;
use Mojo::JSON qw(encode_json);
use Mojo::UserAgent;
use Mojo::Util qw(md5_sum steady_time);

my $ua = Mojo::UserAgent->new->tap( sub {
    shift->transactor->add_generator(
        jsonrpc => sub {
            my ( $t, $tx, $method, $params ) = @_;

zakame

[zakame@yorozuya:~] 130 % reply -Mversion
0> version->parse('0.2')->normal                                               
$res[0] = 'v0.200.0'

1> version->parse('0.2.1')->normal                                             
$res[1] = 'v0.2.1'

2> version->parse('v0.2')->normal                                              
$res[2] = 'v0.2.0'

zakame

#!/usr/bin/env perl
use warnings;
use strict;

use Benchmark qw(:all);
use Text::CSV_XS;

# file with 1_000_000 entries of 'test|N,xxxN|noob' where N = number
my $file = '/tmp/test.txt';

zakame

.carton
local

zakame

;; If perlbrew is used, get PERLBREW_PATH to be used in exec-path and PATH
;; Adapted from https://gist.github.com/960214
(require 'cl)
(let ((perlbrew-init "~/.perlbrew/init"))
  (if (file-readable-p perlbrew-init)
      (dolist (line (with-temp-buffer
                      (insert-file-contents perlbrew-init)
                      (split-string (buffer-string) "\n" t)))
        (with-temp-buffer
          (insert line)

zakame

#!/usr/bin/env perl
use Mojolicious::Lite;

plugin 'OAuth2',
  google => {
  key    => $ENV{GOOGLE_OAUTH2_CLIENT_ID},
  secret => $ENV{GOOGLE_OAUTH2_CLIENT_SECRET},
  };

my $service = 'https://www.googleapis.com';

zakame

;;; zakame.emacs --- My Emacs customizations
;; Copyright (C) 2005-2011  Zak B. Elep

;;;_* Package description

;; Author	:	Zak B. Elep ( zakame@zakame.net )
;; Date Created	:	Thu Sep 29 12:29:42 UTC 2005
;; Purpose	:	Set my personal customizations for the One True Editor.
;; Keywords	:	environment, customization
;; License	:	GNU General Public License (GPL), version 2