Permalink
Browse files

use PX::MethodCallWithBlock in example

  • Loading branch information...
hakim
hakim committed Jul 16, 2010
1 parent 457050c commit 0d1d19f8f9e6e38380b787dcbc301ebe3b4327d0
Showing with 3 additions and 2 deletions.
  1. +3 −2 scratch/perl/kiokupipe/test3.pl
@@ -3,6 +3,7 @@
use strict; use warnings;
use List;
use Data::Dumper;
+use PerlX::MethodCallWithBlock;
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Maxdepth = 2;
@@ -70,7 +71,7 @@
from_feed => 'root',
make_list => sub {
my $root = shift;
- $root->Grep( sub { $_[0]->action eq 'completed' } );
+ $root->Grep { $_[0]->action eq 'completed' };
},
);
@@ -80,7 +81,7 @@
from_feed => 'completions',
make_list => sub {
my $completions = shift;
- $completions->Grep( sub { $_[0]->object >= 80 } );
+ $completions->Grep { $_[0]->object >= 80 } };
}
);
}

0 comments on commit 0d1d19f

Please sign in to comment.