Const::Common探訪
Kichijoji.pm #14
Mar 25th, 2018
Profile
宣伝
WEB+DB PRESS Vol.104 の Perl Hackers Hubに「Minillaを使ったモダンなCPANモジュール開発」という記事を寄稿しました
お願い
次回のPerl Hackers Hubの執筆者を探しています!!!
検索と言えば
- プライバシーを侵害しない検索エンジン
- Perl5 で作られている
最近作ったもの
- github.com/Songmu/goxz
- Goプロダクトをcrossbuildしてzipに固める
- github.com/tcnksm/ghr
- プロダクトをgithub releasesに上げる君
- メンテを引き継ぎました
- github.com/Songmu/crontabparser
- crontabのparser
- Parse::CrontabのGo移植
- github.com/Songmu/timeout
- コマンド実行をtimeoutさせる君
- 最近context対応しました
- github.com/Songmu/maltmill
- サードパーティなhomebrew formulaを自動更新する君
- github.com/Songmu/ghselfupdate
- github.com/rhysd/go-github-selfupdate のラッパー
Const::Common
プロジェクト共通の定数を簡単に宣言できるモジュール
use MyApp::Const; と constant モジュールで書く
MyApp::Const::MYAPP_HOGE とか書くのタルいMYAPP_HOGE って書きたい
use constant CONST_HASH => {BAR => 'BAZ'}; とかやると
CONST_HASH->{BAR} = 'OVERWRITE' で上書きできる OMG ><
→ import機構を無理やりなんとかするのと、resticted hash/array にすることで解決
定数を定義
package MyApp::Const;
use Const::Common (
MYAPP_BAR => 'BAZ',
MYAPP_HASH => {
HOGE => 'hoge',
},
);
1;
利用
use MyApp::Const;
print MYAPP_BAR; # BAZ
print MYAPP_HASH->{HOGE}; #=> hoge;
MYAPP_HASH->{HOGE} = 10; # ERROR!
内部実装
package Const::Common;
require Exporter;
use Data::Lock ();
sub import {
my $pkg = caller;
shift;
my %constants = @_ == 1 ? %{ $_[0] } : @_;
Data::Lock::dlock my $locked = \%constants;
{
no strict 'refs';
push @{"$pkg\::ISA"}, ('Exporter');
push @{"$pkg\::EXPORT"}, (keys %$locked);
}
require constant;
@_ = ('constant', $locked);
goto constant->can('import');
}
考えたこと
- インターフェースはわかりやすく
- そのために内部実装の複雑さは許容する
- 汚いコードはモジュールに追い出す
We are Hiring
