1Maypole::Constants(3) User Contributed Perl DocumentationMaypole::Constants(3)
2
3
4
6 Maypole::Constants - Maypole predefined constants
7
9 use Maypole::Constants;
10
11 sub authenticate {
12 if (valid_user()) {
13 return OK;
14 } else {
15 return DECLINED
16 }
17 }
18
20 This class defines constants for use with Maypole
21
22 CONSTANTS
23 OK
24
25 DECLINED
26
27 ERROR
28
30 Maypole
31
33 Aaron Trevena, c<teejay@droogs.org>
34
36 Simon Cozens, "simon@cpan.org"
37
39 You may distribute this code under the same terms as Perl itself.
40
41
42
43perl v5.30.1 2020-01-30 Maypole::Constants(3)