File Coverage

blib/lib/Protocol/Database/PostgreSQL/Constants.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Protocol::Database::PostgreSQL::Constants;

use strict;
use warnings;

our $VERSION = '2.001'; # VERSION

=head1 NAME

Protocol::Database::PostgreSQL::Constants - some constants used in the PostgreSQL protocol

=head1 DESCRIPTION

Exports some constants - mostly SSL-related.

=cut

use Exporter qw(import export_to_level);

use List::Util qw(uniqstr);

=head1 EXPORTS

(note that SSL here actually means TLS).

=over 4

=item * C - do not use SSL

=item * C - use SSL if we can

=item * C - only use SSL

=back

=cut

use constant {
    SSL_DISABLE => 0,
    SSL_PREFER  => 1,
    SSL_REQUIRE => 2,
};

=head2 SSL_NAME_MAP

Mapping from plain text words to the C constants.

=over 4

=item * C

=item * C

=item * C

=back

=cut

our %SSL_NAME_MAP = (
    disable => SSL_DISABLE,
    prefer  => SSL_PREFER,
    require => SSL_REQUIRE,
);

our %EXPORT_TAGS = (
    v1 => [qw(SSL_DISABLE SSL_PREFER SSL_REQUIRE)],
);
our @EXPORT_OK = uniqstr map { @$_ } values %EXPORT_TAGS;

1;

__END__