| Crypt-GpgME documentation | Contained in the Crypt-GpgME distribution. |
Crypt::GpgME - Perl interface to libgpgme
use IO::File;
use Crypt::GpgME;
my $ctx = Crypt::GpgME->new;
$ctx->set_passphrase_cb(sub { 'abc' });
my $signed = $ctx->sign( IO::File->new('some_file', 'r') );
print while <$signed>;
my $version = Crypt::GpgME->GPGME_VERSION;
my $version = $ctx->GPGME_VERSION;
Returns a string containing the libgpgme version number this module has been compiled against.
my $ctx = Crypt::GpgME->new;
Returns a new Crypt::GpgME instance. Throws an exception on error.
my $fh = $ctx->card_edit($key, $coderef);
my $fh = $ctx->card_edit($key, $coderef, $user_data);
Crypt::GpgME->check_version;
Crypt::GpgME->check_version($version);
$ctx->delete($key);
$ctx->delete($key, $allow_secret);
my $fh = $ctx->edit($key, $coderef);
my $fh = $ctx->edit($key, $coderef, $user_data);
$ctx->engine_check_version($proto);
Crypt::GpgME->engine_check_version($proto);
my ($result, $pubkey_fh, $seckey_fh) = $ctx->genkey($parms);
my $armor = $ctx->get_armor;
my $engine_info = $ctx->get_engine_info;
my $engine_info = Crypt::GpgME->get_engine_info;
my $include_certs = $ctx->get_include_certs;
my $key = $ctx->get_key($fpr);
my $key = $ctx->get_key($fpr, $secret);
my $keylist_mode = $ctx->get_keylist_mode;
my $protocol = $ctx->get_protocol;
my $textmode = $ctx->get_protocol;
my @results = $ctx->keylist($pattern);
my @results = $ctx->keylist($pattern, $secret_only);
$ctx->set_armor($armor);
$ctx->set_engine_info($proto, $file_name, $home_dir);
Crypt::GpgME->set_engine_info($proto, $file_name, $home_dir);
$ctx->set_include_certs;
$ctx->set_include_certs($nr_of_certs);
$ctx->set_keylist_mode;
$ctx->set_keylist_mode($keylist_mode);
$ctx->set_locale($category, $value);
Crypt::GpgME->set_locale($category, $value);
$ctx->set_passphrase_cb($coderef);
$ctx->set_passphrase_cb($coderef, $user_data);
$ctx->set_progress_cb($coderef);
$ctx->set_progress_cb($coderef, $user_data);
$ctx->set_protocol;
$ctx->set_protocol($proto);
$ctx->set_textmode($textmode);
$ctx->sig_notation_add($name, $value);
$ctx->sig_notation_add($name, $value, $flags);
$ctx->sig_notation_clear;
my @notation = $ctx->sig_notation_get;
my $fh = $ctx->sign($plain);
my $fh = $ctx->sign($plain, $mode);
$ctx->signers_add($key);
$ctx->signers_clear;
my $key = $ctx->signers_enum($seq);
my @trustlist = $ctx->trustlist($pattern, $maxlevel);
my ($result, $plain) = $ctx->verify($sig);
my $result = $ctx->verify($sig, $signed_text);
Florian Ragwitz, <rafl at debian.org>
Please report any bugs or feature requests to
bug-crypt-gpgme at rt.cpan.org, or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Crypt-GpgME.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Crypt::GpgME
You can also look for information at:
Copyright 2007-2009 Florian Ragwitz, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Crypt-GpgME documentation | Contained in the Crypt-GpgME distribution. |
package Crypt::GpgME; use strict; use warnings; use IO::Scalar; our $VERSION = '0.09'; our @ISA; eval { require XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); 1; } or do { require DynaLoader; push @ISA, 'DynaLoader'; __PACKAGE__->bootstrap( $VERSION ); }; sub import { my ($base, @args) = @_; my $do_init = 1; my $init_version = undef; while (my $arg = shift @args) { if ($arg eq '-no-init') { $do_init = 0; } elsif ($arg eq '-init') { $do_init = 1; if (!@args) { require Carp; Carp::croak ('-init requires a version number to pass to Crypt::GpgME->check_version'); } $init_version = shift @args; } else { $base->VERSION($arg); } } if ($do_init) { $base->check_version( defined $init_version ? $init_version : () ); } } package Crypt::GpgME::Data; use strict; use warnings; use base qw/IO::Scalar/; 1; __END__