1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#!/usr/bin/perl -w
# Test the bare sigil syntax: $, @ and %
use strict;
use warnings;
use Test::More;
use Method::Signatures;
{
package Placeholder;
use lib 't/lib';
use GenErrorRegex qw< required_error required_placeholder_error >;
use Test::More;
use Test::Exception;
use Method::Signatures;
method only_placeholder($) {
return $self;
}
is( Placeholder->only_placeholder(23), 'Placeholder' );
#line 28
throws_ok { Placeholder->only_placeholder() } required_placeholder_error('Placeholder', 0, 'only_placeholder', LINE => 28),
'simple required placeholder error okay';
method add_first_and_last($first!, $, $last = 22) {
return $first + $last
}
is( Placeholder->add_first_and_last(18, 19, 20), 18 + 20 );
is( Placeholder->add_first_and_last(18, 19), 18 + 22 );
#line 39
throws_ok { Placeholder->add_first_and_last() } required_error('Placeholder', '$first', 'add_first_and_last', LINE => 39),
'missing required/named param error okay';
#line 43
throws_ok { Placeholder->add_first_and_last(18) } required_placeholder_error('Placeholder', 1, 'add_first_and_last', LINE => 43),
'missing required placeholder after required param error okay';
method slurpy($foo, @) {
$foo
}
is( Placeholder->slurpy(123), 123, 'slurpy, no extras');
is( Placeholder->slurpy(123, 456, 789), 123, 'slurpy with extras');
method slurpy_hash($foo, %) {
$foo
}
is( Placeholder->slurpy_hash(123), 123, 'slurpy_hash, no extras');
is( Placeholder->slurpy_hash(123, a => 1, b => 2), 123, 'slurpy_hash with extras');
throws_ok { Placeholder->slurpy_hash(123, 456, a => 1) }
qr{was given an odd number of arguments for a placeholder hash},
'slurpy_hash with odd number of extras throws exception';
method optional_placeholder($foo, $?, $bar?) {
return [ $foo, $bar ];
}
is_deeply( Placeholder->optional_placeholder(1), [ 1, undef ], 'optional_placeholder with 1 arg');
is_deeply( Placeholder->optional_placeholder(1, 2), [ 1, undef ], 'optional_placeholder with 2 args');
is_deeply( Placeholder->optional_placeholder(1, 2, 3), [ 1, 3 ], 'optional_placeholder with 3 args');
}
done_testing();
|
