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