- JohnはAliceからの通信をtriggerに起床します
- Johnは起床後、Bobに通知を送ります
sequenceDiagram
participant Alice
participant Bob
Alice->>John: Hello John, how are you?| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use Mojo::UserAgent; | |
| use Mojo::IOLoop; | |
| our $INSTANCES_URL = 'https://instances.mastodon.xyz/instances.json'; | |
| my $ua = Mojo::UserAgent->new; | |
| $ua->max_redirects(3); |
| ✔ kojima:kojiMac ~$ mutt | |
| dyld: Library not loaded: /usr/local/opt/notmuch/lib/libnotmuch.4.dylib | |
| Referenced from: /usr/local/bin/mutt | |
| Reason: image not found | |
| mutt: warning: mutt crashed, killed by SIGABRT. | |
| mutt itself has not crashed, but for transparency, | |
| it will now kill itself (without dumping core) with the same signal | |
| warnings can be silenced by the --no-warnings (-n) option |
| #/bin/sh | |
| set -eu | |
| ip2dec () { | |
| local ip="$1" | |
| if test -z "$ip"; then | |
| printf "Argument required" 1>&2 | |
| return 1 | |
| fi |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use open qw(:std :utf8); | |
| our $VERSION = '0.02'; | |
| my $app = App::Weld->new; | |
| $app->run; |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use utf8; # Meaning "This lexical scope (i.e. file) contains utf8" | |
| use open qw(:std :utf8); | |
| use autodie; | |
| use Encode; | |
| use File::Temp qw(tempdir); |
| From 88d965c5740c5ad09a97e1e576fe3bc14abcc382 Mon Sep 17 00:00:00 2001 | |
| From: Shin Kojima <shin@kojima.org> | |
| Date: Fri, 25 Jan 2019 15:17:18 +0900 | |
| Subject: [PATCH] Parse SKIP directives to produce "<skipped />" | |
| Signed-off-by: Shin Kojima <shin@kojima.org> | |
| --- | |
| lib/TAP/Formatter/JUnit/Result.pm | 1 + | |
| lib/TAP/Formatter/JUnit/Session.pm | 13 +++++++++++++ | |
| t/data/tap/junit/skip | 5 ++++- |
| function luhn(value) { | |
| return value.split('').reduce(function (s, d, i) { | |
| var n = (!(i & 1) + 1) * d; | |
| if (n > 9) n -= 9; | |
| return s + n; | |
| }, 0) % 10 === 0; | |
| } | |
| console.log(luhn('1234567890123452')); |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| { | |
| package Tie::DefaultDict; | |
| require Tie::Hash; | |
| our @ISA = qw(Tie::ExtraHash); | |
| sub TIEHASH { |
| #!/usr/bin/env python3 | |
| import socket | |
| import ssl | |
| import sys | |
| from cryptography import x509 | |
| from cryptography.hazmat.backends import default_backend | |
| from cryptography.x509.oid import NameOID | |