[B! util] kwryã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

kwry id:kwry

utilã«é–¢ã™ã‚‹kwryã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (6)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

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
perl

module

util
ãƒªãƒ³ã‚¯
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
perl

module

util
ãƒªãƒ³ã‚¯
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
kwry 2009/09/12
perl

util
ãƒªãƒ³ã‚¯
Google Code Archive - Long-term storage for Google Code Project Hosting.
kwry 2009/06/09
air

util
ãƒªãƒ³ã‚¯
1