File Coverage

lib/Class/MethodMaker/Constants.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             # (X)Emacs mode: -*- cperl -*-
2              
3             package Class::MethodMaker::Constants;
4              
5             =head1 NAME
6              
7             Class::MethodMaker::Constants - The Constants Class for Class::MethodMaker
8              
9             =head1 SYNOPSIS
10              
11             Z<>
12              
13             =head1 DESCRIPTION
14              
15             Z<>
16              
17             =cut
18              
19             # ----------------------------------------------------------------------------
20              
21             # Pragmas -----------------------------
22              
23             require 5.006;
24 8     8   46 use strict;
  8         13  
  8         276  
25 8     8   36 use warnings;
  8         19  
  8         241  
26              
27 8     8   42 use base qw( Exporter );
  8         17  
  8         1040  
28             our @EXPORT_OK = qw( INTEGER );
29              
30             # ----------------------------------------------------------------------------
31              
32             # CLASS METHODS --------------------------------------------------------------
33              
34             # -------------------------------------
35             # CLASS CONSTANTS
36             # -------------------------------------
37              
38             =head1 CLASS CONSTANTS
39              
40             Z<>
41              
42             =cut
43              
44 8     8   43 use constant INTEGER => '+INTEGER'; # Prefix to ensure clients don't just
  8         11  
  8         534  
45             # assume the string: this value may well
46             # change in the future
47              
48             # ----------------------------------------------------------------------------
49              
50             =head1 EXAMPLES
51              
52             Z<>
53              
54             =head1 BUGS
55              
56             Z<>
57              
58             =head1 REPORTING BUGS
59              
60             Email the development mailing list C
61              
62             =head1 AUTHOR
63              
64             Martyn J. Pearce
65              
66             =head1 COPYRIGHT
67              
68             Copyright (c) 2003 Martyn J. Pearce. This program is free software; you can
69             redistribute it and/or modify it under the same terms as Perl itself.
70              
71             =head1 SEE ALSO
72              
73             Z<>
74              
75             =cut
76              
77             1; # keep require happy.
78              
79             __END__