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
24 OK
25
26 DECLINED
27
28 ERROR
29
31 Maypole
32
34 Aaron Trevena, c<teejay@droogs.org>
35
37 Simon Cozens, "simon@cpan.org"
38
40 You may distribute this code under the same terms as Perl itself.
41
42
43
44perl v5.8.8 2005-11-23 Maypole::Constants(3)