Skip to content

Instantly share code, notes, and snippets.

FROM opensuse/tumbleweed
RUN zypper ref && \
zypper in --no-recommends -y entr make perl-App-cpanminus && \
zypper cc -a && \
cpanm -n MHonArc::UTF8 && \
rm -rf /root/.cpanm
ARG MAILDIR
ARG OUTDIR
RUN mkdir -p ${MAILDIR} ${OUTDIR}
ENV MAILDIR ${MAILDIR}
FROM perl:5.34
RUN mkdir -p /srv/kapitaali_com-download-demo
COPY . /srv/kapitaali_com-download-demo
WORKDIR /srv/kapitaali_com-download-demo
RUN cpanm --installdeps -n .
CMD [ "starlight" ]
diff --git a/examples/billboard b/examples/billboard
index 9099b77..1cb837c 100755
--- a/examples/billboard
+++ b/examples/billboard
@@ -131 +131 @@ EOF
- MAKE_PALETTE, # palette type
+ MAKE_PALETTE(), # palette type
diff --git a/examples/blended2 b/examples/blended2
index 1e6e427..071e0d2 100755
--- a/examples/blended2
From 06fd6913d2becdd0d994b0ac786516618bf0f420 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lars=20D=C9=AA=E1=B4=87=E1=B4=84=E1=B4=8B=E1=B4=8F?=
=?UTF-8?q?=E1=B4=A1=20=E8=BF=AA=E6=8B=89=E6=96=AF?= <daxim@cpan.org>
Date: Sun, 8 Jul 2018 15:05:31 +0200
Subject: [PATCH 1/3] normalise so we can have meaningfully diffs
`jq . -S` was used
---
frameworks/Perl/dancer/benchmark_config.json | 44 +++++-----
frameworks/Perl/kelp/benchmark_config.json | 84 ++++++++++---------
@daxim
daxim / Testapp.pm
Created July 7, 2020 09:20
FFI::Platypus
package Testapp;
use FFI::Platypus;
use FFI::Platypus::Memory qw(free malloc);
my $ffi = FFI::Platypus->new;
$ffi->lang('CPP');
$ffi->lib('./testapp.o');
package Metagrammar;
use Marpa::R2;
use Regexp::Grammars;
sub parse {
my ($grammar, $input) = @_;
my $meta_grammar = qr{
<grammar>
CXXFLAGS = -O0 -g -Wall -fmessage-length=0 -pedantic -std=c++11 -Wextra
all: iteration main.cpp
$(CXX) $(CXXFLAGS) -c -o main.o main.cpp
$(CXX) -o iteration main.o iteration.o
iteration: iteration.cpp
$(CXX) $(CXXFLAGS) -c -o iteration.o iteration.cpp
test: iteration test.cpp
From 003e4a86a534576eee2cb26507cba038ef213048 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lars=20D=C9=AA=E1=B4=87=E1=B4=84=E1=B4=8B=E1=B4=8F=E1=B4=A1=20?=
=?UTF-8?q?=E8=BF=AA=E6=8B=89=E6=96=AF?= <daxim@cpan.org>
Date: Thu, 24 Nov 2011 18:30:38 +0100
Subject: [PATCH] Array->rotate <https://github.com/schwern/perl5i/issues/146>
The greater share of the work on this feature has been done by
student Vladimir during the Google Code-in 2011.
---
lib/perl5i.pm | 14 ++++++++++
#!/usr/bin/env perl
use perl5i::latest;
use lib 't/lib';
use Test::More;
use Test::perl5i;
is_deeply(
scalar [ 'foo', 'bar', 'baz' ]->rotate,
[ 'fbb', 'oaa', 'orz' ],

Selecting an Internationalization Framework

Author

Steffen Winkler perl-ws@steffen-winkler.de

Bio