Moose と "Code before strictures are enabled" - Pixel Pedals of Tomakomai
Perl::Criticのバージョンが古いと、Mooseを使ってる箇所のテストで「Code before strictures are enabled」が出ます。 うちのバージョンを見たら1.080*1でした。最新バージョンでは、 There are special exemptions for Moose, Moose::Role, and Moose::Util::TypeConstraints because they enforces strictness; e.g. 'use Moose' is treated as equivalent to 'use strict'. Perl::Critic::Policy::TestingAndDebugging::RequireUseStrict と素敵仕様に。ただし、他にも MooseX::* のようにstrict強制な物があると思う
SQLite3におけるREGEXP演算子 - めらんこーど地階
ちょっとした用で、SQLite3(via ODBC) を始めてみた。その用件で必要なのは項目に対する正規表現マッチング。LIKE 演算子で済ませなくもないけど、やっぱり楽したい。 SQL における正規表現マッチングに付いて調べてみると、 SQL99 にて、SIMILAR TO 演算子による正規表現のサポートがあるとのこと。だけど、SQLite は SQL92 ベース、そんなもの実装されているはずがない。標準に頼るのは諦めて各 DBMS について見ていくと、Oracle では REGEXP_LIKE 関数、SQL Server では SQL CLR によるサポート、MySQL では REGEXP 演算子、PostgreSQL では ~演算子・・・とまちまちなことが分かった。 では、SQLite は・・・というと、MySQL と同じ REGEXP 演算子が備わっていた・・・が、標準の構成だとこ
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
WWW::MobileCarrierJP のインストールでエラー - Pixel Pedals of Tomakomai
うちの環境で、WWW::MobileCarrierJP の 0.31 入れようとしたらテストでコケました。 $ make test PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t t/*/*.t t/*/*/*.t t/*/*/*/*.t Cannot determine source for t/*/*/*.t at /usr/lib/perl5/5.8.5/Test/Harness.pm line 150 make: *** [test_dynamic] エラー 255どうやら、 ExtUtils::MakeMaker が古かった(6.17)のが原因のようです。新しい ExtUtils::Comma
Perl の XML::RSS を使ったスクリプトでエラーが出ていた
Perl の XML::RSS を使ったスクリプトでエラーが出ていた 2009-04-13-1 [Programming] RSS を取ってきて処理する Perl スクリプトを cron で動かしていたんだけど、モジュールのアップデートがあったのか、最近エラーが出てうまく動かなくなっていることに気がついた。 こんなエラーが出てた： Can't locate object method "items" via package "XML::RSS" at ... 該当箇所はここ： my $rss = XML::RSS->new; $rss->parse($rss_cont); ... foreach (@{$rss->items}) { # ←ココ！！！ ... } こうしたら治った： foreach (@{$rss->{items}}) { ... } ハッシュのキーは横着せずにちゃんと「{
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Journal of Alias (5735)
Journal of brian_d_foy (44)