mix3

use strict;
use warnings;

use Test::More;
BEGIN { use_ok('IOCaptureTest') };

use Capture::Tiny qw/:all/;

my $output;

mix3

import java.io.*;
import java.net.*;

public class GDataOAuth2Example {

  static final String CLIENT_ID = "";
  static final String CLIENT_SECRET = "";
  static final String REDIRECT_URI = "urn:ietf:wg:oauth:2.0:oob"; // InstalledApplication

  static final String SCOPES = "https://www.googleapis.com/auth/userinfo.profile"

mix3

package Dancer::Plugin::Teng;

BEGIN {
	$Dancer::Plugin::Teng::VERSION = '0.1';
}

use strict;
use warnings;
use Dancer::Plugin;
use DBI;

mix3

package Sample;

sub hello {
    print "Hello\n";
}

1;

package main;

mix3

@@ -12,15 +12,15 @@
 # Source function library.
 . /etc/init.d/functions
 
-PORT=11211
-USER=memcached
+#PORT=11211
+USER=apache
 MAXCONN=1024
 CACHESIZE=64

mix3

#!/usr/bin/env perl

use strict;
use warnings;

# <> でopen無しに引数のファイルを読み取れる
while (<>) { print; }

mix3

use Benchmark qw(cmpthese timethese);

cmpthese timethese(100000, {
    eval => sub {
        eval {
            die;
        };
        if($@){}
    },
    goto => sub {

mix3

package Class;

sub new {
    my $class = shift;
    my $self = shift || {};
    return bless $self, $class;
}

sub add {
    my $self = shift;

mix3

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use Encode;

my $sample = {
    test1 => {

mix3

--- pm/MobileTplCompiler.pm.orig	2011-06-27 14:10:08.000000000 +0900
+++ pm/MobileTplCompiler.pm	2011-06-27 14:11:08.000000000 +0900
@@ -180,6 +180,8 @@
 	my $saveFile = "$saveDir/$name.bin.$type";
 	my $text     =  readFile($srcName, $type);
 	
+        $text = replace_emoji($text);
+
 	my $mtime2 = get_mtime($saveFile);
 	return if ($mtime < $mtime2);