t/pipeline.t

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