projects
/
gitmo/Eval-Closure.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
is setting up hints as in the caller a sane thing to do?
[gitmo/Eval-Closure.git]
/
t
/
canonicalize-source.t
1
#!/usr/bin/env perl
2
use strict;
3
use warnings;
4
use Test::More;
5
6
use Eval::Closure;
7
8
{
9
my $code = eval_closure(
10
source =>
11
'sub {'
12
. '"foo"'
13
. '}',
14
);
15
ok($code, "got code");
16
is($code->(), "foo", "got the right code");
17
}
18
19
{
20
my $code = eval_closure(
21
source => [
22
'sub {',
23
'"foo"',
24
'}',
25
],
26
);
27
ok($code, "got code");
28
is($code->(), "foo", "got the right code");
29
}
30
31
done_testing;