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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
package Hints_pod_examples;
use strict;
use warnings;
use Exporter 5.57 'import';
our %DOES = ( 'autodie::hints::provider' => 1 );
our @EXPORT_OK = qw(
undef_scalar false_scalar zero_scalar empty_list default_list
empty_or_false_list undef_n_error_list foo re_fail bar
think_positive my_system bizarro_system
);
use autodie::hints;
sub AUTODIE_HINTS {
return {
# Scalar failures always return undef:
undef_scalar => { fail => sub { !defined($_[0]) } },
# Scalar failures return any false value [default behaviour]:
false_scalar => { fail => sub { return ! $_[0] } },
# Scalar failures always return zero explicitly:
zero_scalar => { fail => sub { defined($_[0]) && $_[0] eq '0' } },
# List failures always return empty list:
# We never want these called in a scalar context
empty_list => { scalar => sub { 1 }, list => sub { !@_ } },
# List failures return C<()> or C<(undef)> [default expectation]:
default_list => { fail => sub { ! @_ || @_ == 1 && !defined $_[0] } },
# List failures return C<()> or a single false value:
empty_or_false_list => { fail => sub { ! @_ || @_ == 1 && !$_[0] } },
# List failures return (undef, "some string")
undef_n_error_list => { fail => sub { @_ == 2 && !defined $_[0] } },
};
}
# Define some subs that all just return their arguments
sub undef_scalar { return wantarray ? @_ : $_[0] }
sub false_scalar { return wantarray ? @_ : $_[0] }
sub zero_scalar { return wantarray ? @_ : $_[0] }
sub empty_list { return wantarray ? @_ : $_[0] }
sub default_list { return wantarray ? @_ : $_[0] }
sub empty_or_false_list { return wantarray ? @_ : $_[0] }
sub undef_n_error_list { return wantarray ? @_ : $_[0] }
# Unsuccessful foo() returns 0 in all contexts...
autodie::hints->set_hints_for(
\&foo,
{
scalar => sub { defined($_[0]) && $_[0] == 0 },
list => sub { @_ == 1 && defined($_[0]) && $_[0] == 0 },
}
);
sub foo { return wantarray ? @_ : $_[0] }
# Unsuccessful re_fail() returns 'FAIL' or '_FAIL' in scalar context,
# returns (-1) in list context...
autodie::hints->set_hints_for(
\&re_fail,
{
scalar => qr/^ _? FAIL $/xms,
list => sub { @_ == 1 && $_[0] eq -1 },
}
);
sub re_fail { return wantarray ? @_ : $_[0] }
# Unsuccessful bar() returns 0 in all contexts...
autodie::hints->set_hints_for(
\&bar,
{
scalar => sub { defined($_[0]) && $_[0] == 0 },
list => sub { @_ == 1 && defined($_[0]) && $_[0] == 0 },
}
);
sub bar { return wantarray ? @_ : $_[0] }
# Unsuccessful think_positive() returns negative number on failure...
autodie::hints->set_hints_for(
\&think_positive,
{
scalar => sub { $_[0] < 0 },
list => sub { $_[0] < 0 },
}
);
sub think_positive { return wantarray ? @_ : $_[0] }
# Unsuccessful my_system() returns non-zero on failure...
autodie::hints->set_hints_for(
\&my_system,
{
scalar => sub { $_[0] != 0 },
list => sub { $_[0] != 0 },
}
);
sub my_system { return wantarray ? @_ : $_[0] };
1;
|
