Lazy Programmer's Wlog

抱負というポジティブな情報を公開シェアすることにより、日本をもりあげあげていければなぁというサービスです。

フレームワーク等は利用せず、CPANモジュールを組み合わせてスクラッチから作ってみました。

せっかくですので、実装のちょっとしたポイントを一つ紹介します。

コントローラではWebに関することのみの処理を行い、それ以外の処理はすべてAPIモジュールに投げる仕組みを導入しています。

利用例) ソース このページ例

sub houfu {
    my ( $self, $c ,$args ) = @_;
    $c->template('user/houfu.tx');
    my $api_res = $c->api('User')->lookup_houfu( $args );
    if($api_res->has_error){
        return $c->handle_not_found();
    }
    else {
        $c->append_stash( $api_res->stash );
    }
}

上記はコントローラの関数なのですが、処理自体は User APIになげて処理を行い、取得した API Responseオブジェクトの状態をみてブラウザへの表示を切り替えています。

APIソース

sub profiles {
    +{
        lookup => {
            required => [qw/screen_name/],
        },
        lookup_houfu => {
            required => [qw/houfu_code screen_name/],
        }
    }
}

profilesで検証ルールを記載しています。

sub lookup_houfu {
    my $self = shift;
    my $args = shift;
    my $v_res = $self->validate( $args );
    my $stash = {};
    if(!$v_res->has_error){
        my $v = $v_res->valid;
        my $user_hash = $self->db->lookup_member( $v->{screen_name} )
            or return $self->create_error_set($v_res,'user_not_found');
        my $houfu_hash = $self->db->lookup_houfu( $v->{screen_name},$v->{houfu_code})
            or return $self->create_error_set($v_res,'houfu_not_found');
        $stash->{user_hash} = $user_hash;
        $stash->{houfu_hash} = $houfu_hash;
    }

     return $self->create_result_set( { v_res => $v_res , stash => $stash } );
}

うけとったデータを検証し、それに基づいてDBにアクセスしデータを取得し、API Resultオブジェクトを返しています。

この実装の利点は、複数のクライアント(PC/スマートフォン/モバイル/テストスクリプト等)対応により柔軟に対応できるということです。特に重要な点は、APIはWebの依存から切り離されており、どこからでも簡単に利用できるということです。

今後はこのAPI部分の実装を標準化し、たとえばtwitter OAuthの認証部分とかを複数のサービスで使い回せるようなミドルウェアー的なのを用意していければ良いなぁと思います。

抱負を実現できる年にしたいですね

• http://lazy-people.org/project/%E6%8A%B1%E8%B2%A0%...

一般的にCacheを破棄する際には以下のように明示的に$keyを指定して削除処理を行う。

my $key = 'user_id:3';
$cahce->delete($key);

それに対しKEY更新によるキャッシュ破棄では

my $key = "user_id:$cache_no:3";

のようにcacheのkeyに$cache_noというのを埋め込み、$cache_noを変更することによりキャッシュの疑似破棄をおこなう。 $cache_no の値は、データの更新があった際にインクリメントするようにする。

• キャッシュの破棄を明示的に記載する必要がない(奇麗なソースが書ける)
• 複数のキャッシュをまとめて破棄することができる(Cache::Memcached::ManagedのGroup的なこと)
• キャッシュKEYの一元管理がしやすい

とくに短所は無いのだがあえて記載すると

• 値を更新時に$cache_noをインクリメントする必要がある(timestampを使うとかもアリかもしれない)
• cache_noをどこかに保持する必要がある

sub cacheable() {
    my($code, $key, $exp) = @_;
    $exp ||= 60 * 5; 
    my $cache = OreSama::Cache->instance;
    if (defined(my $data = $cache->get($key))) {
        return $data;
    }
    my $data = $code->();
    $cache->set($key, $data, $exp);
    $data;
}

# SETするコード例 (フレンド一覧取得)
my $key = join(":",'hoge',$user_cache_id,$user_id);
my $res = cachable( $key , sub {
  my @friend_objs= DB::Friend->search( {user_id => $user_id} );
 return \@friend_objs;
}
);

#破棄するコード例(ユーザ情報更新)
$user_obj->user_cache_id( $user_obj->user_cache_id + 1);
$user_obj->save;

サービスにもよるとおもいますが、ありだと思います。