ayumu83s

ブルーベリーヒル勝浦メモ

日程など

1日目 6/16(金)

8:30 東京集合

ayumu83s

### タイムスケジュール
10:00	新宿発
	京王線特急・京王八王子行き
10:35	北野
	乗り換え
10:38	北野
	京王高尾線・高尾山口行き
10:52	高尾山口

ayumu83s

<洋館>
黄金のやじりを入手
墓場で「呪いの書」を入手
わんちゃんゾーンを抜けた先のすぐの部屋で除草剤を入手
東側で犬笛とライター(東側2階の
西の食堂2階付近で犬笛ふいて、鍵のイミテーション
西の奥で、鎧の鍵とイミテーションを好感
東テラス
リチャードの部屋
西の保管庫で血清取る(ライター持つ

ayumu83s

# 配置先のディレクトリを作成
$ mkdir -p ~/.vim/colors
$ mkdir -p ~/.vim/bundle
# NeoBundleをリポジトリから取得
$ git clone git://github.com/Shougo/neobundle.vim ~/.vim/bundle/neobundle.vim


:" vi互換モードをオフ
set nocompatible

ayumu83s

package Environment;
use strict;
use warnings;
use utf8;
use 5.010_001;

use Log::Minimal;

use Mouse;

ayumu83s

use utf8;
use strict;
use warnings;
use Encode 'encode_utf8';

# 文字が指定のバイト数を超えている場合に切り取る。
sub kirisute_gomen {
    my ($string, $byte_len, $str_len) = @_;
    return $string if (length(encode_utf8($string)) <= $byte_len && length($string) <= $str_len);

ayumu83s

use warnings;
use utf8;
use Test::More;
use Test::Stub;

subtest 'Test::Stub' => sub {
    my $agent = LWP::UserAgent->new();
    stub($agent)->get(
        my ($self, $path) = @_;
        if ($path =~ /google\.co\.jp\z/) {