gugod

use strict;

package ObjA {
    use overload '==' => sub { $_[0][0]++; };
    sub new { bless [$_[1]], $_[0] }
};

my $a = ObjA->new(1);

if ($a == 1 && $a == 2 && $a == 3) {

gugod

use v5.18;
use strict;
use warnings;

my @p;

my @va = ("x", "y", "z");
my @vb = ("p", "q");

for my $va (@va) {

gugod

while(<>) {
    if (/^catch me$/..eof()) {
        ...
    }
}

gugod

use strict;
use warnings;

sub do_this { }
sub do_that { }

sub do_everything {
    HERE {
        do_this();
        do_that();

gugod

Keybase proof

I hereby claim:

• I am gugod on github.
• I am gugod (https://keybase.io/gugod) on keybase.
• I have a public key ASD0DuQEw3xFL4hoqjFG-6_2xYJX-qOUSsLhkE37d4Qu5go

To claim this, I am signing this object:

gugod

digraph G {
"1873fdd"[label="HEAD -> blue, tag: 南港展覽館, origin/brown, origin/blue, origin/HEAD"]; "07eef94"->"1873fdd"; "cfe1aa7"->"1873fdd"; 
"07eef94"[label="tag: 南港軟體園區"]; "1a1b22f"->"07eef94"; 
"1a1b22f"[label="tag: 東湖"]; "c3779c5"->"1a1b22f"; 
"c3779c5"[label="tag: 葫洲"]; "4b9cffd"->"c3779c5"; 
"4b9cffd"[label="tag: 大湖公園"]; "6721192"->"4b9cffd"; 
"6721192"[label="tag: 內湖"]; "626038e"->"6721192"; 
"626038e"[label="tag: 文德"]; "ebde7d4"->"626038e"; 
"ebde7d4"[label="tag: 港墘"]; "a370065"->"ebde7d4"; 
"a370065"[label="tag: 西湖"]; "9248a95"->"a370065"; 

gugod

hello

gugod

/* clang a.c -o a */

#include <stdio.h>

int main() {
  int a=1,а=42;
  printf("%d\n", a); // 1
  printf("%d\n", а); // 42
  printf("%d\n", a); // 1 
  printf("%d\n", а); // 42

gugod

#!/usr/bin/env perl
use v5.18;

sub next_permutation {
    my $p = shift;
    my $l = @$p;
    my $i;
    for ($i = $l-1; $i > 0; $i--) {
        last if $p->[$i] > $p->[$i-1];
    }

gugod

2041         "address": "POWER POINT INTERNATIONAL CO. LTD. 6F; NO. 72; SEC 2; NANJIN EAST ROAD; TAIPEI CITY; R.O.C. TAIWAN (R.O.C.) *S.I.*",
 405         "address": "DI SAN DI MANAGEMENT COMPANY LIMITED 7F- 4; NO.50; SEC. 1; XINSHENG S. RD.; TAIPEI; TAIWAN",
  71         "address": "GENPRO CONSULTING; INC. 12F; 51; SEC 2 KEELUNG ROAD; TAIPEI TAIWAN 110 REPUBLIC OF CHINA ATTN: MS. EILEEN LIAO **S.I.**",
  28         "address": "SINO-WEST INTERNATIONAL CO.; LTD. 3F-6; NO. 36; SEC.3  MINSHENG E. ROAD TAIPEI; TAIWAN; R.O.C.",
  27         "address": "GO SHINE MANAGEMENT CO.; LTD. ROOM B; 5F.; NO. 92; SEC. 1NANJING E. RD.; JHONGSHAN DISTRICT; TAIPEI CITY 104; TAIPEI TAIWAN",
  22         "address": "GREAT OCEAN CPAS & CO. LTD 7F-2; 5; SEC 2 TUN-HUA S. RD.; TAIPEI; TAIWAN; R.O.C.",
  19         "address": "BUSINESS INTELLIGENCE MANAGEMENT CONSULTING INC. 2F.; NO.59; TIANXIANG RD.; ZHONGSHAN DIST.; TAIPEI CITY 104; TAIWAN (R.O.C.)",
  15         "address": "T & J INTERNATIONAL LIMITED P.O. BOX 70-179 TAICHUNG; TAIC