whitespace cleanup
[p5sagit/local-lib.git] / 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 }