Commit | Line | Data |
633048d5 |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings FATAL => 'all'; |
5 | |
6 | package Foo; |
7 | |
8 | use Test::More "no_plan"; |
9 | use Function::Parameters qw(:strict); |
10 | |
11 | method foo( |
12 | $arg |
13 | ) |
14 | { |
15 | return $arg |
16 | } |
17 | |
18 | is( Foo->foo(23), 23 ); |