view release on metacpan or  search on metacpan

t/46-signature-fixture.t  view on Meta::CPAN

    };

    if ($@) {
        skip "load_identity failed: $@", 15;
    }

    ok($identity, 'identity loaded from PKCS#12');
    isa_ok($identity, 'PDF::Make::SigningIdentity');

    # Identity properties
    ok($identity->has_private_key, 'has private key');
    ok($identity->has_certificate, 'has certificate');
    ok($identity->can_sign, 'can sign');

    # Certificate inspection
    my $subject = eval { $identity->subject };
    ok(defined $subject, 'subject defined');
    like($subject, qr/PDFMake|Semantic|Test/i, 'subject contains expected name');

    my $issuer = eval { $identity->issuer };
    ok(defined $issuer, 'issuer defined');

xs/signature.xs  view on Meta::CPAN

         * "Use of uninitialized value in subroutine entry" warning. */
        if (sv_isobject(self_sv) && SvROK(self_sv)) {
            inner = SvRV(self_sv);
            if (inner && SvTYPE(inner) < SVt_PVAV) {
                self = INT2PTR(pdfmake_signing_identity_t *, SvIV(inner));
                if (self) pdfmake_signing_identity_free(self);
            }
        }

int
has_private_key(self)
    pdfmake_signing_identity_t *self
    CODE:
        RETVAL = (self && self->privkey != NULL);
    OUTPUT:
        RETVAL

int
has_certificate(self)
    pdfmake_signing_identity_t *self
    CODE: