File Coverage

lib/Crypt/Perl/PKCS10/Attribute/challengePassword.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	26	27	96.3

package Crypt::Perl::PKCS10::Attribute::challengePassword;

=encoding utf-8

=head1 NAME

Crypt::Perl::PKCS10::Attribute::challengePassword

=head1 SYNOPSIS

    my $chpw = Crypt::Perl::PKCS10::Attribute::challengePassword->new($passwd);

=head1 SECURITY

This attribute stores a phrase B in the CSR. Don’t put
anything in here that you consider sensitive!

It’s likely that you don’t need this attribute.
Check with your Certificate Authority to find out for sure sure if
you need to include this in your CSR.

=head1 DESCRIPTION

Instances of this class represent a C attribute of a
PKCS #10 Certificate Signing Request (CSR).

You probably don’t need to
instantiate this class directly; instead, you can instantiate it
implicitly by listing out arguments to
L’s constructor. See that module’s
L for an example.

=cut

use strict;
use warnings;

use parent qw( Crypt::Perl::PKCS10::Attribute );

use constant OID => '1.2.840.113549.1.9.7';

use constant ASN1 => <
    challengePassword ::= CHOICE {
        password UTF8String
    }
END

sub new {
    my ($class, $passwd) = @_;

    return bless \$passwd, $class;
}

sub _encode_params {
    my ($self) = @_;

    return {
        password => "$$self",
    };
}

1;