Songmu

use strict;
use warnings;

use Benchmark qw/timethese cmpthese/;
use DateTime;
use DateTime::TimeZone;
use Time::Piece ();
use Time::Piece::Plus ();

my $tz = DateTime::TimeZone->new(name => 'Asia/Tokyo');

Songmu

escape ^t^t
startup_message off
vbell           off
msgminwait      0
autodetach      on
defscrollback   10000

defencoding utf8
cjkwidth on
term xterm-256color

Songmu

package MyApp::DB;
use parent 'Teng';

...

sub handle_error {
    my $self = shift;
    my ($stmt, $bind, $reason) = @_;
 
    $bind = [map {ref $_ eq 'ARRAY' ? $_->[0] : $_} @$bind];

Songmu

using UnityEditor;
using UnityEngine;
using System.Collections;
using System.IO;

/// <summary>
/// 新規フォルダ作成時に.gitkeepを自動作成
/// </summary>
public class GitkeepMaker : AssetPostprocessor
{

Songmu

using UnityEngine;
using UnityEditor;

using System.Collections;
public class BuildBatch : MonoBehaviour {

  // build iOS app
	private static void BuildiOS(){
		Debug.Log("///////////	build start	///////////");
		

Songmu

package MyWAF::Request;
use strict;
use warnings;

use parent 'Plack::Request';
use Encode;
use Hash::MultiValue;
use URL::Encode;

sub uri {

Songmu

package Sub::Rate::Tags;
use strict;
use warnings;
use Carp;
use Any::Moose;

extends 'Sub::Rate::NoMaxRate';

has data => (
    is      => 'rw',

Songmu

#/bin/sh
NCPU=`getconf _NPROCESSORS_ONLN`
WORKERS=$(expr $NCPU \* 5)
exec plackup -E production -s Starlet --max-workers=$WORKERS

Songmu

package MyApp::Validator;
use 5.016;
use warnings;
use utf8;

use parent 'Data::Validator';
use Try::Tiny;

sub import {
    my $class = shift;

Songmu

use strict;
use warnings;
use feature 'say';
use AE;
use AnyEvent::IRC::Server;
use AnyEvent::IRC::Util;
use Getopt::Long;
use Yancha::Client;
use LWP::UserAgent;
use AnyEvent::IRC::Client;