This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ <name> : "Kent"</name>, | |
<firstname> : "Clark"</firstname>, | |
<hobbies> : | |
- { <title> : "saving people" | |
</title>, | |
<description> : "Fly high, spot problem, solve it." | |
</description> | |
} | |
- { <title> : "programming" | |
</title>, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /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? |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /usr/bin/env perl | |
# Mojolicious 8.17 | |
# PostgreSQL 9.5.14 | |
use 5.022; | |
use Mojo::Pg; | |
use Benchmark ':all'; | |
my $id; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
CREATE TABLE tap_dom ( | |
tap_dom_id BIGSERIAL PRIMARY KEY, | |
uuid UUID NOT NULL, | |
created TIMESTAMPTZ NOT NULL DEFAULT NOW(), | |
dom JSONB | |
); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; | |
} |
NewerOlder