Commit | Line | Data |
---|---|---|
4c375968 | 1 | use strict; |
2 | use warnings; | |
7487778d | 3 | use Test::More tests => 1; |
4 | ||
4c375968 | 5 | use 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 | } |