projects
/
p5sagit/Function-Parameters.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
version bump
[p5sagit/Function-Parameters.git]
/
t
/
foreign
/
Method-Signatures
/
anon.t
1
#!perl
2
use strict;
3
use warnings FATAL => 'all';
4
5
use Test::More 'no_plan';
6
7
{
8
package Stuff;
9
10
use Test::More;
11
use Function::Parameters qw(:strict);
12
13
method echo($arg) {
14
return $arg
15
}
16
17
my $method = method ($arg) {
18
return $self->echo($arg)
19
};
20
21
is( Stuff->$method("foo"), "foo" );
22
}