File Coverage

blib/lib/FTN/Crypt/Constants.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             # FTN::Crypt::Constants - Common constants for the FTN::Crypt module
2             #
3             # Copyright (C) 2019 by Petr Antonov
4             #
5             # This library is free software; you can redistribute it and/or modify it
6             # under the same terms as Perl 5.10.0. For more details, see the full text
7             # of the licenses at https://opensource.org/licenses/Artistic-1.0, and
8             # http://www.gnu.org/licenses/gpl-2.0.html.
9             #
10             # This package is provided "as is" and without any express or implied
11             # warranties, including, without limitation, the implied warranties of
12             # merchantability and fitness for a particular purpose.
13             #
14              
15             package FTN::Crypt::Constants;
16              
17 3     3   25 use strict;
  3         13  
  3         118  
18 3     3   18 use warnings;
  3         6  
  3         67  
19 3     3   39 use v5.10.1;
  3         11  
20              
21             #----------------------------------------------------------------------#
22              
23             =head1 NAME
24              
25             FTN::Crypt::Constants - Common constants for the L<FTN::Crypt> module.
26              
27             =head1 SYNOPSIS
28              
29             use FTN::Crypt::Constants;
30              
31             $FTN::Crypt::Constants::ENC_METHODS{PGP5}; # true
32              
33             =cut
34              
35             #----------------------------------------------------------------------#
36              
37             =head1 CONSTANTS
38              
39             =over 4
40              
41             =item * C<%ENC_METHODS> - supported encryption methods.
42              
43             =item * C<$ENC_NODELIST_FLAG> - nodelist flag.
44              
45             =item * C<$ENC_MESSAGE_KLUDGE> - message encryption kludge.
46              
47             =back
48              
49             =cut
50              
51             our %ENC_METHODS = (
52             'PGP2' => 1,
53             'PGP5' => 1,
54             'GnuPG' => 1,
55             );
56              
57             our $ENC_NODELIST_FLAG = 'ENCRYPT';
58             our $ENC_MESSAGE_KLUDGE = 'ENC';
59              
60             1;
61             __END__
62              
63             =head1 AUTHOR
64              
65             Petr Antonov, E<lt>pietro@cpan.orgE<gt>
66              
67             =head1 COPYRIGHT AND LICENSE
68              
69             Copyright (C) 2019 by Petr Antonov
70              
71             This library is free software; you can redistribute it and/or modify it
72             under the same terms as Perl 5.10.0. For more details, see the full text
73             of the licenses at L<https://opensource.org/licenses/Artistic-1.0>, and
74             L<http://www.gnu.org/licenses/gpl-2.0.html>.
75              
76             This package is provided "as is" and without any express or implied
77             warranties, including, without limitation, the implied warranties of
78             merchantability and fitness for a particular purpose.