[B! util] kwryのブックマーク

Module::Pluggable::Fast Source Code Reading - 日向夏特殊応援部隊

そもそも論ですけど Similar to C but instantiates plugins as soon as they're found, useful for code generators like C. ってあるように、Module::Pluggableと同じインターフェースな訳じゃなくて似てるモジュールです。似てる速いすぐインスタンス化するってのが特徴ですね。同様にimport経由でpluginの読み込みを行います。 Module::Pluggable::Fast import() sub import { my ( $class, %args ) = @_; my $caller = caller; no strict 'refs'; *{ "$caller\::" . ( $args{name} || 'plugins' ) } = sub { my $sel

kwry 2010/11/25

リンク

Module::Pluggable Source Code Reading - 日向夏特殊応援部隊

Module::Pluggable import() まずModule::Pluggableってのはuse時に各種パラメータを指定して使うモジュールなんで、まずはimportメソッドから。 sub import { my $class = shift; my %opts = @_; my ($pkg, $file) = caller; # the default name for the method is 'plugins' my $sub = $opts{'sub_name'} || 'plugins'; # get our package my ($package) = $opts{'package'} || $pkg; $opts{filename} = $file; $opts{package} = $package; my $finder = Module::Pluggabl

kwry 2010/11/25

リンク

GitHub - gfx/p5-Data-Validator: Type constraints based data validator for Perl5

use 5.10.0; use Data::Validator; # for functions sub get { state $rule = Data::Validator->new( uri => { isa => 'Str', xor => [qw(schema host path_query)] }, schema => { isa => 'Str', default => 'http' }, host => { isa => 'Str' }, path_query => { isa => 'Str', default => '/' }, method => { isa => 'Str', default => 'GET' }, ); my $args = $rule->validate(@_); # ... } get( uri => 'http://example.com/'

kwry 2010/11/11

perl
util

リンク

Smart::Argsが賢すぎる件 - Islands in the byte stream

2010年11月08日 Smart::Argsが賢すぎる件 Smart::Argsを強化した(v0.04, v0.05)。以下の様にtype constraintオブジェクトを直接指定できるようになった。また、auto coercionもサポートしたので、validationに失敗すると変換を試みる。実行例：まず$uriはUri型制約をかけてあるので、本来であれば文字列は受け付けない。しかし、MX::Types::URIで定義されたcoercionにより、文字列からURIオブジェクトを生成している。二番目の引数はカスタムtype constraintを渡す例になっている。この場合は指定した文字列以外は禁止してる。また、デフォルト値も指定している。組み込みのtype constraintは高速なMouseのものを使うが、type constrainオブジェクトはMooseのでもかまわ

kwry 2010/11/08

perl
util

リンク

Devel::Symdump

Devel::Symdumpをさわってみました。シンボルテーブルをいろいろな方法でダンプしてくれるモジュールです。 #!/usr/bin/perl package MyDB; use strict; use warnings; use base qw/Class::DBI/; use Class::DBI::Loader; my $loader = Class::DBI::Loader->new( dsn => "dbi:mysql:test", user => "test", password => "", options => { RaiseError => 1 }, namespace => "Data", left_base_classes => qw/Class::DBI::Sweet/, ); require Devel::Symdump; my $obj = Devel::S