projects
/
p5sagit/Devel-Declare.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
avoid indirect object syntax
[p5sagit/Devel-Declare.git]
/
t
/
build_sub_installer.t
1
use strict;
2
use warnings;
3
use Test::More 0.88;
4
5
use Devel::Declare ();
6
7
BEGIN {
8
Devel::Declare->build_sub_installer('Foo', 'bar', '&')
9
->(sub { $_[0]->("woot"); });
10
}
11
12
my $args;
13
14
{
15
package Foo;
16
17
bar { $args = join(', ', @_); };
18
}
19
20
is($args, 'woot', 'sub installer worked');
21
22
done_testing;