1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!perl
use 5.010;
use strict;
use warnings;
use Test::More 0.98;
use Perinci::Sub::Util qw(gen_curried_sub);
package Foo;
our %SPEC;
$SPEC{bar} = {
v => 1.1,
summary => 'Orig summary',
description => 'Orig description',
args => {
a => {},
b => {},
},
result_naked => 1,
};
sub bar {
my %args = @_;
$args{a} * $args{b};
}
package main;
gen_curried_sub('Foo::bar', {a=>3});
is(bar(b=>3), 9);
gen_curried_sub('Foo::bar', {a=>2}, 'Foo::baz');
is(Foo::baz(b=>3), 6);
DONE_TESTING:
done_testing;
|
