sugyan

#!/usr/bin/env perl
use strict;
use warnings;

use File::Find;
use File::Spec;

my %modules = ();
my %inc = map { $_ => $_ } map { File::Spec->canonpath($_) } @INC;

sugyan

var array = [
    1,
    2,
    [10, 11, 12],
    [20, 21, [30, 31]],
    3
];

console.log('before');
console.log(array);

sugyan

hello

sugyan

            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
                    Version 2, December 2004

 Copyright (C) 2011 YOUR_NAME_HERE <YOUR_URL_HERE>

 Everyone is permitted to copy and distribute verbatim or modified
 copies of this license document, and changing it is allowed as long
 as the name is changed.

            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE

sugyan

Copyright (c) 2011 YOUR_NAME_HERE, YOUR_URL_HERE
 
Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the
"Software"), to deal in the Software without restriction, including
without limitation the rights to use, copy, modify, merge, publish,
distribute, sublicense, and/or sell copies of the Software, and to
permit persons to whom the Software is furnished to do so, subject to
the following conditions:
 

sugyan

use Test::More;

$hoge = {
    foo => foo(),
    bar => 'bar',
};

is $hoge->{foo} => 'bar';

sub foo {