t/pipeline.t

   1
   2 use strict;
   3 use warnings;
   4 use Test::More 'no_plan';
   5 use local::lib ();
   6
   7 {
   8
   9 package local::lib;
  10
  11 { package Foo; sub foo { -$_[1] } sub bar { $_[1]+2 } sub baz { $_[1]+3 } }
  12 my $foo = bless({}, 'Foo');
  13 Test::More::ok($foo->${pipeline qw(foo bar baz)}(10) == -15);
  14
  15 }