X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpipeline.t;h=886aaf08301a03226036fec55a9dff157a14d24c;hb=89201d47ae16b04ce438085e386be5fab45e9a48;hp=f1994ad9594c5f1a9ca4097899d8891e4d410de7;hpb=4c3759681305fb889c41ee1c6558ee0b24fc4253;p=p5sagit%2Flocal-lib.git diff --git a/t/pipeline.t b/t/pipeline.t index f1994ad..886aaf0 100644 --- a/t/pipeline.t +++ b/t/pipeline.t @@ -9,7 +9,7 @@ use local::lib (); package local::lib; { package Foo; sub foo { -$_[1] } sub bar { $_[1]+2 } sub baz { $_[1]+3 } } -my $foo = bless({}, 'Foo'); +my $foo = bless({}, 'Foo'); Test::More::ok($foo->${pipeline qw(foo bar baz)}(10) == -15); }