karupanerura

package main

import (
	"fmt"
	"time"
)

func entrypoint() {
	fmt.Println("1")
	setTimeout(func() {

karupanerura

use strict;
use warnings;

use JSON::XS qw(encode_json);
use Benchmark qw(cmpthese);

my $obj = [ map {
    +{
        name => 'foo',
        age => 123,

karupanerura

use strict;
use warnings;

package Node {
    use Class::Accessor::Lite ro => [qw/value children/], new => 1;
}

# DSL
package main {
    sub node ($;&) { goto \&_node }

karupanerura

// override filesystem
global.fs = (() => {
  class Locks {
    constructor() {
      this.rw = null;
      this.ro = [];
    }

    getLock() {
      if (this.rw !== null) {

karupanerura

ウー！

マンボー！

karupanerura

use 5.014000;

use Package::Stash;
use Scalar::Util qw/blessed refaddr/;
use Module::Functions;

package Role::Foo {
    sub foo {
        my $self = shift;
        return "role foo by $self->{name}";

karupanerura

use Plack::ServerTiming;
use Scope::Timer; # it's not exist in the world yet :p

my $duration_time = timer {
    ...
};
Plack::ServerTiming->new($env)->record_timing('foo' => {dur => $duration_time});

karupanerura

package main

import (
	"fmt"
	"strconv"
)

func main() {
	values := map[string]string{}
	for i := 0; i < 50; i++ {

karupanerura

use overload '.' => sub { print $_[0]->[0].'.'.$_[1].$/ };
sub Gotanda () { bless ["Gotanda"] }
sub pm () { 'pm' }

Gotanda.pm

karupanerura

use strict;
use warnings;

use Benchmark qw/cmpthese timethese/;

my @class = qw/Foo Foo::Bar Foo::Bar::Baz/;

sub substr_c {
    my $class = shift;
    substr $class, 1 + rindex $class, ':';