X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Flocal%2Flib.pm;h=26f60ecf5faf92afb6c15098166e1b3f637588eb;hb=5b94dce5a79a169474bc581ec122a2ff5e2eb3ef;hp=557a9a6063af6af1bf04c432bdffd1af3746b176;hpb=b5cc15f7139b20feea57c18e5498ef0dd1432935;p=p5sagit%2Flocal-lib.git

diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index 557a9a6..26f60ec 100644
--- a/lib/local/lib.pm
+++ b/lib/local/lib.pm
@@ -19,15 +19,15 @@ sub import {
   $class->setup_local_lib_for($path);
 }
 
-sub compose;
+sub pipeline;
 
-sub compose {
+sub pipeline {
   my @methods = @_;
   my $last = pop(@methods);
   if (@methods) {
     \sub {
       my ($obj, @args) = @_;
-      $obj->${compose @methods}(
+      $obj->${pipeline @methods}(
         $obj->$last(@args)
       );
     };
@@ -44,13 +44,13 @@ package local::lib;
 
 { package Foo; sub foo { -$_[1] } sub bar { $_[1]+2 } sub baz { $_[1]+3 } }
 my $foo = bless({}, 'Foo');                                                 
-ok($foo->${compose qw(foo bar baz)}(10) == -15);
+ok($foo->${pipeline qw(foo bar baz)}(10) == -15);
 
 =cut
 
 sub resolve_path {
   my ($class, $path) = @_;
-  $class->${compose qw(
+  $class->${pipeline qw(
     resolve_relative_path
     resolve_home_path
     resolve_empty_path