hirokidaichi

use strict;
use warnings;

print "helloworld";

hirokidaichi

use strict;
use warnings;

my $Attribute = 0;
my $Text      = 0;
my @Stack     = ();
my @Attribute = ();

sub oremark2html {
    my ($oremark) = @_;

hirokidaichi

use strict;
use warnings;

use Test::More;

sub sample1 {
    my ( $a, $b ) = @_;
    if ( !$a && !$b ) {
        return "hello";
    }

hirokidaichi

var DISPATCH_TABLE = {};


DISPATCH_TABLE.Person = {
    intro : function(_self){
        return "I am just a Person,and my name is "+_self.name;
    }
};

hirokidaichi

sub sample3 {
    my ( $a, $b, $c, $d ) = @_;

    if ( $a && $b && !$c && !$d) {
        return "a and b";
    }
    if ( $a && !$b && $c && !$d) {
        return "a and c";
    }
    if ( $a && !$b && !$c && $d) {

hirokidaichi

var DISPATCH_TABLE = {};


DISPATCH_TABLE.Person = {
    intro: function(_self) {
        return "I am just a Person,and my name is " + _self.name;
    }
};
TYPE_TABLE = {};

hirokidaichi

var O = "i have a pen i have an apple apple pen".split("");
var E = "i oari a fib i oari ab affwi affwi-fib".split("");

var code = function(s) {
    return s.charCodeAt(0) - "a".charCodeAt(0);
};
var decode = function(n) {
    return String.fromCharCode(n + "a".charCodeAt(0));
}

hirokidaichi

hirokidaichi

hirokidaichi