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 | |
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
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 | |
# 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
; 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 |
OlderNewer