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;

use Encode;
use Encode::Locale;
use LWP::Protocol;
use URI;

sub dump_env { join ", ", map { "$_: ".($ENV{$_}||'(undef)') } qw/REQUEST_METHOD HTTP_PROXY CGI_HTTP_PROXY/ }

karupanerura

package net.yanzm.profileapplication;

import android.animation.Animator;
import android.animation.AnimatorListenerAdapter;
import android.animation.AnimatorSet;
import android.animation.ObjectAnimator;
import android.app.Activity;
import android.app.FragmentManager;
import android.content.Intent;
import android.net.Uri;

karupanerura

package net.yanzm.profileapplication;

import android.animation.Animator;
import android.animation.AnimatorListenerAdapter;
import android.animation.AnimatorSet;
import android.animation.ObjectAnimator;
import android.app.Activity;
import android.app.AlertDialog;
import android.content.DialogInterface;
import android.content.Intent;

karupanerura

use strict;
use warnings;

my $re_paren;
$re_paren = qr {
  \(
    (?:
      (?>[^\(\)]+)
      | (??{ $re_paren })
    )*

karupanerura

$("#hoge").change(function() {
  foo($(this).attr("data-i"));
});

karupanerura

### <: $base_uri :> を $vars->{base_uri} の値で置き換えるプラグイン
package Text::Textile::Pluggable::Plugin::FooBar;
use strict;
use warnings;

use parent qw/Text::Textile::Pluggable::Plugin::Base/; ## コンストラクタを提供する
## 中で bless +{ base_uri => 'http://localhost:5000' } => 'FooBar'; みたいなかんじ

sub init {## object生成時に呼ばれる
    my ($self,) = @_;

karupanerura

use strict;
use warnings;
use File::Basename;
use File::Find::Rule;
use Getopt::Long;
use Image::Imlib2;

sub main {
    Getopt::Long::GetOptions(
        '--dir=s'          => \my $target_dir,