projects
/
p5sagit/Function-Parameters.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
import more Method::Signatures tests
[p5sagit/Function-Parameters.git]
/
t
/
foreign
/
Method-Signatures
/
paren_on_own_line.t
1
#!perl
2
3
package Foo;
4
5
use strict;
6
use warnings FATAL => 'all';
7
8
use Function::Parameters qw(:strict);
9
use Test::More 'no_plan';
10
11
# The problem goes away inside an eval STRING.
12
method foo(
13
$arg
14
)
15
{
16
return $arg;
17
}
18
19
is $@, '';
20
is( Foo->foo(42), 42 );