Catalyst::View::QRCode

catalyst

とある頼まれごとでQRコードを生成する必要がでてきたので、昔作ったC::V::GD::Barcode::QRcode(モジュール名なげーよ)を引っ張り出してきたんだけど、何か猛烈に古臭いしGD使いたくなかったのでid:clouderさんのImager::QRCodeとハイブリッドにしてCodereposにあげた。

http://svn.coderepos.org/share/lang/perl/Catalyst-View-QRCode/trunk

use base 'Catalyst::View::QRCode::Imager'かuse base 'Catalyst::View::QRCode::GD'してるViewを作ってControllerでこんな感じ。

sub qrcode :Local {
    $c->view('QRCode')->qrcode('http://example.com');
    $c->forward($c->view('QRCode');
}

気が向いたらHelper作ってshipitする。
そんときはまた昔のやつdeprecatedさせるかな。