renormalist

; load some data up
LDA #$7
STA $00    ; memory addr A
LDA #$05
STA $01    ; memory addr B
JMP Divide

  	;modulus, returns in register A
Mod:
		LDA $00  ; memory addr A

renormalist

#!/usr/bin/env perl

# myapp.pl -start it with:
#  ./myapp.pl prefork -l http://localhost:8084

# The Unicode character used below is a small "umlaut letter a".

use utf8;
use 5.022; # should implicitely contain use feature 'unicode_strings'
use strict;

renormalist

#!/usr/bin/env perl

# myapp.pl -start it with:
#  ./myapp.pl prefork -l http://localhost:8084

# The Unicode character used below is a small "umlaut letter a".

use utf8;
use 5.022; # should implicitely contain use feature 'unicode_strings'
use strict;

renormalist

  { <name> : "Kent"</name>,
    <firstname> : "Clark"</firstname>,
    <hobbies> :
      - { <title> : "saving people"
          </title>,
          <description> : "Fly high, spot problem, solve it."
          </description>
        }
      - { <title> : "programming"
          </title>,

renormalist

use strict;
use warnings;

use Test::More;
use Test::Deep 'cmp_deeply', 'any';
use Iterator::Simple 'iter';

use TAP::Parser::YAMLish::Reader;
use Data::YAML::Reader;
use YAML::Tiny;

renormalist

#! /usr/bin/env perl

use 5.022;
use strict;
use warnings;

use Mojolicious::Lite;
use Time::HiRes 'usleep';

# global, used in event subs, is that ok?

renormalist

#! /usr/bin/env perl

# Mojolicious 8.17
# PostgreSQL  9.5.14

use 5.022;
use Mojo::Pg;
use Benchmark ':all';

my $id;

renormalist

#! /usr/bin/env perl

# Mojolicious 8.17
# PostgreSQL 9.5.14

use 5.022;
use Mojo::Pg;
use UUID;

# as seen in https://metacpan.org/pod/Mojo::Pg

renormalist

CREATE TABLE tap_dom (
    tap_dom_id        BIGSERIAL PRIMARY KEY,
    uuid              UUID NOT NULL,
    created           TIMESTAMPTZ NOT NULL DEFAULT NOW(),
    dom               JSONB
);

renormalist

        for @els -> $t {
            my $f = False;
            given $t.WHAT {
                when Perl6::String::Interpolation { print "INTERPOLATION"; $f=True}
                when Perl6::Bareword { print "BAREWORD"; $f=True }
            }
            say " ({$t.content})" if $f;
        }