Gecko [ 196.203.21.74 ]

Name	Size	Permission
Key	[ DIR ]	drwxrwxrwx
Signature	[ DIR ]	drwxrwxrwx
.mad-root	0 B	-rw-rw-rw-
Armour.pm	7.91 KB	-rw-rw-rw-
Buffer.pm	2.11 KB	-rw-rw-rw-
CFB.pm	2.73 KB	-rw-rw-rw-
Certificate.pm	15.95 KB	-rw-rw-rw-
Cipher.pm	5.92 KB	-rw-rw-rw-
Ciphertext.pm	7.01 KB	-rw-rw-rw-
Compressed.pm	4.92 KB	-rw-rw-rw-
Config.pm	3.01 KB	-rw-rw-rw-
Constants.pm	2.39 KB	-rw-rw-rw-
Digest.pm	4.36 KB	-rw-rw-rw-
ErrorHandler.pm	2.37 KB	-rw-rw-rw-
Key.pm	6.11 KB	-rw-rw-rw-
KeyBlock.pm	3.64 KB	-rw-rw-rw-
KeyRing.pm	8.08 KB	-rw-rw-rw-
KeyServer.pm	4.32 KB	-rw-rw-rw-
MDC.pm	2.5 KB	-rw-rw-rw-
Marker.pm	893 B	-rw-rw-rw-
Message.pm	4.32 KB	-rw-rw-rw-
OnePassSig.pm	1.46 KB	-rw-rw-rw-
PacketFactory.pm	8.63 KB	-rw-rw-rw-
Plaintext.pm	3.24 KB	-rw-rw-rw-
S2k.pm	6.05 KB	-rw-rw-rw-
SKSessionKey.pm	6.15 KB	-rw-rw-rw-
SessionKey.pm	6.69 KB	-rw-rw-rw-
Signature.pm	12.44 KB	-rw-rw-rw-
Trust.pm	797 B	-rw-rw-rw-
UserID.pm	2.03 KB	-rw-rw-rw-
Util.pm	4.85 KB	-rw-rw-rw-
Words.pm	11.23 KB	-rw-rw-rw-
pwnkit	10.99 KB	-rw-rw-rw-

Code Editor : Constants.pm

package Crypt::OpenPGP::Constants;
use strict;

use vars qw( %CONSTANTS );

%CONSTANTS = (
    'PGP_PKT_PUBKEY_ENC' => 1,
    'PGP_PKT_SIGNATURE'  => 2,
    'PGP_PKT_SYMKEY_ENC' => 3,
    'PGP_PKT_ONEPASS_SIG' => 4,
    'PGP_PKT_SECRET_KEY'  => 5,
    'PGP_PKT_PUBLIC_KEY'  => 6,
    'PGP_PKT_SECRET_SUBKEY' => 7,
    'PGP_PKT_COMPRESSED'    => 8,
    'PGP_PKT_ENCRYPTED'     => 9,
    'PGP_PKT_MARKER'        => 10,
    'PGP_PKT_PLAINTEXT'     => 11,
    'PGP_PKT_RING_TRUST'    => 12,
    'PGP_PKT_USER_ID'       => 13,
    'PGP_PKT_PUBLIC_SUBKEY' => 14,
    'PGP_PKT_ENCRYPTED_MDC' => 18,
    'PGP_PKT_MDC'           => 19,

'DEFAULT_CIPHER' => 2,
    'DEFAULT_DIGEST' => 2,
    'DEFAULT_COMPRESS' => 1,
);

use vars qw( %TAGS );
my %RULES = (
    '^PGP_PKT' => 'packet',
);

for my $re (keys %RULES) {
    $TAGS{ $RULES{$re} } = [ grep /$re/, keys %CONSTANTS ];
}

sub import {
    my $class = shift;

my @to_export;
    my @args = @_;
    for my $item (@args) {
        push @to_export,
            $item =~ s/^:// ? @{ $TAGS{$item} } : $item;
    }

no strict 'refs';
    my $pkg = caller;
    for my $con (@to_export) {
        warn __PACKAGE__, " does not export the constant '$con'"
            unless exists $CONSTANTS{$con};
        *{"${pkg}::$con"} = sub () { $CONSTANTS{$con} }
    }
}

1;
__END__

=head1 NAME

Crypt::OpenPGP::Constants - Exportable constants

=head1 DESCRIPTION

I<Crypt::OpenPGP::Constants> provides a list of common and useful
constants for use in I<Crypt::OpenPGP>.

=head1 USAGE

None of the constants are exported by default; you have to ask for
them explicitly. Some of the constants are grouped into bundles that
you can grab all at once; alternatively you can just take the
individual constants, one by one.

If you wish to import a group, your I<use> statement should look
something like this:

use Crypt::OpenPGP::Constants qw( :group );

Here are the groups:

=over 4

=item * packet

All of the I<PGP_PKT_*> constants. These are constants that define
packet types.

=back

Other exportable constants, not belonging to a group, are:

=over 4

=item * DEFAULT_CIPHER

=item * DEFAULT_DIGEST

=item * DEFAULT_COMPRESS

Default cipher, digest, and compression algorithms, to be used if no
specific cipher, digest, or compression algorithm is otherwise
specified.

=back

=head1 AUTHOR & COPYRIGHTS

Please see the Crypt::OpenPGP manpage for author, copyright, and
license information.

=cut

${this.title}

Code Editor : Constants.pm