proveの結果をslackに通知したかったので、安易ですが以下のような感じにしてみました。 まず、以前書いたように(App::Prove::Plugin::HarrietでTest::mysqldを起動する)Harrietを使って、t/harriet/の下にutil.plを追加してみました。 my…

Slackへの一方的な通知だと、Webhook URLに向かってPOSTするだけなので、実装自体はめちゃくちゃ簡単。 ただ、そのWebhook URLをどうやって取得するのか？っていうのがむしろこのエントリーのキモですかねｗ ブラウザからSlackにログインして、以下から取得。 https://my…

もはやLet's Encryptとか使えばいいんで、オレオレ証明書を作成する必要があるのかわかりませんが、とあるテスト環境がどうやらオレオレ証明書を使っているらしく、FurlでAPIを叩こうと思ったら、 Cannot create SSL connection: SSL connect attemp…

perlのtestと言えば、proveなんですけど、-Pのオプションでプラグインを追加できて、その中でも、 App::Prove::Plugin::Harrietが結構便利です。 素の状態で実行するならこんな感じ。 carton exec -- prove -PHarriet=t/harriet/ …

Test::Flattenってのを使うとできるぽい。 特定のひとつだけなので、直接Perlをぶっ叩く感じだと、以下のような感じ。 SUBTEST_FILTER=hogehoge perl -MTest::Flatten t/MyApp/main.t 環境変数(SUBTEST_FILTER)に入れたs…

開発環境用に別のscript用意しようかと思ったんですが、そもそも分岐できるぽい。 use Plack::Builder; my $app = builder { enable_if { $ENV{'PLACK_ENV'} eq 'development' } 'xxxx'; }; こんな書き方でき…

Plack::Middleware::HTMLMinifyをインストールして、 amon2-setup.plで生成されたmyapp-serverに、HTMLMinifyを追加しました。 my $app = builder { enable 'HTMLMinify', opt => {remov…

普通にサムネを作るなら(Imagerでサムネイルを生成する(元画像の比率を維持))みたいな感じで、長辺に合わせて縮小すればいいと思うんですが、、 短辺に合わせて縮小したい時もあるよね？（ないかな？） ってことで、やってみました。 use Imager; my $file = '/tmp/face.p…

昨日生成した、サムネ画像(Imagerでサムネイルを生成する(元画像の比率を維持))ですが、背景に色をつけてしまうと、Webで使いにくいので、もう背景は透過にしてしまいます。 use Imager; my $file = '/tmp/face.png' my $new_file = '/tmp/ne…

いつもぐぐるので、メモ程度に。 Perlでサムネ画像を生成します。 元画像の比率は維持しつつ、生成された画像の縦横は指定したサイズです。 (比率が違う場合は、黒で塗りつぶし) use Imager; my $file = '/tmp/face.png' my $new_file = '/tmp/ne…

Data::Validatorを使ってみる。 package MyApp; use strict; use warnings; use Object::Simple -base; use 5.10.0; use Data::Validator; sub hoge { state $r = Data:…

ORMを使わない場合のコネクションって何で取るのが主流なのか不明ですが、DBIx::Handlerってのを使ってる人が多そう？なので、ちょっと試してみます。 DBIx::Handler - search.cpan.org use DBIx::Handler; my $handler = DBIx::…

綺麗にというか、見やすく？ｗ 本番用のログというよりは、デバッグ用のログ出力ですかね。 use Text::ASCIITable; my $t = Text::ASCIITable->new(); $t->setCols( 'id','name','date' ); $t->add…