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
sartak: YAPC::Asia 2009 Moose course
2009-09-17 YAPC::Asia 2009 Moose course I have received a lot of good feedback about my YAPC::Asia 2009 Moose course. Several people on IRC and Twitter thanked me. I got second-hand reports of students taking the course then immediately being able to write useful Moose code. That is nothing short of ideal. It makes me very happy that people not only enjoyed the course, but that it was practical. S
モジュールãŒMooseä¾å˜ã—ã¦ãŸã€‚別れãŸã„… - Unknown::Programming
ã•ã¦æ¯Žå¹´å¹´æœ«ãŒè¿‘ã¥ãã¨ãƒ–ãƒã‚°æ›´æ–°é »åº¦ãŒä¸‹ãŒã‚‹id:fbisã§ã™ãŒã€Mooseも馴染んã§ããŸã¨ã“ã‚ãªã®ã§ãã‚ãã‚Mooseã«å¯¾ã—ã¦ä¸€è¨€ã„ã£ã¦ãŠãã‹ã¨ã„ã†ã“ã¨ã§ãã€ã¯ã„。 Mooseã¯ç´ 晴らã—ã„。ã¨ã¦ã‚‚ãƒ™ãƒªãƒ¼ç´ æ™´ã‚‰ã—ã„。何より人ã«å„ªã—ã„。人間ã«å„ªã—ã„。 ãŒã£ï¼ã—ã‹ã—ã€Mooseã¯ã¾ã 使ã†ã«ã¯æ—©ã™ãŽãŸã€‚ナウシカã®å·¨ç¥žå…µã°ã‚Šã«æ—©ã™ãŽãŸã‚“ã 。 実際ã«çµ„ã¿è¾¼ã‚“ã§ã¿ã¦æ„Ÿã˜ãŸå•é¡Œç‚¹ã€‚ 大ãã分ã‘ã¦äºŒã¤ã€‚ ãã®å£±ï¼šã‚ªãƒ–ジェクト生æˆã®ã‚³ã‚¹ãƒˆ ã‚„ã¯ã‚Šãªã‚“ã¨ã„ã£ã¦ã‚‚newã®ã‚³ã‚¹ãƒˆãŒé«˜ã„。é…ã„。 一ã¤ä¸€ã¤ã‚’見れã°ãã“ãã“ãªã‚“ã ã‘ã©ã‚„ã¯ã‚Šnewã®ã‚³ã‚¹ãƒˆã¯é«˜ã„。 Mooseを使ã†ã®ã§ã‚ã‚Œã°æ¥µåŠ›newã‚’é¿ã‘るよã†ãªä»•çµ„ã¿ã®ä¸ã«å–り入れãªã„ã¨å¾®å¦™ã€‚Catalystã§ä¾‹ãˆã‚‹ãªã‚‰setupã®æ™‚点ã§newã—ã¦ä»¥å¾Œã‚ャッシュã•ã‚Œã‚‹ã‚ˆã†ãªå®Ÿè£…ã 。 newã•ãˆçµ‚ã‚ã‚Œã°ã‚ã¨ã¯ï¼ˆè¤‡é›‘ãªMooseã®ä½¿ã„方をã—ã¦ãªã„é™ã‚Šï¼‰ãã‚Œã»ã©å•é¡Œã§ã¯ãªã„
ã•ã£ãã®è¨˜äº‹ã®Shikaã®ãƒ™ãƒ³ãƒã®ã‚³ãƒ¼ãƒ‰ - Unknown::Programming
モジュールãŒMooseä¾å˜ã—ã¦ãŸã€‚別れãŸã„… - Unknown::Programming id:tokuhiromã•ã‚“ã«ãƒ™ãƒ³ãƒã†ï½é ¼ã¾ã‚ŒãŸã‚“ã ã‘ã©ã‚‚超個人的ãªBenchmarkコードãªã®ã§ãã®ã¾ã¾CodeReposã«ã‚ã’れるよã†ãªä»£ç‰©ã§ã‚‚ãªã„ã¨ã„ã†ã“ã¨ã‚‚ã‚ã‚Šå–り急ãŽã‚¨ãƒ³ãƒˆãƒªã¨ã—ã¦ã‚ã’ã¦ãŠãã¾ã™ã®ã§è‡ªç”±ã«å¤‰æ›´ã—ã¡ã‚ƒã£ã¦ãã ã•ã„。 #!/usr/local/bin/perl -w use strict; use warnings; package MooseBuild; use Moose; has userid => ( is => 'rw', ); has agent => ( is => 'rw', required => 1, ); sub BUILD { my $self = shift; $self->userid(90); $self->userid($self->agent-
Perl5 ã®ã‚ªãƒ–ジェクト指å‘ã‚’ç†è§£ã™ã‚‹ - モダンãªPerl入門
Inside Perl5 OO 対象èªè€…： ä»–ã®è¨€èªžã§ OO ã—ãŸã“ã¨ã‚ã‚‹ã£ã½ã„ã²ã¨/Perl4 ã§ã¨ã¾ã£ã¦ã‚‹ã²ã¨ Class ã‚’ã¤ãã‚‹ ã¾ãšã¯ç‚¹ã‚¯ãƒ©ã‚¹ã‚’ã¤ãã£ã¦ã¿ã¾ã—ょㆠpackage Point; sub new { my ($class, %args) = @_; # 第１引数ã¯ã‚¯ãƒ©ã‚¹å bless({%args}, $class); # データを bless ã™ã‚‹ã¨ã€ã‚ªãƒ–ジェクトã«ãªã‚‹ } sub x { my $self = shift; # 第１引数ã¯ã€ã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ $self->{x} = shift if @_; # 引数ãŒã‚ã‚Œã°ã‚»ãƒƒã‚¿ãƒ¼æ‰±ã„ã«ãªã‚‹ $self->{x}; } sub y { my $self = shift; $self->{y} = shift if @_; $self->{y}; } ã“ã®ã‚ˆã†ã«ã—ã¦ä½œã£ãŸã‚¯ãƒ©ã‚¹ã¯ã€ä¸‹è¨˜ã®ã‚ˆã†ã«ã—ã¦å‘¼ã³å‡ºã™ã“ã¨ãŒã§ãã¾
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
Moose
Moose ã¯ãªã«ã§ã¯ãªã„ã‹ Moose Is Not 実験やプãƒãƒˆã‚¿ã‚¤ãƒ— (experimental) ãŠã‚‚ã¡ã‚ƒ (toy) ã‚‚ã†ä¸€ã¤ã®ã‚¢ã‚¯ã‚»ã‚µãƒ“ルダー (accessor builder) ソースフィルタ (source filter) é»’é”è¡“ (black magic) Perl 6 in Perl 5 Mooseã¨ã¯ãªã«ã‹ Moose Is Perlã®ãŸã‚ã®å®Œå…¨ã«ãƒ¢ãƒ€ãƒ³ãªã‚ªãƒ–ジェクトフレームワーク A complete modern object framework for Perl Mooseã¨ã¯ãªã«ã‹ Moose Is Class::MOPã®ãŸã‚ã®ã‚·ãƒ³ã‚¿ãƒƒã‚¯ã‚¹ã‚·ãƒ¥ã‚¬ãƒ¼ (Syntactic sugar) 祖先ãŸã¡ (ancestry) CLOS (Common Lisp Object System) Smalltalk Alces latifrons Perl 6 … 安定ã—ã¦
åˆã‚ã¦ã®Moose - Mooseã®ã™ã™ã‚ - ã¨ã»ã»ã®N88-BASIC日記
シンプルãªPerl 5ã§ã‚¯ãƒ©ã‚¹ã‚’作る 普通ã®Perl5 OOã§ã‚¯ãƒ©ã‚¹ã‚’書ã㨠{ package Dog; use strict; use warnings; sub new { my ( $class, %args ) = @_; my $obj = bless { name => $args{name}, gender => $args{gender}, }, $class; return $obj; } sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } sub gender { my $self = shift; $self->{gender} = shift if @_; return $self->{gender}; } sub bark { my $self = s
YappoLogs: Moose ã®ã‚³ãƒ¼ãƒ‰ã‚’探索ã—ã¦ç†è§£ã‚’æ·±ã‚ãŸ
Moose ã®ã‚³ãƒ¼ãƒ‰ã‚’探索ã—ã¦ç†è§£ã‚’æ·±ã‚㟠本日㯠Roppongi.PM ã®ç¬¬ä¸€å›ž Moose コードリーディングãŒã‚ã‚Šã¾ã—ãŸã€‚ Mooseã¯ã€å˜ç´”ã«ä½¿ã£ã¦ã‚‹åˆ†ã«ã¯åˆ†ã‚Šæ˜“ã„ã®ã§ã™ãŒã€ãã®å®Ÿè£…を見よã†ã¨ã™ã‚‹ã¨é€”端ã«è¤‡é›‘ã•ãŒå¢—ã—ã¾ã™ã€‚ ã¨ã«ã‹ãメソッドã®å‘¼ã³å‡ºã—ã®ã‚¹ã‚¿ãƒƒã‚¯ãŒæ·±ã„。MySQL程ã§ã¯ç„¡ã„ã«ã—ã‚曲者ã§ã™ã€‚ 今回ã¯ãã‚“ãªMooseã®æŒ™å‹•ã‚’把æ¡ã™ã‚‹æ‰‹ãŒã‹ã‚Šã‚’掴もã†ã¨ã„ã†å›žã§ã™ã€‚ Moose.pm Moose.pmã¯ã€ä¸»ã«use Mooseã•ã‚ŒãŸæ™‚ã«exportã™ã‚‹ãƒ¡ã‚½ãƒƒãƒ‰ã®å®šç¾©ã‚’ã—ã¦ã„ã¾ã™ã€‚ use Mooseã™ã‚‹ã¨ã€extends,with,has,before,after,around,override,inner,augment,make_immutable($c->meta->make_immutableã™ã¹ã),confess,blessedãŒexportã•ã‚Œã¾ã™ã€‚ ãã—ã¦M
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
http://perldoc.perlassociation.org/pod/Moose-Doc-JA/
åˆã‚ã¦ã®Moose
perl-mongers.org
http://coderepos.org/share/browser/docs/moose-ja/Moose.ja.pod
{{#tags}}- {{label}}
{{/tags}}