#include "perl_gpgme.h"
MODULE = Crypt::GpgME::Key PACKAGE = Crypt::GpgME::Key
PROTOTYPES: ENABLE
void
DESTROY (key)
gpgme_key_t key
CODE:
gpgme_key_unref (key);
unsigned int
revoked (key)
gpgme_key_t key
CODE:
RETVAL = key->revoked;
OUTPUT:
RETVAL
unsigned int
expired (key)
gpgme_key_t key
CODE:
RETVAL = key->expired;
OUTPUT:
RETVAL
unsigned int
disabled (key)
gpgme_key_t key
CODE:
RETVAL = key->disabled;
OUTPUT:
RETVAL
unsigned int
invalid (key)
gpgme_key_t key
CODE:
RETVAL = key->invalid;
OUTPUT:
RETVAL
unsigned int
can_encrypt (key)
gpgme_key_t key
CODE:
RETVAL = key->can_encrypt;
OUTPUT:
RETVAL
unsigned int
can_sign (key)
gpgme_key_t key
CODE:
RETVAL = key->can_sign;
OUTPUT:
RETVAL
unsigned int
can_certify (key)
gpgme_key_t key
CODE:
RETVAL = key->can_certify;
OUTPUT:
RETVAL
unsigned int
secret (key)
gpgme_key_t key
CODE:
RETVAL = key->secret;
OUTPUT:
RETVAL
unsigned int
can_authenticate (key)
gpgme_key_t key
CODE:
RETVAL = key->can_authenticate;
OUTPUT:
RETVAL
unsigned int
is_qualified (key)
gpgme_key_t key
CODE:
RETVAL = key->is_qualified;
OUTPUT:
RETVAL
gpgme_protocol_t
protocol (key)
gpgme_key_t key
CODE:
RETVAL = key->protocol;
OUTPUT:
RETVAL
#TODO: croak if field has no meaning with the current protocol?
char *
issuer_serial (key)
gpgme_key_t key
CODE:
RETVAL = key->issuer_serial;
OUTPUT:
RETVAL
char *
issuer_name (key)
gpgme_key_t key
CODE:
RETVAL = key->issuer_name;
OUTPUT:
RETVAL
char *
chain_id (key)
gpgme_key_t key
CODE:
RETVAL = key->chain_id;
OUTPUT:
RETVAL
gpgme_validity_t
owner_trust (key)
gpgme_key_t key
CODE:
RETVAL = key->owner_trust;
OUTPUT:
RETVAL
void
subkeys (key)
gpgme_key_t key
PREINIT:
gpgme_subkey_t i;
PPCODE:
for (i = key->subkeys; i != NULL; i = i->next) {
XPUSHs (sv_2mortal (perl_gpgme_hashref_from_subkey (i)));
}
void
uids (key)
gpgme_key_t key
PREINIT:
gpgme_user_id_t i;
PPCODE:
for (i = key->uids; i != NULL; i = i->next) {
XPUSHs (sv_2mortal (perl_gpgme_hashref_from_uid (i)));
}
gpgme_keylist_mode_t
keylist_mode (key)
gpgme_key_t key
CODE:
RETVAL = key->keylist_mode;
OUTPUT:
RETVAL