File Coverage

blib/lib/FTN/JAM/Subfields.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::Subfields
2              
3             package FTN::JAM::Subfields;
4              
5 2     2   4361 use warnings;
  2         4  
  2         62  
6 2     2   9 use strict;
  2         3  
  2         89  
7              
8             =head1 NAME
9              
10             FTN::JAM::Subfields - A Perl extension for handleing JAM messagebase Subfield 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 subfields when accessing
23             JAM messagebases.
24              
25             =cut
26              
27 2     2   78 use Readonly;
  2         5  
  2         1035  
28              
29             Readonly our $OADDRESS => 0;
30             Readonly our $DADDRESS => 1;
31             Readonly our $SENDERNAME => 2;
32             Readonly our $RECVRNAME => 3;
33             Readonly our $MSGID => 4;
34             Readonly our $REPLYID => 5;
35             Readonly our $SUBJECT => 6;
36             Readonly our $PID => 7;
37             Readonly our $TRACE => 8;
38             Readonly our $ENCLFILE => 9;
39             Readonly our $ENCLFWALIAS => 10;
40             Readonly our $ENCLFREQ => 11;
41             Readonly our $ENCLFILEWC => 12;
42             Readonly our $ENCLINDFILE => 13;
43             Readonly our $EMBINDAT => 1000;
44             Readonly our $FTSKLUDGE => 2000;
45             Readonly our $SEENBY2D => 2001;
46             Readonly our $PATH2D => 2002;
47             Readonly our $FLAGS => 2003;
48             Readonly our $TZUTCINFO => 2004;
49             Readonly our $UNKNOWN => 0xffff;
50              
51             =head1 AUTHOR
52              
53             Robert James Clay, C<< >>
54              
55             =head1 BUGS
56              
57             Please report any bugs or feature requests to C, or through the web
58             interface at L. I will be notified, and
59             then you'll automatically be notified of progress on your bug as I make changes.
60              
61             =head1 SUPPORT
62              
63             You can find documentation for this module with the perldoc command.
64              
65             perldoc FTN::JAM::Subfields
66              
67             You can also look for information at:
68              
69             =over 4
70              
71             =item * FTN::JAM Home Page
72              
73             L
74              
75             =item * Browse the FTN::JAM GIT repository at SourceForge
76              
77             L
78              
79             =item * RT: CPAN's request tracker
80              
81             L
82              
83             =item * AnnoCPAN: Annotated CPAN documentation
84              
85             L
86              
87             =item * CPAN Ratings
88              
89             L
90              
91             =item * Search CPAN
92              
93             L
94              
95             =back
96              
97             =head1 ACKNOWLEDGEMENTS
98              
99             Originally based on the public domain Perl::JAM module by Johan Billing, which
100             can be found at L.
101              
102             =head1 SEE ALSO
103              
104             L, L
105              
106             =head1 COPYRIGHT & LICENSE
107              
108             Copyright 2010-2012 Robert James Clay, all rights reserved.
109              
110             This program is free software; you can redistribute it and/or modify it
111             under the same terms as Perl itself.
112              
113             =cut
114              
115             1; # End of FTN::JAM::Subfields