*_for methods should always take a path to activate
[p5sagit/local-lib.git] / t / pipeline.t
CommitLineData
4c375968 1use strict;
2use warnings;
7487778d 3use Test::More tests => 1;
4
4c375968 5use local::lib ();
6
7{
e7ffbae6 8 package local::lib;
4c375968 9
e7ffbae6 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);
4c375968 13}