File Coverage

blib/lib/FTN/JAM/Attr.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             # FTN::JAM::Attr
2              
3             package FTN::JAM::Attr;
4              
5 2     2   7382 use warnings;
  2         5  
  2         78  
6 2     2   11 use strict;
  2         4  
  2         96  
7              
8             =head1 NAME
9              
10             FTN::JAM::Attr - A Perl extension for handling JAM messagebase Attribute references.
11              
12             =head1 VERSION
13              
14             Version 0.30
15              
16             =cut
17              
18             our $VERSION = '0.30';
19              
20             =head1 DESCRIPTION
21              
22             This module contains the read only constants used for referenceing attributes when accessing
23             JAM messagebases.
24              
25             =cut
26              
27 2     2   972 use Readonly;
  2         3296  
  2         1061  
28              
29             Readonly our $LOCAL => 0x00000001;
30             Readonly our $INTRANSIT => 0x00000002;
31             Readonly our $PRIVATE => 0x00000004;
32             Readonly our $READ => 0x00000008;
33             Readonly our $SENT => 0x00000010;
34             Readonly our $KILLSENT => 0x00000020;
35             Readonly our $ARCHIVESENT => 0x00000040;
36             Readonly our $HOLD => 0x00000080;
37             Readonly our $CRASH => 0x00000100;
38             Readonly our $IMMEDIATE => 0x00000200;
39             Readonly our $DIRECT => 0x00000400;
40             Readonly our $GATE => 0x00000800;
41             Readonly our $FILEREQUEST => 0x00001000;
42             Readonly our $FILEATTACH => 0x00002000;
43             Readonly our $TRUNCFILE => 0x00004000;
44             Readonly our $KILLFILE => 0x00008000;
45             Readonly our $RECEIPTREQ => 0x00010000;
46             Readonly our $CONFIRMREQ => 0x00020000;
47             Readonly our $ORPHAN => 0x00040000;
48             Readonly our $ENCRYPT => 0x00080000;
49             Readonly our $COMPRESS => 0x00100000;
50             Readonly our $ESCAPED => 0x00200000;
51             Readonly our $FPU => 0x00400000;
52             Readonly our $TYPELOCAL => 0x00800000;
53             Readonly our $TYPEECHO => 0x01000000;
54             Readonly our $TYPENET => 0x02000000;
55             Readonly our $NODISP => 0x20000000;
56             Readonly our $LOCKED => 0x40000000;
57             Readonly our $DELETED => 0x80000000;
58              
59             =head1 AUTHOR
60              
61             Robert James Clay, C<< >>
62              
63             =head1 BUGS
64              
65             Please report any bugs or feature requests to C, or through the web
66             interface at L. I will be notified, and
67             then you'll automatically be notified of progress on your bug as I make changes.
68              
69             =head1 SUPPORT
70              
71             You can find documentation for this module with the perldoc command.
72              
73             perldoc FTN::JAM::Attr
74              
75             You can also look for information at:
76              
77             =over 4
78              
79             =item * FTN::JAM Home Page
80              
81             L
82              
83             =item * Browse the FTN::JAM GIT repository at SourceForge
84              
85             L
86              
87             =item * RT: CPAN's request tracker
88              
89             L
90              
91             =item * AnnoCPAN: Annotated CPAN documentation
92              
93             L
94              
95             =item * CPAN Ratings
96              
97             L
98              
99             =item * Search CPAN
100              
101             L
102              
103             =back
104              
105             =head1 ACKNOWLEDGEMENTS
106              
107             Originally based on the public domain Perl::JAM module by Johan Billing, which
108             can be found at L.
109              
110             =head1 SEE ALSO
111              
112             L, L
113              
114             =head1 COPYRIGHT & LICENSE
115              
116             Copyright 2010-2012 Robert James Clay, all rights reserved.
117              
118             This program is free software; you can redistribute it and/or modify it
119             under the same terms as Perl itself.
120              
121             =cut
122              
123             1; # End of FTN::JAM::Attr