projects
/
p5sagit/Devel-BeginLift.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Document *_for_cv.
[p5sagit/Devel-BeginLift.git]
/
t
/
liftvar.t
1
use strict;
2
use warnings;
3
use Test::More 'no_plan';
4
5
sub foo { $_[0] = $_[1]; (); }
6
7
sub bar { is($_[0], 'yay', 'Var set ok by sub'); (); }
8
9
sub baz { () }
10
11
sub quux { is($_[0], 'w00t', 'Var set ok by ='); (); }
12
13
use Devel::BeginLift qw(foo bar baz quux);
14
15
foo(my $meep, 'yay');
16
17
bar($meep);
18
19
baz(my $lolz = 'w00t');
20
21
quux($lolz);