Hatena::Groupcatalyst

dann@catalyst このページをアンテナに追加 RSSフィード

2008-04-29

Moose::AutoboxでList::RubyLike

Moose::AutoboxでList::RubyLike - dann@catalyst を含むブックマーク はてなブックマーク - Moose::AutoboxでList::RubyLike - dann@catalyst Moose::AutoboxでList::RubyLike - dann@catalyst のブックマークコメント

#!/usr/bin/env perl
use strict;
use warnings;
use Moose::Autobox;
use Test::More qw(no_plan);

my $list = [ 1 .. 2 ];
is $list->push(3)->join(','), '1,2,3';
is $list->map( sub { $_ * $_ } )->reduce( sub { $_[0] + $_[1] } ), 14;

Rubyっぽくなっていい。片っ端からRubyのメソッドを追加して遊ぶのもいいかも。

See also:

http://d.hatena.ne.jp/naoya/20080419/1208579525

トラックバック - http://catalyst.g.hatena.ne.jp/dann/20080429