t/pipeline.t

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